@echo off
set info=互助互利,支付宝扫码头像,感谢赞助
rem 有问题,可加QQ956535081及时沟通
title %info%
start mshta VBScript:Execute("msgbox(""%info%""):close")
cd /d "%~dp0"
set "结果=dperson.txt"
powershell ^
    [System.Collections.ArrayList]$s=@();^
    dir *.txt^|?{$_ -is [System.IO.FileInfo]}^|%%{^
        write-host $_.Name;^
        $text=@(gc $_.FullName);^
        for($i=0;$i -lt $text.length;$i++){^
            if($text[$i].trim() -match '^^\""T([^^\""]+)'){^
                [void]$s.Add(''+$matches[1]+'.jpg,其他,'+$matches[1]);^
            };^
        };^
    };^
    [IO.File]::WriteAllLines('%结果%', $s, [Text.Encoding]::Default);
pause
复制代码

@echo off
setlocal enabledelayedexpansion
(for /f "delims=" %%a in ('dir /b /a-d *.txt ^| findstr /v /x "dperson.txt"') do (
    for /f delims^=^" %%b in ('type "%%a"') do (
        set "str=%%b"
        if "!str:~0,1!" equ "T" (
            echo !str:~1!.jpg,其他,!str:~1!
        )
    )
))>"dperson.txt"
复制代码