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

本想一键导入并生成楼主要的结果，可是用代码导入文本时，无法自定义分隔符，用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