access逐行讀取文本文件

2018-03-14 16:52:00
黃善超
原創
1031

前麵我們講過如何從文本文件中逐箇字符讀取《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)) 爲止。迴車–換行符將被跳過,而不會被附加到字符串上。

    分享