VB读取CSV

 

现在有个cvs文件： 1,1,1,1,1,1 2,2,2,2,2,2 3,3,3,3,3,3 4,4,4,4,4,4,4,4,4 5,5,5,5,5,5,5,5,5 1.我只要读出1，3，5   行的数据，怎么读，FSO中的skipline好象不行。 2.如果不行，用readall来读，怎么把读出的内容重新按行分开？ 请写关键源代码。 谢了！ 在线等待

dim   s   as   string
s=ts.readall
dim   a  
a=split(s,vbcrlf)
dim   ss   as   string
ss=a(0) '第1行
ss=a(2) '第3行
ss=a(4) '第5行

大致就这样

FSO模型中的TextStream对象：
Dim   FSO   As   New   FileSystemObject
Dim   ts   As   TextStream