主题：关于csv文件导入，正则表达式解析错误的情况

 使用下面的代码来导入csv文件的数据，先讲csv文件后缀名改为txt：

Dim dlg As new OpenFileDialog
dlg.Filter = "文本文件|*.txt"
If dlg.ShowDialog = DialogResult.OK Then
    Dim strs As String = FileSys.ReadAllText(dlg.FileName,encoding.default)
    strs = strs.Replace(vblf,"")
    Dim rs() As String = strs.Split(vbcr)    
    Dim cs As New List(Of String)
    Dim mc = System.Text.RegularExpressions.Regex.Matches(rs(6), "(?<="").+?(?="")|(?<=,|^)[^""]*?(?=,|$)")
    For j As Integer = 0 To mc.count-1
        output.show(mc(j).value.trim(","))
    Next
End If

但是对于第二行记录中，数据为空的，在解析时，无法正常作为一个空值来对应到相应的字段，比如年龄和工龄，请蓝版对Dim mc = System.Text.RegularExpressions.Regex.Matches(rs(6), "(?<="").+?(?="")|(?<=,|^)[^""]*?(?=,|$)")   进行优化。

 蓝版上面的正则表达式是您之前回答其他用户关于csv文件导入时，您提供的，我只是参考，直接拿过来使用，在实际使用的过程中，发现对于值为空的数据，输出的情况不正常，比如下面的数据：

使用如下的语句进行读取后，结果有问题：

Dim dlg As New OpenFileDialog
dlg.Filter = "文本文件|*.txt"
If dlg.ShowDialog = DialogResult.OK Then
    Dim strs As String = FileSys.ReadAllText(dlg.FileName, encoding.default)
    strs = strs.Replace(vblf, "")
    Dim rs() As String = strs.Split(vbcr)
    For i As Integer = 1 To rs.Length - 1
        Dim cs As New List(Of String)
        Dim mc = System.Text.RegularExpressions.Regex.Matches(rs(i), "(?<="").+?(?="")|(?<=,|^)[^""]*?(?=,|$)")
        For j As Integer = 0 To mc.count - 1 Step 2
            output.show(mc(j).value.trim(","))
        Next
    Next
End If

上面语句运行后：

对于张三的输出是正确的，但对于李四的输出就错了，一是出现了一个" 符号，另外也少了一行，我想要的原文本文件中李四的年龄和工龄为空值，那么在这里输出的应该也是两个空值。

帮助里的

 使用"|"符号等还是不保险，因为客户的数据千奇百怪，还是使用下面的方式来做：

Dim dlg As New OpenFileDialog
dlg.Filter = "文本文件|*.txt"
If dlg.ShowDialog = DialogResult.OK Then
    Dim strs As String = FileSys.ReadAllText(dlg.FileName, encoding.default)
    strs = strs.Replace(vblf, "")
    Dim rs() As String = strs.Split(vbcr)
    For i As Integer = 1 To rs.Length - 1
        Dim cs() As String = rs(i).Split(""",""")
        For j As Integer = 1 To cs.Length - 1 Step 2
            output.show("记录： " & cs(j).trim(","))
        Next
    Next
End If

输出的结果没有问题了：

 使用"|"符号等还是不保险，因为客户的数据千奇百怪，还是使用下面的方式来做：

Dim dlg As New OpenFileDialog
dlg.Filter = "文本文件|*.txt"
If dlg.ShowDialog = DialogResult.OK Then
    Dim strs As String = FileSys.ReadAllText(dlg.FileName, encoding.default)
    strs = strs.Replace(vblf, "")
    Dim rs() As String = strs.Split(vbcr)
    For i As Integer = 1 To rs.Length - 1
        Dim cs() As String = rs(i).Split(""",""")
        For j As Integer = 1 To cs.Length - 1 Step 2
            output.show("记录： " & cs(j).trim(","))
        Next
    Next
End If

输出的结果没有问题了：