数据读取问题？

[mtoad]

有一个文本文件，有m行n列，
我要一次取一行进行计算，VB如何实现啦？

[sdrcxzy]

Dim fsoTest As New FileSystemObject, file1 As File, ts As TextStream, s As String
Set file1 = fsoTest.GetFile(“C:\testfile.txt")
Set ts = file1.OpenAsTextStream(ForReading)
'读取一行
s = ts.ReadLine
MsgBox s
ts.Close

[of123]

dim strline as string
dim strcols() as string

open c:\text1.txt for input as #1
do until eof(1)
line input #1,strline
strcols = split(strline, vbTab)
for i = 0 to ubound(strcols)
debug.print strcols(i),
next i
debug.print ""
loop
close #1

[饮水需思源]

open c:\text1.txt for input as #a1
do while not eof(a1)
line input #a1,tmpstr
loop
close #a1