access逐行读取文本文件

前面我们讲过如何从文本文件中逐个字符读取《access逐个字符读取文本文件》

又有网友问到如何不用逐个字符，想整行读取。

用Line Input # 语句可以从已打开的顺序文件中读出一行并

如下图中，文本文件有两行数据，需依次读取

详细源码，从顺序文件中读入一行数据，并将该行数据赋予一个变量

Private Sub 读取文件_Click()
    
    Dim strPath As String
    strPath = CurrentProject.Path & "\text1.txt"
    
    Dim str As String
    Open strPath For Input As #1    ' 打开文件。
    Do While Not EOF(1)    ' 循环至文件尾。
'        str = Input(1, #1)    ' 读入一个字符。
        Line Input #1, str   '读取一行记录
        
        Me.Text1 = Me.Text1 & vbNewLine & str    ' 在文本框中显示
    Loop
    Close #1    ' 关闭文件。
    

End Sub

读取成功：

注意：

Line Input # 语句一次只从文件中读出一个字符，直到遇到回车符 (Chr(13)) 或回车–换行符 (Chr(13) + Chr(10)) 为止。回车–换行符将被跳过，而不会被附加到字符串上。