主题：求助如何导入TXT文件

参考代码

Dim dlg As new OpenFileDialog
dlg.Filter = "文本文件|*.txt"
Tables("表A").StopRedraw
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 = 0 To rs.Length - 1
        Dim cs() As String = rs(i).Split(" ")
        'For Each s As String In cs
        '    output.show(s)
        'Next
        If cs.length > 5 Then
            Dim d As String = cs(0).split("=")(1).replace("""", "") & " " & cs(1).replace("""", "")
            msgbox(d)
            Dim n As String = cs(3).split("=")(1).replace("""", "")
            msgbox(n)
        End If
    Next
End If
Tables("表A").ResumeRedraw

Dim nr As Row = Tables("表A").AddNew

nr("第一列") = d

nr("第二列") = n