Кодировка

[8Ball's]

Вопрос на засыпку: в какой кодировке сохраняется текстовый файл

Код: Выделить всё


Dim fileName as String, fileHandle as Integer, strText as String
fileName = text1.text
strText = text2.text
fileHandle = FreeFile()
Open fileName For Output As #fileHandle
Print #fileHandle, strText
Close #fileHandle


[Amed]

ANSI.

[Добавил пару минут спустя]
Попробуй написать

Код: Выделить всё

Print #fileHandle, strText & StrConv(strText, vbUnicode)

и погляди двоичным редактором, что внутри файла будет.

Исправил свой бред и благодарю GSerg за тонкие намеки

[8Ball's]

тогда тогда вот так

Код: Выделить всё

Print #fileHandle, strText & StrConv(strText, vbFromUnicode)

[IIIypuk]

А как сохранить файл .txt в Unicode? С помощью open это возможно?

[tyomitch]

Да. Туда нужно писать StrConv(strText, vbUnicode) (простой способ) или байтовый массив, в который была перед этим скопирована строка (правильный способ)

[alibek]

Плюс добавить вначале FFFE.

[tyomitch]

Это необязательно.