【已解决】批处理如何从文件第4行开始在每行末尾添加行号？

chishingchan

例如：a.txt 的内容如下：

1. AA
   
2. BB
   
3. CC
   
4. ab
   
5. ba
   
6. cd
   
7. dc
   
8. eee
   
9. ffffff
   
10. .
    
11. .
    
12. .
    
13. 此处省略了 nnn 行
    

复制代码

从第 4 行开始，在每行的行尾添加行号，最终 b.txt 的内容如下：

1. AA
   
2. BB
   
3. CC
   
4. ab1
   
5. ba2
   
6. cd3
   
7. dc4
   
8. eee5
   
9. ffffff6
   
10. .
    
11. .
    
12. .
    

复制代码

求批处理，谢谢！

已解决。容易理解的整理如下：

1. @echo off
   
2. cd /d %~dp0
   
3. type nul>b.txt
   
4. for /f "tokens=1* delims=:" %%a in ('findstr /n ".*" a.txt') do (
   
5.         if %%a lss  4 (
   
6.                 echo:
   
7.         ) else (
   
8.                 for /f %%n in ('set/a %%a-3') do echo.%%b%%n>>b.txt
   
9. 
   
10.         )
    
11. )
    

复制代码

flashercs

1. @echo off
   
2. cd /d "%~dp0"
   
3. @REM 起始行数
   
4. set begin=4
   
5. 
   
6. set /a n=1-begin
   
7. (
   
8. for /f "delims=" %%A in (1.txt) do (
   
9.   set /a "n+=1"
   
10.   setlocal enableDelayedExpansion
    
11.   for %%B in (!n!) do (
    
12.     endlocal
    
13.     if %%B lss 1 (
    
14.       echo %%A
    
15.     ) else (
    
16.       echo %%A%%B
    
17.     )
    
18.   )
    
19. )
    
20. )>2.txt
    
21. 
    
22. pause
    
23. exit /b
    

复制代码

Five66

文件 ,行数 ,编码可自行设置(3-5行)
运行后会添加前缀@@new_创建新文件

1. 
   
2. @set @do_not_save_as_utf8=1;/*&echo off
   
3. 
   
4. set file=a.txt
   
5. set line_add=4
   
6. set encoding=gbk
   
7. 
   
8. cscript //nologo //e:jscript "%~f0" "%file%" "%line_add%" "%encoding%"
   
9. echo,&echo done&pause&exit /b 0 */
   
10. 
    
11. (function(argv,stdin,stdout,stderr,wscript,nil,not_nil){if(!argv.length)return;
    
12. 
    
13. var p=argv(0).split(/\\|\//);
    
14. var file_in=file_new(argv(0),'r',argv(2));
    
15. var file_out=file_new(nil,'w',argv(2));
    
16. 
    
17. if(!file_in){
    
18. wscript.echo('open file '+argv(0)+' error');
    
19. file_out.close();
    
20. wscript.quit();
    
21. }
    
22. 
    
23. 
    
24. var str=file_in.readtext(8192);
    
25. file_in.position=0;
    
26. var l=str.match(/\r\n?|\n/);
    
27. if(l){
    
28. if('\n'==l[0])file_in.lineseparator=10;
    
29. if('\r'==l[0])file_in.lineseparator=13;
    
30. if('\r\n'==l[0])file_in.lineseparator=-1;
    
31. }else{file_in.lineseparator=-1;}
    
32. file_out.lineseparator=file_in.lineseparator;
    
33. 
    
34. var i=0,line_add=argv(1)>0?argv(1)-1:0;
    
35. while(!file_in.eos){
    
36. str=file_in.readtext(-2);
    
37. if(line_add){
    
38. line_add--;
    
39. file_out.writetext(str,1);
    
40. }else{
    
41. i++;
    
42. file_out.writetext(str+i,1);
    
43. }}
    
44. 
    
45. file_out.savetofile('@@new_'+p.pop(),2);
    
46. file_in.close();
    
47. file_out.close();
    
48. 
    
49. function file_new(n,m,e){var t=2,r=GetObject('new:adodb.stream');try{if(e)r.charset=e;
    
50. if(-1!=m.indexOf('b'))t=1;r.type=t;r.open();if(n&&''!=n)r.loadfromfile(n);}catch(l){r=nil}
    
51. return r;}
    
52. })(WScript.Arguments,WScript.StdIn,WScript.StdOut,WScript.StdErr,WScript,null);
    

复制代码

aloha20200628

回复 1# chishingchan

1. 
   
2. @echo off &(for /f "tokens=1* delims=:" %%a in ('findstr /n ".*" a.txt') do if %%a lss  4 (echo.%%b) else for /f %%n in ('set/a %%a-3') do echo.%%b%%n)>b.txt
   
3. pause&exit/b
   

复制代码

hfxiang

回复 1# chishingchan

用gawk（ http://bcn.bathome.net/tool/4.1.0/gawk.exe ）的实现方式如下：

1. 
   
2. gawk "NR>3{A=NR-3;$0=$0 A}1" 1.txt>2.txt
   

复制代码

aloha20200628

在不用外部脚本也不开启变量延迟的前提下，再给一个可明显提升效率的版本如下，其动因可参考 http://www.bathome.net/viewthrea ... mp;extra=#pid290105 14楼说明..

1. 
   
2. @echo off &(for /f "tokens=1* delims=:" %%a in ('findstr /n ".*" a.txt') do if %%a lss  4 (echo,%%b) else set/a "v=%%a-3" &call echo,%%b%%v%%)>b.txt
   
3. pause&exit/b
   

复制代码