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

思想之翼

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

c755731262

@echo off&color f0&setlocal enabledelayedexpansion
cd /d d:\数据\
for /f "delims=" %%a in ('dir /b *.txt') do (
(for /f "delims=" %%i in (%%a) do (
set n=%%i
for /l %%j in (0,1,20) do (
if "!n:~%%j,1!" neq "" set /a m+=1
)
if !m! lss 8 echo %%i
set m=0
)
)>$
del /q /f %%a
ren $ %%a
)
复制代码

回复 1# 思想之翼

CrLf

这样比较省事

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

pcl_test

回复 1# 思想之翼

@echo off
setlocal enabledelayedexpansion
cd /d "D:\数据\"
for /f "delims=" %%a in ('dir /b *.txt') do (
for /f "delims=" %%b in ('type "%%a"') do (
set "str=%%b"
if "!str:~7,1!" == "" >>$ echo,!str!
)
move $ "%%a"
)
pause
复制代码

慕夜蓝化

@echo off&setlocal enabledelayedexpansion
for %%i in (d:\数据\*.txt) do (
    (for /f "usebackq delims=" %%a in ("%%i") do (
        set "str=%%a"&call :split
        if !n! geq 8 echo,%%a
        set/a n=0
    )) >%temp%\$
    move /y "%temp%\$" "%%i" >nul 
)
pause

:split
if not "!str!"=="" (
    set "str=!str:~1!"&set/a n+=1&goto split
) else (
    goto :eof
)
复制代码