[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
  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
复制代码
支持几乎所有图片后缀名。
支持9999以内。
错了再通知我,我只测试到23.

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

回复 9# gytqqq


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

TOP

返回列表