[文本处理] 请教：如何删除某路径下多个txt文件的最后一行内容

connie87

请教：如何删除某路径下多个txt文件的最后一行内容？
不借助第三方工具，该如何实现。


新手，请多关照，谢谢。

WHY

举例：

@echo off
setlocal enabledelayedexpansion
(for /f "skip=1" %%i in ('findstr /n .* 1.txt') do (
    set "s=" & set /p s=
    echo;!s!
)) < 1.txt
pause
复制代码

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

WHY

@echo off
for /f "delims=" %%i in ('findstr /n .* 1.txt') do (
    if defined s (
        setlocal enabledelayedexpansion
        echo;!s:*:=!
        endlocal
    )
    set "s=%%i"
)
pause
复制代码

@echo off
PowerShell "$arr = type 1.txt; $arr[0..($arr.Count-2)]"
pause
复制代码

屡败屡战

yhcfsr 老师，这个问题我也想问一下，
假如我想删除多个txt文件的倒数第二行、倒数第三行、倒数第四行....
那么在您的代码中该如何修改？？请告知

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

屡败屡战

yhcfsr老师:感谢之情，不溢言表。very good！！