| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 756 人关注过本帖
标题:[求助]关于CSV文件的处理的问题
只看楼主 加入收藏
skyeyes
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-8-20
收藏
 问题点数:0 回复次数:0 
[求助]关于CSV文件的处理的问题
VSC格式中:
每条记录占一行
以逗号为分隔符
逗号前后的空格会被忽略
字段中包含有逗号,该字段必须用双引号括起来
字段中包含有换行符,该字段必须用双引号括起来
字段前后包含有空格,该字段必须用双引号括起来
字段中的双引号用两个双引号表示
字段中如果有双引号,该字段必须用双引号括起来

据个例子
a.csv
123,"a""bc","de,f",ghi

取得的值应该是
[0] => 123
[1] => a""bc
[2] => de,f
[3] => ghi

我现在写的程序里
Public Function CntRow(strFileName As String) As Long
Dim fno As Integer
Dim lngCnt As Long
Dim lngRow As Long
Dim strRec As String

fno = FreeFile
Open strFileName For Input As #fno

Line Input #fno, strRec
Close #fno

For lngCnt = 1 To Len(strRec)
If Mid(strRec, lngCnt, 1) = "," Then
lngRow = lngRow + 1
End If
Next lngCnt
CntRow = lngRow + 1
End Function

使用逗号来作判断来读取csv文件的内容,但是在遇到上面的几种特殊情况,得别是“字段中包含有逗号,该字段必须用双引号括起来”的情况时完全取乱了。

请教大家在读取csv文件时都用的是什么方法。能否解决上述问题


[此贴子已经被作者于2007-9-20 9:41:14编辑过]

搜索更多相关主题的帖子: 文件 CSV 
2007-09-20 09:30
快速回复:[求助]关于CSV文件的处理的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.014981 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved