zaqmlp

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

zaqmlp

回复 3# 奥特

在“结果”文件夹里，要感谢还是赞助下实际点

zaqmlp

回复 5# 奥特
嗯，一次友好的互助