- 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=5052)
-- 发布时间：2009/11/19 15:48:00
-- [求助]高手，看看这样的TXT文件怎样在狐表中转换成以下样式
转换前转换格式为1.txt样式数据文件，当然其中数据量很大，我只是做了一个样式表
不知狐表能否转换，因后期牵涉到数据处理，所以这样
转换后的样式数据格式为22.txt，一一对应！！
不知怎样处理，狐表还没有学会，请各位老师指教，谢谢！！！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:1.txt |
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:22.txt |
-- 发布时间：2009/11/19 15:54:00
--
http://bbs.egrid2000.com/cgi-bin/topic.cgi?forum=9&topic=16827&show=0
-- 发布时间：2009/11/19 20:40:00
--
暂时还没有时间摸索狐表，当然现在的我还不知学习狐表从哪里下手呢，哈哈！！
当然有哪位有时间帮我用狐表做一下上述问题的转换，我也好有所参考学习！
期待吧！
谢谢czy大哥！辛苦了
-- 发布时间：2009/11/19 23:59:00
--
狐表转换这种东西，比易表轻松多了。
思路，读取文本文件，用Split拆分成行，再用Split拆分每行，然后填入到对应的字段即可。
-- 发布时间：2009/11/20 17:27:00
--
本想一键导入并生成楼主要的结果，可是用代码导入文本时，无法自定义分隔符，用ip.Format = "Delimited" 却把逗号当分隔符～ 郁闷！ 只好手工导入了，步骤如下：
\'1 从菜单选择 导入 文本文件 1.txt （选择自定义分隔符，不填任何字符）, 导入的表名为:导入txt 确定
\'2 在狐表中建立一个表，表名为: 转换后的样式 ,结构按你文本22.txt的一样, （应该是楼主现成的，表名不同而已）
\'3 做一个窗口按钮(或在命令窗口中)加下面代码:
dim a as integer =Tables("转换后的样式").count
Tables("转换后的样式").AddNew(tables("导入txt").count/9)
dim r as integer
for i as integer = 0 to tables("导入txt").count-1 step 9
if i < tables("导入txt").count-1
tables("导入txt").position = i
dim n as integer = tables("导入txt").position
Tables("转换后的样式").rows(a+r)(Tables("转换后的样式").cols(0).name) = tables("导入txt").rows(n)("导入格式")
for c as integer = 1 to 6
Tables("转换后的样式").rows(a+r)(Tables("转换后的样式").cols(c).name) = tables("导入txt").rows(n+c)("第一列").split(":")(1)
next
r=r+1
end if
next
-- 发布时间：2009/11/20 21:44:00
--
用ACCESS导入文件，再用这个ACCESS作为数据源，不好吗？