Серый форум — VBS: Записать в файл в кодировке 1200

Re: VBS: Записать в файл в кодировке 1200

2016-02-04T13:01:22Z

YMP
Да, это FAR глюкнул. Запустил новый экземпляр - и все стало норм ) Еще раз спасибо за помощь!

Re: VBS: Записать в файл в кодировке 1200

2016-02-04T12:55:07Z

Возможно, текстовый редактор запомнил первоначальную кодировку файла и пытался его в ней же открыть. У меня AkelPad так делает. Поэтому приходится делать "открыть как" с выбором кодировки.

Re: VBS: Записать в файл в кодировке 1200

2016-02-04T11:59:13Z

YMP
Что-то тут не то. Все-таки получается, что test.txt и 1CEStart.cfg имеют разные кодировки...

Собственно, у меня теперь test.txt вообще не читается.

UPD: Извините. На другом компьютере все нормально отработало... Это, видимо что-то с моей машиной получается...

Re: VBS: Записать в файл в кодировке 1200

2016-02-04T11:48:04Z

Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FileCfg = fso.OpenTextFile("test.txt", 2, -1, -1)
FileCfg.WriteLine("Проверка кодировки")
FileCfg.Close

VBS: Записать в файл в кодировке 1200

2016-02-04T10:53:23Z

На сколько я понимаю, 1200 - это UTF16. Хотелось бы на выходе получить файл именно в такой кодировке. Пока получается в кодировке 1251. Код:

Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FileCfg = fso.OpenTextFile("test.txt", 2, -1)
FileCfg.WriteLine("Проверка кодировки")
FileCfg.Close

В голову приходит только ADODB.Stream, но в HKEY_CLASSES_ROOT\MIME\Database\Charset я ничего похожего на UTF-16 не нашел... Как быть?

Спасибо