[文本处理] 批处理怎样统计文本行，删除多余的文本

@echo off
for /r %%a in (*.txt) do (
	set "fname=%%a"
	call :countLines
)
pause&&exit /b 

:countLines
for /f "delims=[]" %%i in ('find /n /v ".*"^<"%fname%"') do (
	set count==%%i
	if !%%i! gtr 4 goto :dealFile
)
:dealFile
if %count% equ 4 exit /b
del /f /q "%fname%"
复制代码

@echo off
for /f "tokens=1*" %%i in ('find /c /v "" *.txt') do (
   for /f "tokens=1,2 delims=:" %%a in ("%%j") do (
       if "%%b" NEQ " 4" echo;del "%%a"
   )
)
pause
复制代码