Нужна UTF, как бы это сделать?

через FSO или streamFile - как-то так (я неграмотный) - относительно недавно Smaharba рецпт приводил

ап

(2)

//*******************************************
Процедура Сформировать()
   Стрим = СоздатьОбъект("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();
КонецПроцедуры


СохрТекст=СоздатьОбъект("Текст");
   СохрТекст.КодоваяСтраница(?(Кодировка=1,0,1));

тока перед этим надо файл определить

(4) :) Читаем (0) внимательнее .."Нужна UTF"

Сорри не посмотрел

(5) Кстати он незная того, недалек от истины был -
если utf-16 есть еще способ, "полностью штатный", при 2000/ХР/2003

//*******************************************
Процедура Сформировать()
   ФайлРез=КаталогИБ()+_GetPerformanceCounter()+".txt";
   ФайлВрем=КаталогВременныхФайлов()+_GetPerformanceCounter()+".txt";
   Текст=СоздатьОбъект("Текст");
   Текст.КодоваяСтраница(1);
   Текст.ДобавитьСтроку("Проверочка");
   Текст.Записать(ФайлВрем);
   КомандаСистемы("cmd /u /c type """+ФайлВрем+""">"""+ФайлРез+"""");
КонецПроцедуры


(7) спасибо :)