VB读取CSV

发布时间：2020-12-16 22:49:51 所属栏目：大数据来源：网络整理

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

现在有个cvs文件：
1,1,1
2,2,2
3,3,3
4,4,4
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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!