标题：[求助]高手，看看这样的TXT文件怎样在狐表中转换成以下样式
不知狐表能否转换，因后期牵涉到数据处理，所以这样
转换后的样式数据格式为22.txt，一一对应！！
不知怎样处理，狐表还没有学会，请各位老师指教，谢谢！！！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:1.txt |
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:22.txt |
http://bbs.egrid2000.com/cgi-bin/topic.cgi?forum=9&topic=16827&show=0
暂时还没有时间摸索狐表，当然现在的我还不知学习狐表从哪里下手呢，哈哈！！
当然有哪位有时间帮我用狐表做一下上述问题的转换，我也好有所参考学习！
期待吧！
谢谢czy大哥！辛苦了
思路，读取文本文件，用Split拆分成行，再用Split拆分每行，然后填入到对应的字段即可。
本想一键导入并生成楼主要的结果，可是用代码导入文本时，无法自定义分隔符，用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
用ACCESS导入文件，再用这个ACCESS作为数据源，不好吗？