【已解决】BAT:如何删除大于等于8位数的文本行

思想之翼

D:/数据/内有若干txt文本，每个文本内数据格式为：
126459
1264589
126459
126458
12645370
126458
...
欲批量删除各文本内大于等于8位数的文本行（处理后的数据覆盖原数据），如何用批处理解决？

慕夜蓝化

1. 
   
2. @echo off&setlocal enabledelayedexpansion
   
3. for %%i in (d:\数据\*.txt) do (
   
4.     (for /f "usebackq delims=" %%a in ("%%i") do (
   
5.         set "str=%%a"&call :split
   
6.         if !n! geq 8 echo,%%a
   
7.         set/a n=0
   
8.     )) >%temp%\$
   
9.     move /y "%temp%\$" "%%i" >nul
   
10. )
    
11. pause
    
12. 
    
13. :split
    
14. if not "!str!"=="" (
    
15.     set "str=!str:~1!"&set/a n+=1&goto split
    
16. ) else (
    
17.     goto :eof
    
18. )
    

复制代码

pcl_test

回复 1# 思想之翼

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. cd /d "D:\数据"
   
4. for /f "delims=" %%a in ('dir /b *.txt') do (
   
5. for /f "delims=" %%b in ('type "%%a"') do (
   
6. set "str=%%b"
   
7. if "!str:~7,1!" == "" >>$ echo,!str!
   
8. )
   
9. move $ "%%a"
   
10. )
    
11. pause

复制代码

CrLf

这样比较省事

1. @findstr /v "[1-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]" a.txt >b.txt

复制代码

c755731262

1. @echo off&color f0&setlocal enabledelayedexpansion
   
2. cd /d d:\数据\
   
3. for /f "delims=" %%a in ('dir /b *.txt') do (
   
4. (for /f "delims=" %%i in (%%a) do (
   
5. set n=%%i
   
6. for /l %%j in (0,1,20) do (
   
7. if "!n:~%%j,1!" neq "" set /a m+=1
   
8. )
   
9. if !m! lss 8 echo %%i
   
10. set m=0
    
11. )
    
12. )>$
    
13. del /q /f %%a
    
14. ren $ %%a
    
15. )

复制代码

回复 1# 思想之翼