- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关于转换数据的问题。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=144861)
-- 发布时间：2020/1/1 10:06:00
-- [求助]关于转换数据的问题。
由于自己水平有限，用foxtale做的软件上不了台面，之前录入的数据想转换入管家婆。只转换销售出货部分。生产部分将来继续用foxtable。
自己做的出货记录是这样的 如图8.jpg，而管家婆导入的数据是用txt文档储存的，转换成foxtable格式后是这样的如图10.jpg
我想用foxtable 把我的出货记录图8.jpg，转换成图10.jpg的格式，请问如何实现呢？
foxtable出货记录
此主题相关图片如下：8.jpg
管家婆出货记录
此主题相关图片如下：10.jpg
-- 发布时间：2020/1/2 9:09:00
--
管家婆导入的数据txt文档格式是怎么样的，有没有相关说明？
-- 发布时间：2020/1/6 16:40:00
--
管家婆导入销售数据的源文件是txt格式文件，源文件格式大概是这样子的。
此主题相关图片如下：12.jpg
[此贴子已经被作者于2020/1/6 16:43:01编辑过]
-- 发布时间：2020/1/6 16:52:00
--
这种不能直接导入的，需要使用这种方法导入：http://www.foxtable.com/webhelp/topics/2629.htm
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 = 1 To rs.Length - 1
Output.Show(i & "---------------")
Dim cs() As String = rs(i).Split(vbtab)
For j As Integer = 0 To cs.Length - 1
Output.Show(cs(j))
Next
Next
End If
Tables("表A").ResumeRedraw