【VB技巧】VB循环读取文件/逐行读取文本文

VB循环读取文件/逐行读取文本文件：

Open "C:test.txt" For Input As #1
    Do While Not EOF(1)                                                         '循环至文件尾.
        Line Input #1, a                                                        '读入一行数据并将其赋予某变量.
        b = b & a & vbCrLf                                                      '将读出的数据连接起来
    Loop
Close #1

VB循环逐行读取文件示例：

Dim I As Integer, S As String
I = FreeFile
Open "C:WINDOWSdload.sys" For Input As #I                                     '在此改成你所需的文本文件名
    Do While Not EOF(I)
        Line Input #I, S
        If S "" Then MsgBox S
    Loop
Close #I