Перекодировщик из UTF-8 в Windows-1251

Книга знаний

1С:Предприятие / Приемы программирования / Файловая система

Программа позволяет перекодировать текстовые файлы из кодировки UTF-8 в кодировку Windows-1251.

Автор статьи: romix | Редакторы:
Последняя редакция №2 от 28.02.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.

В папке 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();
КонецПроцедуры