参考
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