VoditelKobyly wrote: Stream = CreateObject("Adodb.Stream");
Stream.Charset = "utf-8";
Stream.Open();

//Будем бить на части по 100000 байт
ВсегоБайт=СтрДлина(ОтветСервера);
ДлинаКуска=100000;
КоличествоКусков=Цел(ВсегоБайт/ДлинаКуска);
ОстатокБайт=ВсегоБайт-(КоличествоКусков*ДлинаКуска);
Для НомерКуска=1 По КоличествоКусков Цикл
КусокТекста=Сред(ОтветСервера,(НомерКуска-1)*ДлинаКуска+1,ДлинаКуска);
Stream.WriteText(КусокТекста);
КонецЦикла;
Если ОстатокБайт>0 Тогда
КусокТекста=Сред(ОтветСервера,(КоличествоКусков*ДлинаКуска)+1,ДлинаКуска);
Stream.WriteText(КусокТекста);
КонецЕсли;

//Stream.WriteText(ОтветСервера);
Stream.SaveToFile(ИмяФ);
Stream.Close();