Перекодировщик из UTF-8 в Windows-1251 Ключевые слова: кодировка, utf-8, windows-1251, windows
http://x-romix.narod.ru/UTF8_1251.rar
(скачивать ЛЕВОЙ кнопкой мыши, 24К)
Пример вызова:
utf8_1251.exe test_utf8.xml test.xml
Программа изменяет объявление кодировки в первой строке XML.
В папке WIN1251_UTF8 содержится обратная программа (перекодирует из Windows в UTF).
smaharbA пишет:
9 - 28.02.07 - 21:52
//*******************************************
Процедура Сформировать()
Стрим = СоздатьОбъект("Adodb.Stream");
Стрим.Type = 2;
Стрим.Mode= 3;
Стрим.charset="utf-16";
//Стрим.charset="windows-1251";
Стрим.Open();
Стрим.WriteText("Проверочка");
Стрим.SaveToFile("c:\unicode.txt",2);
Стрим.Close();
Стрим.charset="koi8-r";
Стрим.Open();
Стрим.WriteText("Проверочка");
Стрим.Close();
Стрим.charset="utf-8";
Стрим.Open();
Стрим.WriteText("Проверочка");
Стрим.SaveToFile("c:\utf-8.txt",2);
Стрим.Close();
КонецПроцедуры |