vba：只读取文件的前1000个字符到字符串中

Question

我需要打开一个txt文件并将其读入VBA中的字符串，但我只想获得前1000个字符。

文件本身是20mb，我只需要前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个字符或更多字符。