access逐行讀取文本文件

前面我們講過如何從文本文件中逐個字符讀取《access逐個字符讀取文本文件》

又有網(wǎng)友問到如何不用逐個字符，想整行讀取。

用Line Input # 語句可以從已打開的順序文件中讀出一行并

如下圖中，文本文件有兩行數(shù)據(jù)，需依次讀取

詳細源碼，從順序文件中讀入一行數(shù)據(jù)，并將該行數(shù)據(jù)賦予一個變量

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)    ' 循環(huán)至文件尾。
'        str = Input(1, #1)    ' 讀入一個字符。
        Line Input #1, str   '讀取一行記錄
        
        Me.Text1 = Me.Text1 & vbNewLine & str    ' 在文本框中顯示
    Loop
    Close #1    ' 關(guān)閉文件。
    

End Sub

讀取成功：

注意：

Line Input # 語句一次只從文件中讀出一個字符，直到遇到回車符 (Chr(13)) 或回車–換行符 (Chr(13) + Chr(10)) 為止?；剀嚚C換行符將被跳過，而不會被附加到字符串上。