пятница, 12 июля 2013 г.

1с 8.2 получаем файл с интернета

Файл = "C:\test.txt";
Соединение = Новый HTTPСоединение("yandex.ru");
        Соединение.Получить("/yandsearch?clid=1909644&text="+1с,Файл);
        Если НайтиФайлы(Файл).Количество()=0 Тогда Сообщить("Не нашли файл:"+Файл);Возврат;КонецЕсли;
        Текст = Новый ТекстовыйДокумент;
        Текст.Прочитать(Файл,КодировкаТекста.UTF8);