office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

access逐行读取文本文件

2018-03-14 16:52:00
tmtony8
原创
5407

前面我们讲过如何从文本文件中逐个字符读取《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)) 为止。回车–换行符将被跳过,而不会被附加到字符串上。

    分享