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

求一个批处理脚本重命名拖拽图片

本帖最后由 gytqqq 于 2020-3-21 20:58 编辑

A为一个空文件夹
我从其他文件夹拖拽图片到A文件夹,使图片命名为0001,再拖拽一张图片命名为0002,以此类推。谢谢给位大佬。麻烦支持的图片格式尽量全一些。

其他文件夹与A文件夹不在同一个盘符,拖拽即复制。

20元酬谢,如果实现起来略复杂可酌情加钱。

win10系统环境

非常感谢wujunkai和Gin_Q二位的帮忙
我会为两位都转账的 谢谢

这个真的很好 学些了
服务器租用 http://www.piis.pw

TOP

回复 15# Gin_Q


    给您转过去 17:28 您查收下

TOP

回复 14# gytqqq


    你不转账就算了,何必说有偿求助呢!

TOP

回复 12# Gin_Q


    您好 能不能拖拽完文件不用回车啊 直接更名 文件多了有点吃不消了。。。。

TOP

回复 10# gytqqq


    二楼我已经更新了程序,支持任意格式文件!

TOP

1358491044@qq.com

TOP

回复 9# gytqqq


    没有支付宝。。。微信可?18906991102

TOP

回复 7# Gin_Q


    谢谢 暂时测试没有问题 我给您转账 支付宝账号给我

TOP

回复 8# wujunkai


    谢谢 暂时测试没有问题 我给您转账 支付宝账号给我

TOP

回复 5# gytqqq


    抱歉,在细节的处理上有点问题,已改正。
  1. @echo off
  2. @setlocal enabledelayedexpansion
  3. set num=1
  4. set name=0001
  5. call:count
  6. :main
  7.     for /R %%i in (*.jpg,*.jpeg,*.png,*gif,*.bmp,*.ico,*.dib,*.jpe) do (
  8.         if not %%~ni LSS %num% (
  9.             rem echo rename "%%i" %name%%%~xi ----  %num%
  10.             rename "%%i" %name%%%~xi
  11.             set /A num=num+1
  12.             call:int
  13.             goto:main
  14.         )
  15.     )
  16.     call:sleep 125
  17. goto:main
  18. :count
  19.     rem 计算已重命名的文件数
  20.     if exist %num%.jpg (
  21.         set /A num=num+1
  22.         call:int
  23.         goto:count
  24.     )
  25. goto:eof
  26. :int
  27.     rem 统一格式
  28.     set name=00000%num%
  29.     set name=%name:~-4%
  30. goto:eof
  31. :sleep
  32.     rem 防高频
  33.     echo WScript.sleep %1 > sleep.vbs
  34.     start /wait sleep.vbs
  35.     del sleep.vbs
  36. goto:eof
复制代码
觉得满意的话请付款[滑稽]

TOP

回复 6# gytqqq


    把脚本另存为ANSI格式

TOP

回复 2# Gin_Q


    乱码 看不懂啊

TOP

回复 3# wujunkai


    生成的文件都带点。。。比如0001. 0002. 0003. 能不能把点去掉

TOP

  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

返回列表