Пример чтения текста в кодировке ISO

 
Функция Перекодировка(Стр="",Кодировка="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 По Текст.КоличествоСтрок() Цикл
        Сообщить(Текст.ПолучитьСтроку(Сч));
    КонецЦикла;
КонецПроцедуры