Перекодировщик из UTF-8 в Windows-1251 и обратноПрограмма позволяет перекодировать текстовые файлы из кодировки UTF-8 в кодировку Windows-1251, а также добавлять маркер UTF-8, если его нет. | | Автор статьи: romix | Редакторы: Последняя редакция №3 от 03.07.07 | История URL: http://kb.mista.ru/article.php?id=481 | |
Ключевые слова: кодировка, utf-8, windows-1251, windows
http://x-romix.narod.ru/UTF8_1251.rar
(скачивать ЛЕВОЙ кнопкой мыши, 24К)
Пример вызова:
utf8_1251.exe test_utf8.xml test.xml
Программа изменяет объявление кодировки в первой строке XML.
Перекодирование из Windows-1251 в UTF-8
Перекодирует XML-файл из кодировки Windows-1251 в UTF8.
Если файл уже в кодировке UTF8, то он остается как есть.
Если файл не содержит маркера кодировки UTF8, то добавляет его.
Вызов win1251_utf8.exe Файл1.xml Файл2.xml
Добавление маркера в UTF-8
Используйте ту же самую программу win1251_utf8.exe для добавления маркера UTF-8.
Если кодировка уже была UTF-8, и был маркер, то файл не изменится.
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();
КонецПроцедуры |