专家坐堂-求助如何导入TXT文件Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助如何导入TXT文件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81390)

--  作者：zqxzhs
--  发布时间：2016/2/26 15:10:00
--  求助如何导入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"

--  作者：大红袍
--  发布时间：2016/2/26 15:22:00
--

参考代码

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

--  作者：zqxzhs
--  发布时间：2016/2/26 16:29:00
--

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

--  作者：大红袍
--  发布时间：2016/2/26 16:30:00
--

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

nr("第一列") = d

nr("第二列") = n

--  作者：zqxzhs
--  发布时间：2016/2/26 16:31:00
--
日期，时间能分开吗，写成日期、时间、姓名循环写入到表A

--  作者：大红袍
--  发布时间：2016/2/26 16:37:00
--
        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

--  作者：zqxzhs
--  发布时间：2016/2/26 17:23:00
--
做到了，谢谢版主！