ПостроительDOM 1с

Форум Программирование Интеграция и обмен данными, конвертация данных (Обмен)

Языки программирования

1. isupovalex 3 14.09.19 19:55 Сейчас в теме

Добрый день,
Хочу получить наименование по штрих коду следующим образом

Штрихкод = 1044802358050
АдресСсылки= "http://www.barcode-list.ru/barcode/RU/Поиск.htm?barcode="+Штрихкод;
ЧтениеHTML = Новый ЧтениеHTML;
ЧтениеHTML.ОткрытьФайл(АдресСсылки);
ПостроительDOM = Новый ПостроительDOM;
ДокументHTML = ПостроительDOM.Прочитать(ЧтениеHTML);
ЭлементыDOM = ДокументHTML.ПолучитьЭлементыПоИмени("title");
//Сообщить(АдресСсылки);
Наименование = СокрЛП(ЭлементыDOM.Элемент(0).ТекстовоеСодержимое);
ПозицияРазделителя = Найти(Наименование,"- Штрих-код");
Наименование = Лев(Наименование,ПозицияРазделителя-1); 
Наименование = СтрЗаменить(Наименование,"/"," ");
	
Возврат Наименование

Показать

Это работало, пока сайт не изменил на защищенный тип сайта с http на https

я менял адрес ссылки - и в ДокументHTML ничего не находилось, как буд то ссылки не существует

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

3. na688 27.12.20 02:32 Сейчас в теме

(1) Попробуйте так. В 8.2 наверное работать не будет.

	Сервер = "barcode-list.ru";
	ШтрихКод = 1044802358050;
	ТекстЗапроса = "barcode/RU/Поиск.htm?barcode=" + Штрихкод;
	ВременныйФайл = ПолучитьИмяВременногоФайла();
	SSL = Новый ЗащищенноеСоединениеOpenSSL;
	Соединение = Новый HTTPСоединение(Сервер, ,,,, 3, SSL);
	Соединение.Получить(ТекстЗапроса, ВременныйФайл);
	ЧтениеHTML = Новый ЧтениеHTML;
	ЧтениеHTML.ОткрытьФайл(ВременныйФайл);
	ПостроительDOM = Новый ПостроительDOM;
	ДокументHTML = ПостроительDOM.Прочитать(ЧтениеHTML);

Показать

И дальше разбираете полученный HTML

2. 13D 67 26.12.20 12:35 Сейчас в теме

не нашли решения?

Оставьте свое сообщение

E-mail: