Имя: Пароль:
1C
 
Прочитать текст в KOI-8
0 Snikers_OLD
 
22.03.10
18:11
Доброго времени. Подскажите, пожалуйста, не могу верно прочитать текст в KOI-8. отображает кракозяблами русские символы. Спасибо.
Пробовал и
Запись = OemToAnsi(СокрЛП(ТекстФайл.ПолучитьСтроку(м)));
Запись = AnsiToOem(СокрЛП(ТекстФайл.ПолучитьСтроку(м)));  

и кодовые страницы менял.
1 dk
 
22.03.10
18:16
2 Fragster
 
гуру
22.03.10
18:19
Стрим = СоздатьОбъект("Adodb.Stream");
Стрим.charset="koi8-r";
Стрим.Open();
Стрим.LoadFromFile("c:\WORK\H R\PSHRR848.C");
Рез=Стрим.ReadText();
3 dk
 
22.03.10
18:39
(0) так, а хде спасибо?
4 Snikers_OLD
 
22.03.10
18:55
(1),(2) огромное спасибо.
5 Ковычки
 
22.03.10
20:07

Текст.КодоваяСтраница(0);
Текст.ДобавитьСтроку(Симв(255)+Симв(254));
Текст.Записать(УТФ);
КомандаСистемы("chcp 20866|> nul echo & cmd /u /c type """+КОИ+""" >> """+УТФ+"""");
КомандаСистемы("type """+УТФ+""" > """+ОбратноДОС+"""");
Ошибка? Это не ошибка, это системная функция.