Показать сообщение отдельно
Гость
- 18.01.2018 - 16:52
Кому интересно - в строке 1716 меняем "ИС_Основание" на "ИС__Основание" (добавляем подчеркивание).
Строки 1806-1818 меняем на такой, к примеру, кусок:

Байт = 255;
СтримВход = CreateObject("Adodb.Stream");
СтримВход.Type = 2;
СтримВход.Charset = "windows-1251";
СтримВход.Open();
СтримВход.LoadFromFile(ПолноеИмяФайла);
СтримВыход = CreateObject("Adodb.Stream");
СтримВыход.Type = 2;
СтримВыход.Charset = "utf-8";
СтримВыход.LineSeparator = -1;
СтримВыход.Open();
Всего = СтримВход.size;
Пока СтримВход.EOS=0 Цикл
СтримВыход.WriteText(СтримВход.ReadText(Байт), ?(Байт=-2,1,0));
Состояние(""+Формат(100*СтримВход.position/Всего,"Ч(0)5.2")+"%");
КонецЦикла;
СтримВыход.SaveToFile(ПолноеИмяФайла,2);