直接采用Open函数+Line input命令
Private Sub txt_read()
Dim txt As String
Open "D:\dzh.txt" For Input As #1 '
'对文件做任何 I/O 操作之前都必须先打开文件。Open 语句分配一个缓冲区供文件进行 I/O 之用,
'并决定缓冲区所使用的访问方式。
'打开文件作为数据输入用,文件号为#1
Do While Not EOF(1)
Line Input #1, txt '从已打开的顺序文件中读出一行并将它分配给 String 变量
'Line Input # 语句一次只从文件中读出一个字符,直到遇到回车符 (Chr(13))
'或回车–换行符 (Chr(13) + Chr(10)) 为止。回车–换行符将被跳过,而不会被附加到字符串上
MsgBox txt
Loop
Close #1
End Sub
-----------------------------------------------------------------------------------------------
1、Open 语句
打开方式有
Input:以读取方式打开。
Output:以写入方式打开。
Append:以追加方式,即添加内容到文件末尾打开。
Binary:以二进制方式打开。
Random:以随机方式打开,如果未指定方式,则以 Random 方式打开文件。
Open pathname For mode As [#]filenumber
Open "c:\