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

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

null@example.com (inock) — Thu, 04 Feb 2016 13:01:22 +0000

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

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

null@example.com (YMP) — Thu, 04 Feb 2016 12:55:07 +0000

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

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

null@example.com (inock) — Thu, 04 Feb 2016 11:59:13 +0000

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

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

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

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

null@example.com (YMP) — Thu, 04 Feb 2016 11:48:04 +0000

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

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

null@example.com (inock) — Thu, 04 Feb 2016 10:53:23 +0000

На сколько я понимаю, 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 не нашел... Как быть?

Спасибо