5.
AlexGerasimov
24.01.22 20:31
Сейчас в теме
Можно добавить в код процедуру перекодировки в UTF 8
Процедура ПерекодироватьВУТФ(Имя)
Перем Путь;
Путь = КаталогФайлов+"\";
Байт=255;
СтримВход=СоздатьОбъект("ADODB.Stream");
СтримВход.Type=2;
СтримВход.charset="windows-1251";
СтримВход.Open();
СтримВход.LoadFromFile(Путь+Имя);
СтримВыход=СоздатьОбъект("ADODB.Stream");
СтримВыход.Type=2;
СтримВыход.charset="utf-8";
СтримВыход.LineSeparator=-1;
СтримВыход.Open();
Всего=СтримВход.size;
Пока СтримВход.EOS=0 Цикл
СтримВыход.WriteText(СтримВход.ReadText(Байт),?(Байт=-2,1,0));
Состояние("Перекодировка UTF-8 " + Формат(100 * СтримВход.position/Всего,"Ч(0)5.2")+"%");
КонецЦикла;
//СтримВыход.SaveToFile(Путь+Имя+".utf8",2);
СтримВыход.SaveToFile(Путь+Имя,2);
КонецПроцедуры