yhcfsr

@echo off
rem 源目录
set "SrcDir=D:\test folder"
rem 输出目录
set "OutDir=D:\result"
for /f "delims=" %%a in ('dir /a-d/s/b "%SrcDir%\*.txt"') do (
	setlocal enabledelayedexpansion 
	for /f "delims=" %%b in ('type "%%a"') do set/a n+=1
	(for /f "delims=" %%i in ('findstr /n ".*" "%%a"') do set/a x+=1&&if !n! gtr !x! (
	set "var=%%i"&&set var=!var:*:=!
	echo;!var!
	))>"%OutDir%\%%~nxa"
	endlocal
)
复制代码

yhcfsr

回复 5# 屡败屡战
善用回复功能，否则我看不到消息。这次是偶然点进来才看到，此天意。

@echo off
rem 源目录
set "SrcDir=D:\test"
rem 输出目录
set "OutDir=D:\result"
rem 需要忽略的行，倒数行用负数表示，如倒数第2行为-2，行号间用空格(或,;制表符等)隔离。
set "lines=5;-2;-4;10"

for /f "delims=" %%a in ('dir /a-d/s/b "%SrcDir%\*.txt"') do (
	setlocal enabledelayedexpansion 
	rem 计算总行数
	for /f "delims=" %%b in ('type "%%a"') do set/a n+=1
	rem 计算忽略的行号
	for %%c in (%lines%) do (if %%c lss 0 (set/a ln=!n!+%%c+1&&set "lns=!ln! !lns!") else (set "lns=%%c !lns!"))
	rem 处理文本，忽略指定行，输出结果
	(for /f "delims=" %%i in ('findstr /n ".*" "%%a"') do set/a x+=1&&echo !x!|findstr /v /r "!lns!">nul&&(
	set "var=%%i"&&set var=!var:*:=!
	echo;!var!
	))>"%OutDir%\%%~nxa"
	endlocal
)
pause&exit
复制代码