用BAT能不能处理这样格式的文本内容？

wh123wh123

原A.txt内容格式如下：

-------------第几情况-----------------------------
1--基础姓名
2--性别
3--年龄
4--职业
-------------情况说明----------------------------
5.--考分28
6.--面试
7.--不合格


要求通过批处理处理后效果如下并输出到B.txt里：

{-------------第几情况-----------------------------}
基础姓名:GTIOU(1,0,0);
性别:GTIOU(2,0,0);
年龄:GTIOU(3,0,0);
职业:GTIOU(4,0,0);
{-------------情况说明----------------------------}
考分28:GTIOU(5,0,0);
面试:GTIOU(6,0,0);
不合格:GTIOU(7,0,0);

也就是在每行的后面追加“:GTIOU(这里是每行最前面的数值,0,0);”把每行最前面的数字移动到括号里......以此类推
，希望老师用BAT写一个这个的功能的代码吧，谢谢了

77七

1. @echo off
   
2. set "file=1.txt"
   
3. 
   
4. set a=(
   
5. set b=)
   
6. (for /f "tokens=1* delims=:" %%a in ('findstr /n .* "%file%"') do (
   
7.         set str=%%b
   
8.         setlocal enabledelayedexpansion
   
9.         if "!str!" equ "" (
   
10.                 echo=
    
11.         ) else if "!str:~0,3!" equ "---" (
    
12.                 echo {!str!}
    
13.         ) else (
    
14.                 echo !str!|findstr "^[0-9]" 1>nul && (
    
15.                         for /f "tokens=1* delims=.-" %%c in ("!str!") do (
    
16.                                 echo %%d:GTIOU!a!%%c,0,0!b!;
    
17.                         )
    
18.                 ) || echo !str!
    
19.         )
    
20.         endlocal
    
21. ))>2.txt
    
22. pause

复制代码

hlzj88

1. @echo off
   
2. for /f "delims=" %%i in (a.txt) do echo %%i|findstr /i "情况"&&echo {%%i}>>b.txt || for /f "tokens=1,2 delims=.-" %%k in ('echo %%i') do echo %%l:GTIOU^(%%k,0,0^);>>b.txt

复制代码

仅以顶楼示例做了测试。

pd1

1. powershell -c "gc .\A.txt|%{if($_[0] -eq '-'){'{'+$_+'}'}else{$_.substring($_.LastIndexOf('-')+1)+':GTIOU('+$_[0]+',0,0);'}}>B.txt"

复制代码

Five66

1. 
   
2. @set @theCopyLeft=0;/* 0& echo off
   
3. 
   
4. set "inflie=aaa.txt"
   
5. set "outfile=bbb.txt"
   
6. set "add=:GTIOU(数字,0,0);"
   
7. 
   
8. type  "%inflie%" | cscript //nologo //e:jscript "%~f0" "%add%" >"%outfile%"
   
9. echo done&pause&exit/b
   
10. rem */
    
11. 
    
12. var a,b=WScript.Arguments.Length?WScript.Arguments(0):":GTIOU(数字,0,0);";
    
13. while (!WScript.StdIn.AtEndOfStream) {
    
14. f = WScript.StdIn.ReadLine();
    
15. if(!f){WScript.Echo(f);continue;}
    
16. a=f.replace(/^(\d)+[.-]+/,'');
    
17. if(f.substr(0,4)=="----")WScript.Echo('{'+f+'}');
    
18. else if(RegExp.$1 && RegExp.$1 !='nil' && a)WScript.Echo(a+b.replace("数字",RegExp.$1));
    
19. else WScript.Echo(f);
    
20. "nil".replace(/(nil)/,"");
    
21. }
    
22. 
    

复制代码

Nsqs

1. powershell -noprofile -executionpolicy bypass "gc a.txt|%%{if($_ -match '^-'){"{$_}"}else{$r=[regex]::Matches($_,'(\d+)\.?--(\D+)').groups;"$($r[2]):GTIOU($($r[1]),0,0);"}}" >b.txt
   

复制代码

qixiaobin0715

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. (for /f "tokens=*" %%i in (a.txt) do (
   
4.     set "n=%%i"
   
5.     set /a "n=n"
   
6.     if !n! equ 0 (
   
7.         echo,%%i
   
8.     ) else (
   
9.         for /f "tokens=1* delims=.-" %%j in ("%%i") do (
   
10.             echo,%%k:GTIOU(%%j,0,0^);
    
11.         )
    
12.     )
    
13. ))>b.txt
    
14. pause

复制代码

hfxiang

回复 1# wh123wh123
也可以试一下gawk（ http://bcn.bathome.net/tool/5.1.0/gawk.exe ）

1. 
   
2. gawk -F"\\.?-- " "{if(/^-{8,}.+-{8,}$/){print"{" $0 "}"}else{print $2":GTIOU (" $1 ",0,0);"}}" a.txt>b.txt
   

复制代码