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


  共有3340人关注过本帖树形打印复制链接

主题:从CSV文件中读取数据,使用逗号','分割问题。

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/9 15:50:00 [显示全部帖子]

你csv文件发上来测试。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/9 16:13:00 [显示全部帖子]

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

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/9 16:47:00 [显示全部帖子]

参考代码

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/9 16:48:00 [显示全部帖子]

参考

 

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


 回到顶部