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

@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
)
复制代码

@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
复制代码

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

@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
)
复制代码