主题：[求助]高手，看看这样的TXT文件怎样在狐表中转换成以下样式

转换前转换格式为1.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作为数据源，不好吗？