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编辑过]