这是一个非常简单的示例例程,它一次读取一行文本文件。 这仅使用内置的VB语句。 稍后,我们将介绍FileSystemObject,它提供了更多功能,但以稍微复杂的代码为代价。
可以将此自包含的例程粘贴到代码模块中,然后从任何位置(包括即时窗口)进行调用。 它将期望您传递文件名(如果文件不在当前目录中,则包括路径),并将文件内容复制到立即窗口。 请注意,这还将尽可能避免干扰当时可能正在进行的任何其他处理。
Public Sub DumpFile_V01(ByVal FileName As String)
Dim FileNo As Long
Dim LineNo As Long
Dim LineText As String
FileNo = FreeFile ' Get next available file number.
Open FileName For Input Access Read Shared As #FileNo
Do Until EOF(FileNo) ' Repeat until end of file...
Line Input #FileNo, LineText ' Read a line from the file.
LineNo = LineNo + 1
Debug.Print Format(LineNo, "00000"); ": "; LineText
DoEvents ' Allow Windows to handle other tasks.
Loop
Close #FileNo
End Sub
From: https://bytes.com/topic/visual-basic/insights/647301-how-read-file-vb-part-1-vb6-line-input