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

请教：从考勤机内导出的txt文件，怎样导入到foxt中呢，格式如下：

time="2016-01-21 07:51:31" id="56" name="蔡维信" authority="0X55" card_src="from_check"
time="2016-01-21 07:54:42" id="1" name="苏振西" authority="0X55" card_src="from_check"
time="2016-01-21 07:55:43" id="301" name="王芳" authority="0X55" card_src="from_check"
time="2016-01-21 07:58:57" id="308" name="宋丹丹" authority="0X55" card_src="from_check"

参考代码

 

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

怎么把时间，姓名写入表A中呢

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

nr("第一列") = d

nr("第二列") = n

日期，时间能分开吗，写成日期、时间、姓名循环写入到表A

        If cs.length > 5 Then
            Dim d As String = cs(0).split("=")(1).replace("""", "") & " "
            msgbox(d)
            Dim t As String = cs(1).replace("""", "")
            msgbox(t)
            Dim n As String = cs(3).split("=")(1).replace("""", "")
            msgbox(n)
        End If

做到了，谢谢版主！