vba: читать только первые 1000 символов файла в строку

Question

Мне нужно открыть текстовый файл и прочитать его в строку в VBA, но я хотел бы получить только первые 1000 символов.

сам файл составляет 20 МБ, и мне нужны только первые 1000 символов.Есть ли способ сделать это эффективным?

Answer 1

Не уверен, что есть более эффективный способ, но этот метод довольно прост:

   Dim sText As String

   Open "C:\myfile.txt" For Input As #1

   sText = Input$(1000, 1)

   Close #1

Answer 2

Какова длина каждой строки в файле. Что я хотел бы сделать, это либо прочитать его по символу или по строке (если строки короче), а затем установить ограничение 1000 символов. Таким образом, вам не нужно читать весь файл. Вы просто читаете первые 1000 символов или чуть больше, если читаете их построчно.