1 Тема от inock

  • inock
  • Участник
  • Неактивен

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

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

Спасибо

2 Ответ от YMP

  • YMP
  • Разработчик
  • Неактивен

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

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

3 Ответ от inock (изменено: inock, 2016-02-04 16:04:28)

  • inock
  • Участник
  • Неактивен

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

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

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

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

Post's attachments

1200.zip 1022 b, 2 downloads since 2016-02-04 

You don't have the permssions to download the attachments of this post.

4 Ответ от YMP

  • YMP
  • Разработчик
  • Неактивен

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

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

DynamicWrapperX
+ inock

5 Ответ от inock

  • inock
  • Участник
  • Неактивен

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

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