如何用VB读取文本文件

Question

我用传统的方法打开顺序文件
open "filename" for input as #1
Do while not eof(1)
inchar=input(3,#1) '每3个字节读一个数 并赋给变量

但文本中的数字长度不定读取出错
可不可以根据空格来区分数据 请高手指点

Answer 1

dim Fils
   Set Fils = Fso.OpenTextFile("filename", ForReading)
   Tempstr = Fils.ReadLine  然后再取所要的长度！

Answer 2

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