请教高人 VB读取txt文件的问题

是看有多少换行的地方，还是一行写不下，分2行写就算2行
如果就是1、2、3、4
那用lineinput读取txt时就可以一起计算了。
或者dim spl() as string
spl = split(text1.text ,vbcrlf)
msgbox "共有" & ubound(spl) & "行数据"
如果是一行写不下分2行写算2行的话，那要用api

如果你是用Input方式读取文件，请改用Line Input（见后）
如果你是Line Input方式读取，请在每个循环中将一个变量+1（记录行数）
如果你是用FSO，请改用Line Input（见后）

Line Input的正确方式：
Dim allStr As string,lStr as string,lCount as long
Open "文件路径" For Input As #1
do until eof(1)
line input #1,lStr
lCount=lCount+1
allStr=allStr+lStr+vbcrlf
loop
Close #1
Text1.Text = Left(allStr,Length(allStr)-1) '最后一起输入进TextBox这样可以大幅度提高读取速度
Msgbox "共有" & cStr(lCount) & "行"

open xxx for input as #1 count!=0 do while not eof(1) line input #1,tmp$ count!=count!+1 loop count!就是行数，xxx是文件路径