Необходимо прочитать из текстового файла данные. Файл в формате Unicode. При чтении из файла данных в строку считывается только первые несколько символов и в неправильной кодировке ("яюТ" вместо длинного файла, первая сторока которого "Text For Reading"). Вот пример кода:
- Dim NewFSO As New FileSystemObject
Dim txtNewFile
Dim txtSecFile
Dim sLines(1 To 4)
Set txtNewFile = NewFSO.OpenTextFile("f:\temp\projects.pdmw")
Set txtSecFile = NewFSO.OpenTextFile("f:\temp\sec.txt", ForAppending)
sLines(2) = txtNewFile.ReadAll
txtNewFile.Close
txtSecFile.Write (sLines(2))
Text1.Text = sLines(2)
txtSecFile.Close
Т.е. в текстовом поле формы отображается "яюТ", а при записывании во второй файл содержимого первого, начало пишется в неправильной кодировке, а конец - в правильной.
Если руками создать файл с точно таким же содержанием, только в кодировке Windows и выполнить программу с ним, то всё нормально. Но это не выход, т.к. эти файлы создаёт сторонняя программа для хранения своей инфы.
Что можно сделать, что бы нормально считывалась информация из файла с кодировкой Unicode?
