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

ai8866 · 发表于 2020-8-19 16:13:22

有很多个文本，每个文本内容有1－100行
文本内容如下
文本1 有2行内容
1230 4676 466 198
456  946 491 19833
文本2 有4行内容
132 给你  164 1916
46431  1916 1943  996
111
222
文本3 有10行内容
1111111.11111.11111 11111
3333.2222 222 222 2 2  111
1333
1333
1333
1223
1222
12222
1
1

很多文本我只想找到4行的文本保留下来其他的都文本都删除

yhcfsr · 发表于 2020-8-19 17:22:42

@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%"

复制代码

涉及删除操作,请当心

WHY · 发表于 2020-8-20 20:01:55

本帖最后由 WHY 于 2020-8-20 20:13 编辑

@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

复制代码

ai8866 · 发表于 2020-8-21 15:19:30

十分感谢大神

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

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

评分