[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
  1. <# :
  2. cls
  3. @echo off
  4. rem 有问题,可加QQ956535081及时沟通
  5. cd /d "%~dp0"
  6. powershell -NoProfile -ExecutionPolicy bypass "Invoke-Command -ScriptBlock ([ScriptBlock]::Create([IO.File]::ReadAllText('%~f0',[Text.Encoding]::Default)))"
  7. pause
  8. exit
  9. #>
  10. $folder='.';
  11. $dic=New-Object 'System.Collections.Generic.Dictionary[string,int]';
  12. for($i=100001;$i -le 199999;$i++){
  13.     $n=$i.toString().Substring(1);
  14.     $dic.Add($n,0);
  15. };
  16. $files=@(dir -liter $folder|?{('.bat' -ne $_.Extension) -and ($_ -is [System.IO.FileInfo])});
  17. for($i=0;$i -lt $files.length;$i++){
  18.     $base=$files[$i].BaseName;
  19.     if(-not $dic.ContainsKey($base)){
  20.         foreach($it in $dic.Keys){
  21.             if($dic[$it] -eq 0){
  22.                 $newname=$it+$files[$i].Extension;
  23.                 write-host ($files[$i].Name+' --> '+$newname);
  24.                 mv -liter $files[$i].FullName ($files[$i].Directory.FullName+'\'+$newname);
  25.                 $dic[$it]++;break;
  26.             };
  27.         };
  28.     }else{$dic[$base]++};
  29. }
复制代码
提供bat代写
QQ: 956535081

TOP

返回列表