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