ADODB.Stream ReadText не работает должным образом - PullRequest
0 голосов
/ 08 февраля 2019

Я пытаюсь прочитать файл CSV построчно, используя ADODB.Stream.Когда я выполняю метод .ReadText (-2), он работает правильно для первой строки, но начинает обрезать начальные 2 символа из всех следующих строк и не читает последнюю строку.

Ниже приведен код, который я пробовал.

Set oTextStream = New ADODB.Stream

With oTextStream
    .Charset = "utf-8"
    .LineSeparator = adLF
    .Open
    .LoadFromFile (sFullPath)
End With

Do Until oTextStream.EOS
    Debug.Print oTextStream.ReadText(-2)
Loop

Вместо печати: "Actuariale Organisaties"; "R12345"

Он печатает: Ctuariale Organisaties ";" R12345«

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...