[文本处理] 求BAT脚本能删除目录里txt文件里文字最后空行

@set @v=1 /*
@echo off
if "%~1" neq "" for /f "delims=" %%F in (' dir /b/s/a-d "%~1\*.txt" ') do (
	cscript /e:jscript "%~f0" "%%~F" "%%~dpnF.new%%~xF"
	move /y "%%~dpnF.new%%~xF" "%%~F">nul
)
pause&exit/b
*/
v=WSH.arguments, as=WSH.createobject('adodb.stream');
as.mode=3, as.type=2, as.charset='437', as.open, as.loadfromfile(v(0));
alllines=as.readtext().split('\r\n'), as.close;
for (; alllines.slice(-1)==''; alllines.pop()); //删除末尾1-n个空行
as.open, as.writetext(alllines.join('\r\n'));
as.savetofile(v(1),2), as.close; WSH.quit();
复制代码

@echo off
if "%~1" neq "" for /f "delims=" %%F in (' dir /b/s/a-d "%~1\*.txt" ') do (
	gawk "NR>1{print p}{p=$0}END{printf $0}" "%%~F">"%%~dpnF.new%%~xF"
	move /y "%%~dpnF.new%%~xF" "%%~F">nul
)
pause&exit/b
复制代码

@set @v=1 /*
@echo off
if "%~1" neq "" for /f "delims=" %%F in (' dir /b/s/a-d "%~1\*.txt" ') do (
	cscript /e:jscript "%~f0" "%%~F" "%%~dpnF.new%%~xF"
	move /y "%%~dpnF.new%%~xF" "%%~F">nul
)
pause&exit/b
*/
v=WSH.arguments, as=WSH.createobject('adodb.stream');
as.mode=3, as.type=2, as.charset='437', as.open, as.loadfromfile(v(0));
s=as.readtext(), as.close, s=s.replace(/\s*$/, '');
as.open, as.writetext(s), as.savetofile(v(1),2), as.close, WSH.quit();
复制代码