zaqmlp

@echo off
set info=互助互利,支付宝扫码头像,感谢赞助
rem 有问题,可加QQ956535081及时沟通
title %info%
start mshta VBScript:Execute("msgbox(""%info%""):close")
cd /d "%~dp0"
set "入=1.txt"
set "出=2.txt"
cd.>"%出%"
for /f "delims=" %%a in ('type "%入%"') do (
    if defined line (
        >>"%出%" echo;^<body^>^<a href="%%a"^>!line!^</a^>^</body^>^</html^>
        endlocal&set "line="
    ) else (
        set "line=%%a"
        setlocal enabledelayedexpansion
    )
)
type "%出%"
pause
复制代码