zaqmlp

@echo off
set info=互助互利,支付宝扫码头像,感谢赞助
rem 有问题,可加QQ956535081及时沟通
title %info%
cd /d "%~dp0"
set "file=成绩表.txt"
for /f "skip=1 delims=" %%a in ('type "%file%"') do (
    set "line1=%%a"
    setlocal enabledelayedexpansion
    if "!line1:~,1!" equ "[" goto end
    endlocal
    for /f "tokens=1* delims==" %%b in ("%%a") do (
        echo;%%b
        (for /f "delims=" %%e in ('type "%file%"') do (
            set "line2=%%e"
            setlocal enabledelayedexpansion
            if "!line2:~,1!" equ "[" echo;%%e
            for /f "tokens=1* delims==" %%g in ("!line2!") do (
                if "%%b" equ "%%g" echo;!line2!
            )
            endlocal
        ))>"%%b.txt"
    )
)
:end
echo;%info%
pause
复制代码