[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
本帖最后由 zaqmlp 于 2020-6-7 13:07 编辑
  1. <# :
  2. cls
  3. @echo off
  4. mode con lines=5000
  5. cd /d "%~dp0"
  6. powershell -NoProfile -ExecutionPolicy bypass "Invoke-Command -ScriptBlock ([ScriptBlock]::Create([IO.File]::ReadAllText('%~f0',[Text.Encoding]::Default))) -Args '%~dp0'"
  7. pause
  8. exit
  9. #>
  10. $path=$args[0];
  11. $txtfile=$path+"a.txt";
  12. if(-not (test-path -liter $txtfile)){Write-host ('"'+$txtfile+'" not found');exit;};
  13. $text=[IO.File]::ReadAllLines($txtfile,[Text.Encoding]::Default);
  14. $files=@(dir -liter $path -recurse|?{$_ -is [System.IO.FileInfo]});
  15. for($i=0;$i -lt $files.length;$i++){
  16.     for($j=0;$j -lt $text.Count;$j++){
  17.         $arr=$text[$j].split('—');
  18.         if($arr.length -ge 2){
  19.             if($files[$i].BaseName.Contains($arr[1])){
  20.                 $newname=$arr[0]+$files[$i].Extension;
  21.                 $newfile=$files[$i].Directory.FullName+'\'+$newname;
  22.                 write-host $files[$i].FullName;
  23.                 write-host '-->';
  24.                 write-host $newname;
  25.                 write-host '';
  26.                 mv -liter $files[$i].FullName $newfile;
  27.                 break;
  28.             };
  29.         };
  30.     };
  31. }
复制代码
1

评分人数

    • lxh623: 高深。谢谢!技术 + 1
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

返回列表