【已解决】求BAT脚本替换txt的“连续空白行+非空白行句首空格”为指定数目空白行

kokoxx

RT，求大佬出手，写一个替换txt的“连续空白行+非空白行句首空格”的bat

该bat的功能如下

【使用前】
我是奥特曼


我是泰罗

（注：文本内容到此结束）
（注2：上文中“我是泰罗”前面有一个空格，也就是“ 我是泰罗”，但是我这边发帖后显示成“我是泰罗”，但实际应该是“ 我是泰罗”）
【使用后】
我是奥特曼

我是泰罗

（注：文本内容到此结束）
--------

希望bat里要处理的连续空白行数目（x）和连续空白行数目之后的非空白行句首空格数目（y），还有替换后的空白行数目（z），都可以由用户自己在bat源文件里自己指定，也就是做成可以由用户自定义赋值的变量

注：word/wps的确可以实现类似的功能，但处理大体积txt（大于4m）时，会出现卡死和风扇狂转现象……

qixiaobin0715

多个连续空白行合并为一个可使用：

1. more /s 1.txt

复制代码

77七

1. @echo off
   
2. rem 批处理保存为utf-8编码格式
   
3. chcp 65001 >nul
   
4. 
   
5. set /a y=空格=3,x=空白行=2,z=替换行=1
   
6. 
   
7. cd /d "%~dp0"
   
8. setlocal enabledelayedexpansion
   
9. for /l %%l in (1,1,%y%) do (
   
10.         set "l=!l! "
    
11. )
    
12. endlocal & set _y=%l%
    
13. for /f "delims=" %%i in ('dir /b /a-d *.txt') do (
    
14.         setlocal
    
15.         (for /f "tokens=1* delims=[]" %%a in ('find /n /v "" ^<"%%i"') do (
    
16.                 if "%%b" equ "" (
    
17.                         set /a m+=1
    
18.                 ) else if defined m (
    
19.                         set str=%%b
    
20.                         setlocal enabledelayedexpansion
    
21.                         if !m! equ %x% (
    
22.                                 if "!str:~0,%y%!" equ "%_y%" (
    
23.                                         if "!str:~%y%,1!" neq " " (
    
24.                                                 for /l %%l in (1,1,%z%) do (
    
25.                                                         echo=
    
26.                                                 )
    
27.                                                 echo=!str:~%y%!
    
28.                                                 endlocal
    
29.                                                 set m=
    
30.                                         )
    
31.                                 )
    
32.                         )
    
33.                         if defined m (
    
34.                                 for /l %%l in (1,1,!m!) do (
    
35.                                         echo=
    
36.                                 )
    
37.                                 endlocal
    
38.                                 echo=%%b
    
39.                                 set m=
    
40.                         )
    
41.                 ) else (
    
42.                         echo=%%b
    
43.                 )
    
44.         ))>$
    
45.         move $ "%%i"
    
46.         endlocal
    
47. )
    
48. pause

复制代码

kokoxx

回复 3# 77七


    测试通过，多谢大佬！

Five66

不知行否
保存为ansi编码的bat

1. 
   
2. #?&cls&pause&powershell -c "type -literalpath '%~f0'|out-string|iex"&pause&exit
   
3. 
   
4. #空白行数目,0是任意个,n是n个以上
   
5. $x=0
   
6. 
   
7. #空格数,0是任意个,n是n个以上
   
8. $y=0
   
9. 
   
10. #空白行或空格"n个以上"的最大值,设为0时"n个以上"仅有n个
    
11. $lmt=0
    
12. 
    
13. #空白行替换后的行数
    
14. $z=1
    
15. 
    
16. #替换后的空格数
    
17. $z2=0
    
18. 
    
19. #需要处理的文件名或路径,批量处理时改成获取文件(名)的命令
    
20. $f="aaa.txt"
    
21. 
    
22. #文件编码
    
23. $cd="utf8"
    
24. 
    
25. #仅匹配空行
    
26. if($lmt -lt $x){$m=$x}else{$m=$lmt}
    
27. if($x -eq 0){$r="\r?\n(\r?\n)+"}else{$r="\r?\n(\r?\n){$x,$m}"}
    
28. if($lmt -lt $y){$m=$y}else{$m=$lmt}
    
29. if($y -eq 0){$r+="  *"}else{$r=$r+" {$y,$m}"}
    
30. $p="`r`n"+"`r`n"*($z-1)+" "*$z2
    
31. 
    
32. $f|%{
    
33. $file=[io.fileinfo]$_
    
34. $filepath=$file.DirectoryName+"\_new_"+$file.name
    
35. [regex]::replace([io.file]::ReadAllText($file,$cd),$r,$p)|sc -LiteralPath ($filepath) -Encoding ($cd)
    
36. [console]::writeline("已保存到: "+$filepath)
    
37. }
    

复制代码

hfxiang

回复 1# kokoxx

可借用第3方工具gawk（ http://bcn.bathome.net/tool/4.1.0/gawk.exe ）来实现：

1. 
   
2. @echo off&cd /d "%~dp0"
   
3. rem 注意gawk参数：-v"Spaces=4"表示每行给4个前置空格，-v"BlankLines=1"表示每行间空1行
   
4. for /f "delims=" %%i in ('dir /b/s/a-d *.txt') do (
   
5.         gawk -v"Spaces=4" -v"BlankLines=1" "BEGIN{if(Spaces<0)Spaces=0;for(i=1;i<=Spaces;i++){S=S OFS};L=ORS;if(BlankLines<0)BlankLines=0;L=ORS;for(i=1;i<=BlankLines;i++){ORS=ORS L}}{sub(/^[ \t]+/,"");sub(/[ \t]+$/,"");if($0)print S $0}" "%%~i">"%%~dpni.bak"
   
6.         move /y "%%~dpni.bak" "%%~i"
   
7. )
   

复制代码