- @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
复制代码
|