中国DOS联盟

我有data.txt文本，内容如下：

1 135817 C178189 16 ￥32 3 * 3 * 0 31 10 31 3 * * 0 * 10 1 出票 撤销 过期 下载
2 135935 C177784 48 ￥96 3 * * 31 * 310 * 3 31 30 31 * 10 0 1 出票 撤销 过期 下载
3 135943 C178126 16 ￥32 31 30 * 31 0 * 0 3 3 * * 0 * 10 1 出票 撤销 过期 下载
4 135989 C178199 1 ￥2 3 * 3 * * 3 0 3 3 * * 0 0 0 1 出票 撤销 过期 下载
5 135990 C178199 1 ￥2 3 * 3 * 0 3 * 3 3 * * 0 0 0 1 出票 撤销 过期 下载
6 135991 C178199 1 ￥2 3 * 3 * 0 3 0 3 3 * * 0 0 * 1 出票 撤销 过期 下载
7 135992 C178199 1 ￥2 3 * 3 3 * 3 * 3 3 * * 0 0 0 1 出票 撤销 过期 下载
8 135993 C178199 1 ￥2 3 * 3 3 * 3 0 3 3 * * 0 0 * 1 出票 撤销 过期 下载
9 135994 C178199 1 ￥2 3 * 3 3 0 3 * 3 3 * * 0 0 * 1 出票 撤销 过期 下载
10 135995 C178199 1 ￥2 3 0 3 * * 3 * 3 3 * * 0 0 0 1 出票 撤销 过期 下载

我想通过批处理把以上内容转换成以下格式，要求是：
1、删除前5列数据
2、从第6列的数据开始到19列的数据逢两位数和三位数就加括号，如30变成(30)
3、删除后20--24列数据
4、然后输出两个文件分别为1.TXT 2.TXT，1.TXT中包含所有带括号的数据，2.TXT中包含所有不带括号的数据

转换后格式如下

1.TXT
3*3*0(31)(10)(31)3**0*(10)
3**(31)*(310)*3(31)(30)(31)*(10)0
(31)(30)*(31)0*033**0*(10)

2.TXT
3*3**3033**000
3*3*03*33**000
3*3*03033**00*
3*33*3*33**000
3*33*3033**00*
3*3303*33**00*
303**3*33**000

请高手指点，谢谢！

[ Last edited by hbby on 2007-10-20 at 11:13 PM ]

10为什么不加？

10也加

echo off
@for /f "tokens=6-19" %%a in (a.txt) do (
echo %%a %%b %%c %%d %%e %%f %%g %%h %%i %%j %%k %%l %%m %%n|sed "s//\(&\)/g"|sed "s/ *//g"|more>>hbby_DATE.txt
)
sed "/^$/d" hbby_DATE.txt|sed -e "1,3w 1.txt" -e "4,$w 2.txt"
del hbby_DATE.txt
pause

[ Last edited by junchen2 on 2007-10-20 at 08:49 PM ]

