Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

 dlg.Filter= "Excel文件|*.csv" '设置筛选器
        Dim strs As String = FileSys.ReadAllText(dlg.FileName, encoding.default)
        Dim rs() As String = strs.Split(chr(10))
        For i As Integer = 1 To rs.Length-2
            Dim s() As String = rs(i).Split(",")
            Dim nr As DataRow = DataTables("精简数据库").AddNew

             nr("根本死亡原因") = s(0)
             nr("根本死亡原因ICD编码") = s(1)
        Next

 

如上代码，当我导入csv格式读取数据的时候，那第一行来说，假如csv上s(0)=支气管或肺，未特指 s(1)=C34.9。因为，作为分隔符的问题，实际上导入的nr("根本死亡原因") =支气管或肺 nr("根本死亡原因ICD编码") =未特指。能否有办法对单元格内的，不分割。

直白一点的话就是

如果CSV某单元格的数据本身含有逗号，这里如何避免分隔出错？

你csv文件发上来测试。

这个文件试一下

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:1-8月户籍死亡测试.zip

1、你的文件看了一下，中间逗号是，和分割的逗号, 是不同的。

 

2、代码不影响你这个excel文件的数据的读取吧？如果影响，说明第几行有问题。

偶尔存在一些事用英文符号的，我用txt看了下，有英文符号，的都加了双引号，能否先对双引号进行判断。

传的文件倒数第三行就有问题："未特指的机动车辆事故中的人员损伤,交通性",V89.2

参考代码

 

Dim str As String = """脑梗死,未特指"",I63.9,""123,456789,123333"",abc"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<="").+?(?="")|(?<=,|^)[^""]*?(?=,|$)")
For i As Integer = 0 To mc.count-1
    msgbox(mc(i).value.trim(","))
Next

参考

 

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.csv" '设置筛选器
If dlg.ShowDialog = DialogResult.OK Then
    Dim strs As String = FileSys.ReadAllText(dlg.FileName, encoding.default)
    Dim rs() As String = strs.Split(chr(10))
    For i As Integer = 1 To rs.Length-2
        Dim mc = System.Text.RegularExpressions.Regex.Matches(rs(i), "(?<="").+?(?="")|(?<=,|^)[^""]*?(?=,|$)")
        For j As Integer = 0 To mc.count-1
            output.show(mc(j).value.trim(","))
        Next
        'Dim nr As DataRow = DataTables("精简数据库").AddNew
        'nr("根本死亡原因") = mc(0).value
        'nr("根本死亡原因ICD编码") = mc(1).value
    Next
End If

OK，刚刚用了笨方法临时解决了下