---------------------------------------------------------------------------------
|459349     NB   M522                           公司             P12 2010.08.16 |
|  00060 PRDARA123WJZZ      放热板                                   N          |
|        NP2  R171                3,465.000  PC            5.43  RMB       1 PC |
|     仍要交货                        0.000  PC            0.00  RMB     0.00 % |
|     仍要开票                        2.000  PC           10.86  RMB     0.06 % |
|461108     NB   M522                           公司             P12 2010.08.30 |
|  00040 CCHSM3456TPN2      背板                                     C          |
|        NP2  R100                1,470.000  PC          161.99  RMB       1 PC |
|     仍要交货                        0.000  PC            0.00  RMB     0.00 % |
|     仍要开票                    1,470.000  PC      238,125.30  RMB   100.00 % |
---------------------------------------------------------------------------------
TXT内容如上，我要提取结果例：459349,NB,M522,公司，P12，.....2.000,PC,10.86,RMB,0.06%

5行数据

那我想知道怎么能吧TXT中的“|”和“---------------------------------------------------------------------------------”去掉？

Replace(原串,查找内容,替换内容)
你是要去掉，那么就 查找内容 为 |  和  - ，分二次。 替换内容为空串

然后再去掉多余空格， 二个空格换成一个空格，循环条件是 替换后长度不等替换前的长度。
最后，把空格换成 逗号 ，

我的原意是想把这些数据重新排列，然后放到ACCESS里。难搞啊！！

打开文件，
按行读 ， 读6行，并且直接连接起来，中间留一个空格。保存在变量 S 中   防止后面出错。

s=Replace(s,vbcrlf,"")      '去掉 回车 ,如果你读取时不留心带进去的
s=Replace(s,"|","")      '去掉|
s=Replace(s,"-","")      '去掉-
do
i=len(s)
s=Replace(s,"  "," ")    '两个空格换成一个空格
loop while len(s)<>i     '当替换后，字符串长度有变化时，继续替换
s=Replace(s," %","%")    '你的百分号前面 多一个空格，要去掉
s=Replace(s," ",",")     '空格换成 逗号

S 就是你要的值。

回复很认真

不知道ODBC的Text 驱动能否识别。

ODBC有这个功能，不过俺没用过。有经验拿来一起分享下

谢谢了~~