现在我有一个tser数据，我编写了如下代码
Open "C:\Users\DELL\Desktop\001.tser" For Input As #1
  Do While Not EOF(1)
    ReDim s1(i)
    Line Input #1, s
    s1(i) = s
'  Print s1(i)
    i = i + 1
  Loop
  While InStr(s, "  ") '空格处理
    s = Replace(s, "  ", " ")
    Wend
 '   Print s
Close #1
   s1 = Split(s, vbCrLf)
  Print UBound(s1)
这里print 输出的 ubound（s1）为0
这是为什么呢，大神帮我看看，我主要就是想能够把这个s分行就可以
这是附件数据

在补充一下，就是要很多次要读入这样的数据，我是不是需要建立一个function函数来做或者是添加成模块呢
其次vb中批处理怎么做啊？
问题比较多，希望有一位好心人帮助做我的师傅谢谢了

[ 本帖最后由 lovechang198 于 2013-7-31 21:57 编辑 ]

如果这样的话那s应该只有最后一行的内容
但是我print s时整个文件的字符都有是怎么回事呢？

谢谢您，给的代码可以完成。

怪不得这样呢，谢谢你，感觉这个论坛充满爱啊

还有一个问题就是这个帖子里面2楼我说的。
我有很多次要读取这种数据，而且最后要得到的数据基本都是数组，这样做一个function函数或者过程是不是比较好呢
另外批处理是怎么回事，是不是我可以把所有的读入数据的过程全部交给批处理来做？

关于这个function我不是很理解，能不能举个简单的例子，让它能够实现这个功能
比如我桌面有001到004四个文件，都要输出为数组？该怎么弄代码呢？
想了很久这个文件可以用自变量i来代替，可是怎么要做到输出数组呢
function array(i as integer) as single
.....
end function
for i =1 to 4
array(i)
s（）=array(i)
next i

这样最后能得到我想要的数组么？

大神，我想要多次读取这种数据，我不会做这样的代码，比如这是130730
那下次就是130731这样的形式，能不能帮我写一个函数，只要把时间传递给函数
就能得到相应的数据数组？