Функция Перекодировка(Стр="",Кодировка="windows-1251") Стрим = СоздатьОбъект("Adodb.Stream"); Стрим.Type = 2; Стрим.Mode= 3; Стрим.charset="iso-8859-5"; Стрим.Open(); Стрим.WriteText(Стр); Стрим.Position=0; Стрим.charset=Кодировка; Рез=Стрим.ReadText(-1); Стрим.Close(); Возврат Рез; КонецФункции //Если предыдущая функция не срабатывает, то попробуйте: Стрим = СоздатьОбъект("Adodb.Stream"); Стрим.charset="iso-8859-5"; Стрим.Open(); Стрим.LoadFromFile("c:\WORK\H R\PSHRR848.C"); Стрим.Position=0; // здесь уже можно дергать нормальный текст Стрим2 = СоздатьОбъект("Adodb.Stream"); Стрим2.charset="windows-1251"; Стрим2.Open(); Стрим2.WriteText(Стрим.ReadText); Стрим2.Position=0; Рез=Стрим2.ReadText(-1); Стрим.Close(); Стрим2.Close(); //Выведем в Сообщить результаты Message("2 = "+Рез); Message("StrLen(Рез) = "+StrLen(Рез)); // Кратко Стрим = СоздатьОбъект("Adodb.Stream"); Стрим.charset="iso-8859-5"; Стрим.Open(); Стрим.LoadFromFile("c:\WORK\H R\PSHRR848.C"); Рез=Стрим.ReadText();
//Код где, ни единого объекта. smaharbA Процедура Сформировать() Стр="Нажрися вотки и закуси ка селедкой! "; База=""+_GetPerformanceCounter()+".txt"; УТФ=КаталогВременныхФайлов()+"УТФ"+База; ИСО=КаталогВременныхФайлов()+"ИСО"+База; ДОС=КаталогВременныхФайлов()+"ДОС"+База; ОбратноДОС=КаталогВременныхФайлов()+"ОбратноДОС"+База; Текст=СоздатьОбъект("Текст"); Текст.КодоваяСтраница(1); Для Сч=1 По 10 Цикл Текст.ДобавитьСтроку(Стр); КонецЦикла; Текст.Записать(ДОС); Текст.Очистить(); КомандаСистемы("chcp 28595 > nul & echo off 2> """+ИСО+""" & for /f ""delims="" %i in ("+ДОС+") do (chcp 28595|>> """+ИСО+""" echo %i)"); // КомандаСистемы("cmd /c ""chcp 28595|> """+ИСО+""" echo "+Стр+""""); Текст.КодоваяСтраница(0); Текст.ДобавитьСтроку(Симв(255)+Симв(254)); Текст.Записать(УТФ); КомандаСистемы("chcp 28595|> nul echo & cmd /u /c type """+ИСО+""" >> """+УТФ+""""); КомандаСистемы("type """+УТФ+""" > """+ОбратноДОС+""""); Текст.КодоваяСтраница(1); Текст.Открыть(ОбратноДОС); Для Сч=1 По Текст.КоличествоСтрок() Цикл Сообщить(Текст.ПолучитьСтроку(Сч)); КонецЦикла; КонецПроцедуры