Foxtable(狐表) → 用户栏目 → 专家坐堂 → 从CSV文件中读取数据，使用逗号','分割问题。

共有3198人关注过本帖树形打印复制链接主题：从CSV文件中读取数据，使用逗号','分割问题。

wzl1990

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：72 积分：755 威望：0 精华：0 注册：2017/10/25 9:48:00

从CSV文件中读取数据，使用逗号','分割问题。 发帖心情

Post By：2018/11/9 15:43:00 [显示全部帖子]

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编码") =未特指。能否有办法对单元格内的，不分割。

wzl1990

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：72 积分：755 威望：0 精华：0 注册：2017/10/25 9:48:00

Post By：2018/11/9 15:49:00 [显示全部帖子]

直白一点的话就是

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

wzl1990

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：72 积分：755 威望：0 精华：0 注册：2017/10/25 9:48:00

上传文件

Post By：2018/11/9 15:57:00 [显示全部帖子]

这个文件试一下

下载信息 [文件大小：下载次数： ]
点击浏览该文件:1-8月户籍死亡测试.zip

wzl1990

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：72 积分：755 威望：0 精华：0 注册：2017/10/25 9:48:00

Post By：2018/11/9 16:18:00 [显示全部帖子]

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

csv文件存在错误的一行：1963/4/19,54岁,1,01 汉族,2,2 已婚,27,27 农民,7,7 初中及以下,本县区,河疃村,3207071600,,本县区,32070716065,河疃村,3207071600,河疃村,32070716065,河疃村,2018/4/5,3,3 家中,韩林,,河疃村,"脑梗死,未特指",I63.9,,,,,,,,,,,,,,,,,脑梗死，未特指,I63.9,2,2 二级医院,4,4 临床+理化,XXX,,2018/5/9,13754,卫生院,,,,,,,,,,,,,2018/5/9 14:45,XXX`26150,1,2018/5/16,,0,死亡卡,录入