Как получить текст web-страницы.

Просмотреть сразу

СервАдр = "АдресТочкаРу";

Соединение = Новый HTTPСоединение(СервАдр);

Заголовки = Новый Соответствие;

Заголовки.Вставить("host", СервАдр);

Запрос = Новый HTTPЗапрос("/work.html", Заголовки);

Ответ = Соединение.Получить(Запрос);

Если Ответ.КодСостояния = 200 Тогда

ТекстСтраницы = Ответ.ПолучитьТелоКакСтроку();

Сообщить(ТекстСтраницы);

КонецЕсли;

СервАдр = "АдресТочкаРу";

НТТР = Новый HTTPСоединение(СервАдр);

врФайл = КаталогВременныхФайлов()+"pr_"+Формат(ТекущаяДата(), "ДФ=ddMMyyhhmmss")+".txt";

Ответ = НТТР.Получить("/work.html", врФайл);

Если Ответ.КодСостояния = 200 Тогда

ВходящийФайл = Новый Файл(врФайл);

//Сообщить(ВходящийФайл.Размер());

Текст = Новый ТекстовыйДокумент;

Текст.Прочитать(врФайл,КодировкаТекста.UTF8);

Для н = 1 По Текст.КоличествоСтрок()Цикл

строк = Текст.ПолучитьСтроку(н);

Сообщить(строк);

КонецЦикла;

КонецЕсли;