求批量提取字符串的批处理

那哔好神

有几千个像上图中的TXT，需要从这些txt中提取以《"T》开头（不含T）的22位字符串(如010000050000201910001)，然后以《22位字符串.jpg,其他,22位字符串》的形式位写入当前目录下的dperson.txt中。研究了一上午tokens，delims，for还是不知道怎么搞，请各位大神帮助。

PS：
1、有些行的22位字符串数据是空的，就不用提取了。
2、有些行的22为字符串不是纯数字的
3、最终需求dperson.txt内效果如下：
010000050000201910001.jpg,其他,010000050000201910001
010000050000201910003.jpg,其他,010000050000201910003
010000050000201910005.jpg,其他,010000050000201910005
T10000050000201910006.jpg,其他,T10000050000201910006
0T0000050000201910007.jpg,其他,0T0000050000201910007
... ...

zaqmlp

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

复制代码

Batcher

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. (for /f "delims=" %%a in ('dir /b /a-d *.txt ^| findstr /v /x "dperson.txt"') do (
   
4.     for /f delims^=^" %%b in ('type "%%a"') do (
   
5.         set "str=%%b"
   
6.         if "!str:~0,1!" equ "T" (
   
7.             echo !str:~1!.jpg,其他,!str:~1!
   
8.         )
   
9.     )
   
10. ))>"dperson.txt"

复制代码

那哔好神

已解决，谢谢楼上二位

zaqmlp

回复 4# 那哔好神

嗯，感谢还是发个红包实际点

那哔好神

回复 5# zaqmlp


    这几天事情比较多，已发5元，谢谢