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)) 爲止。迴車–換行符將被跳過，而不會被附加到字符串上。