如何用VB读取文本文件

[opaque]

我用传统的方法打开顺序文件
open "filename" for input as #1
Do while not eof(1)
inchar=input(3,#1) '每3个字节读一个数 并赋给变量
。。。。。。
但文本中的数字长度不定读取出错
可不可以根据空格来区分数据 请高手指点

[mndsoft]

用FSO读取，比较准确！

[mndsoft]

dim Fils
Set Fils = Fso.OpenTextFile("filename", ForReading)
Tempstr = Fils.ReadLine

然后再取所要的长度！

[Alicky]

'下面是根据空格来分段
dim o_Array() as integer
o_Array() = Split(str1, " ", , vbTextCompare) 'str1就是你读的那一行