[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[文本处理] 求批量提取字符串的批处理

有几千个像上图中的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
... ...

  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
复制代码
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

  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"
复制代码
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

已解决,谢谢楼上二位

TOP

回复 4# 那哔好神

嗯,感谢还是发个红包实际点
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

回复 5# zaqmlp


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

TOP

返回列表