UTF-8


 
//*******************************************
 
Процедура Сформировать()
 
    Чарсеты="ascii
 
    |utf-16
 
    |utf-8
 
    |koi8-r
 
    |cp866
 
    |windows-1251";
 
    Стрим = СоздатьОбъект("Adodb.Stream");
 
    Стрим.Type = 2;
 
    Стрим.Mode= 3;
 
    Для к=1 По СтрКоличествоСтрок(Чарсеты) Цикл
 
        Чарсет=СтрПолучитьСтроку(Чарсеты,к);
 
        Стрим.charset=Чарсет;
 
        Стрим.Open();
 
        Стрим.WriteText("Проверочка");
 
        Стрим.SaveToFile("c:\"+Чарсет+".txt",2);
 
        Стрим.Close();
 
    КонецЦикла;
 
    //Через ФСО
 
    ФайлЮникодФСО="c:\ФайлЮникодФСО.txt";
 
    ФСО=СоздатьОбъект("scripting.filesystemobject");
 
    Файл=ФСО.OpenTextFile(ФайлЮникодФСО,2,-1,-1);
 
    Файл.WriteLine("Проверочка");
 
    Файл.Close();
 
    //"Штатная" метода
 
    ФайлДОС="c:\ФайлДОС.txt";
 
    ФайлЮникод="c:\ФайлЮникод.txt";
 
    Текст=СоздатьОбъект("Текст");
 
    Текст.ДобавитьСтроку("Проверочка");
 
    Текст.КодоваяСтраница(1);
 
    Текст.Записать(ФайлДОС);
 
    КомандаСистемы("cmd /u /c type """+ФайлДОС+""" > """+ФайлЮникод+"""");
 
КонецПроцедуры