Question

VBA，关于TXT文本信息的读取。

VBA，关于TXT文本信息的读取。假使已知某指定路径的TXT文本，如何将其遍历其所有行信息？
如txt信息
1 01
345
bac
获取TXT里每行的字符完整信息(1 01，345，bac)，包括中间的空格信息。谢谢

Answer 1

Dim num As Integer
Dim r As String
Dim f As String
'将f指定为你的衫迹文件的路径启塌橘悄团
f = "t.txt"
num = FreeFile()
Open f For Input As num
While Not EOF(num)
Line Input #num, r
MsgBox (r)
Wend

Answer 2

Dim fso   中让
Dim txtfile 
Set fso = CreateObject("scripting.filesystemobject")  

Set txtfile = fso.OpenTextFile("E:\test\掘培笑12345678FAIL.txt") 
txtfile.ReadLine  '读取一行判含
txtfile.ReadAll      '读取所有

追问

怎么一行一行遍历呢？
我现在用的方法是line