[求助]关于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编辑过]