- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教打考机导出文本文件数据导入操作代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=183027)
-- 发布时间：2022/10/23 13:20:00
-- 请教打考机导出文本文件数据导入操作代码
导出单位考勤机记录，为文本文件，这个文本文件格式与常规文本文件不一样。请问结合foxtable的导入功能，请老师们提供思路或导入代码。谢谢了
文件记录见附件。
文本文件格式如下图片（第一行和最末一行不一样，中间记录即是字段名=“值”，值用引号标出来
：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:打卡记录.txt |
：
-- 发布时间：2022/10/23 13:21:00
--
我用开发版刚学狐表不久，求助各位老大了。这个对我来讲，有点难呀。
-- 发布时间：2022/10/23 20:49:00
--
参考：http://www.foxtable.com/webhelp/topics/2629.htm，比如
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 = 1 To rs.Length - 2
Dim cs() As String = rs(i).Split(" ")
If cs.Length = 6 Then
\'Dim dr As DataRow = DataTables("表A").Addnew()
Dim s As String = cs(0) & " " & cs(1)
Dim ss() As String = s.Split("=")
\'dr(ss(0)) = ss(1).Trim("""")
Output.Show(ss(0) & "," & ss(1).Trim(""""))
For j As Integer = 2 To cs.Length - 1
Dim c1 As String = cs(j)
If c1.Trim() = "" Then Continue For
ss = c1.Split("=")
Output.Show(ss(0) & "," & ss(1).Trim(""""))
\'dr(ss(0)) = ss(1).Trim("""")
Next
End If
Next
End If
\'Tables("表A").ResumeRedraw
-- 发布时间：2022/10/25 11:27:00
--
谢谢，解决了。