zaqmlp

@echo off
set info=互助互利,支付宝扫码头像,感谢赞助
rem 有问题,可加QQ956535081及时沟通
title %info%
start mshta VBScript:Execute("msgbox(""%info%""):close")
cd /d "%~dp0"
md "结果" 2>nul
powershell ^
    dir *.txt^|?{$_ -is [System.IO.FileInfo]}^|%%{^
        write-host $_.FullName;^
        $text=[IO.File]::ReadAllText($_.FullName, [Text.Encoding]::Default) -replace '\s+';^
        out-file -file ('结果\'+$_.Name) -input $text -enc Default;^
    }
pause
复制代码

zaqmlp

回复 3# 2flvcom


在“结果”文件夹里，打包几个你的文本发上来

zaqmlp

回复 6# 2flvcom

那就赞助下吧