@echo off&set ji=2 setlocal EnableDelayedExpansion for /f "tokens=5* delims= " %%a in (a.txt) do ( set var= %%b set var=!var: *= #! set var=!var: 出票=$! set lis=!var:*$=! call set lis=%%var:!lis!=%% for %%i in (!lis!) do set ti=%%i call set var=%%lis:!ti!=%% for %%i in (!var!) do ( set num=%%i if not "!num:~1,1!"=="" (set str=!str!^(%%i^)&set ji=1) else set str=!str!%%i ) set str=!str:#= *! set str=!str: =! echo !str!>>!ji!.txt set str= set ji=2 ) pause

[ Last edited by 26933062 on 2007-10-20 at 10:55 PM ]

感谢4、5楼的老哥，四楼大哥输出有问题，还不是很完善
5楼的大哥结果有误，请你们在帮我想想，谢谢

看错题目要求.....哎

[ Last edited by vkill on 2007-10-20 at 09:44 PM ]

我测试没有问题。

@echo off&setlocal EnableDelayedExpansion
for /f "tokens=6,7,8,9,10,11,12,13,14,15,16,17,18,19" %%a in (list.txt) do @Call :MySub %%a %%b %%c %%d %%e

%%f %%g %%h %%i %%j %%k %%l %%m %%n

pause>nul
GOTO :EOF

:MySub
Set StrAll=
:loop
Set Temp=%1
if %Temp:~0,1%==%1 Set StrAll=%StrAll%%1
if not %Temp:~0,1%==%1 Set StrAll=%StrAll%(%1)

shift
if "%1" == "" goto :Break
goto loop

:Break
echo %StrAll%

自己最后findstr下括号就可以分开了。

各位老大思路都很好，就是希望各位大哥帮我测试下结果，我测试总是不行，谢谢大家

Originally posted by hbby at 2007-10-20 21:12:
各位老大思路都很好，就是希望各位大哥帮我测试下结果，我测试总是不行，谢谢大家

如果不行就是你的表述错误，你自己看着改改 了

测试过的……

截图现在传不了……

data.awk:
{ flag=0; for(i=1;i<=NF;i++){ if(i<6||i>19){ $i=""; }else{ if(length($i)>1){ flag+=1; $i="("$i")"; } } } gsub(//,""); if(flag>0){print $0>"1.txt"}else{print $0>"2.txt"} }

命令行执行:
gawk -f data.awk data.txt

gawk 为外部工具，自己上网找找。

junchen2大哥，我导这个数据就出错了
1 137076 C178356 64 ￥128 30 * 3 31 * 31 * 30 3 31 * 0 * 10 1 出票 撤销 过期 下载
2 137077 C178357 16 ￥32 3 * * 31 0 * 0 31 31 * * 0 30 0 1 出票 撤销 过期 下载
3 137104 C178361 16 ￥32 30 * 3 * 10 31 * 3 3 * 31 0 * 0 1 出票 撤销 过期 下载
4 137105 C178362 1 ￥2 1 * 3 1 0 * * 3 * 1 1 * 3 0 1 出票 撤销 过期 下载
5 137147 C178233 64 ￥128 31 30 3 3 * 31 10 30 * * * 0 * 10 1 出票 撤销 过期 下载
6 137196 C178373 32 ￥64 3 10 3 30 * * * 3 * 31 31 30 0 * 1 出票 撤销 过期 下载
7 137197 C178341 8 ￥16 3 31 3 31 0 * 10 * 3 * * 0 * 0 1 出票 撤销 过期 下载
8 137198 C178264 32 ￥64 3 * 3 31 * 3 10 30 3 30 31 * * * 1 出票 撤销 过期 下载
9 137204 C178374 4 ￥8 * 0 3 3 10 3 0 3 * * * 0 * 10 1 出票 撤销 过期 下载
10 137205 C178374 4 ￥8 3 * 3 3 10 3 0 3 * * * 0 * 10 1 出票 撤销 过期 下载
11 137206 C178374 4 ￥8 3 0 * 3 10 3 0 3 * * * 0 * 10 1 出票 撤销 过期 下载
12 137207 C178374 4 ￥8 3 0 3 * 10 3 0 3 * * * 0 * 10 1 出票 撤销 过期 下载
13 137208 C178374 4 ￥8 3 0 3 3 10 * 0 3 * * * 0 * 10 1 出票 撤销 过期 下载
14 137209 C178374 4 ￥8 3 0 3 3 10 3 * 3 * * * 0 * 10 1 出票 撤销 过期 下载
15 137210 C178374 4 ￥8 3 0 3 3 10 3 0 * * * * 0 * 10 1 出票 撤销 过期 下载
16 137211 C178374 4 ￥8 3 0 3 3 10 3 0 3 * * * * * 10 1 出票 撤销 过期 下载
17 137227 C178369 32 ￥64 * 0 31 * * 31 10 3 * * 1 0 10 10 1 出票 撤销 过期 下载
18 137231 C178376 1 ￥2 * 0 3 1 * * 1 1 * 1 3 * 0 1 1 出票 撤销 过期 下载
19 137234 C178378 1 ￥2 * 0 3 1 1 3 * 3 1 * * 0 * 0 1 出票 撤销 过期 下载
20 137246 C178310 384 ￥768 31 * 3 31 * 31 10 31 * * * 10 310 10 1 出票 撤销 过期 下载

我刚才未考虑3位数，等我在改一下

[ Last edited by junchen2 on 2007-10-20 at 09:55 PM ]