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

gytqqq

A为一个空文件夹
我从其他文件夹拖拽图片到A文件夹，使图片命名为001，再拖拽一张图片命名为002，以此类推。谢谢给位大佬。

wujunkai

回复 1# gytqqq


    图片格式是什么，有固定的后缀名吗？
    你什么都不说清楚让人很难搞

gytqqq

回复  gytqqq


    图片格式是什么，有固定的后缀名吗？
    你什么都不说清楚让人很难搞
wujunkai 发表于 2020-3-21 15:27

    jpg的就是001 002 003 004 005------100 就这么排列啊

wujunkai

回复 3# gytqqq

1. @echo off
   
2. @setlocal enabledelayedexpansion
   
3. 
   
4. set num=001
   
5. call:count
   
6. 
   
7. :main
   
8.     for /R %%i in (*.jpg) do (
   
9.         if not %%~ni LSS %num% (
   
10.             rename "%%i" %num%.jpg
    
11.             set /A num+=1
    
12.             call:int
    
13.             goto:main
    
14.         )
    
15.     )
    
16.     call:sleep 125
    
17. goto:main
    
18. 
    
19. :count
    
20.     rem 计算已重命名的文件数
    
21.     if exist %num%.jpg (
    
22.         set /A num+=1
    
23.         call:int
    
24.         goto:eof
    
25.     )
    
26. goto:eof
    
27. 
    
28. :int
    
29.     rem 统一格式
    
30.     set num=000%num%
    
31.     set num=%num:~-3%
    
32. goto:eof
    
33. 
    
34. :sleep
    
35.     rem 防高频
    
36.     echo WScript.sleep %1 > sleep.vbs
    
37.     start /wait sleep.vbs
    
38.     del sleep.vbs
    
39. goto:eof

复制代码

目测稳定。8Hz。放在A文件夹的目录下，打开后保持运行（其实全部复制好再运行也可以）。仅支持jpg且文件数小于999.
    建议先备份图片再尝试，出现意外概不负责。

gytqqq

回复  gytqqq 目测稳定。8Hz。放在A文件夹的目录下，打开后保持运行（其实全部复制好再运行也可以）。仅支持 ...
wujunkai 发表于 2020-3-21 15:54

    有效！！文件数能不能小于9999 谢谢了 给您磕头了

gytqqq

回复  gytqqq 目测稳定。8Hz。放在A文件夹的目录下，打开后保持运行（其实全部复制好再运行也可以）。仅支持 ...
wujunkai 发表于 2020-3-21 15:54

    改到008后 再拖文件就不改了。。。

gytqqq

回复 4# wujunkai


    我发现生成那个sleep文件消失就不再改名了

wujunkai

回复 7# gytqqq


    抱歉，我也不知道为什么。。。
    明天我再追踪一下过程。学生党要去写作业了 (^_^)

Batcher

回复 4# wujunkai


    猜测是0开头的数字被识别是八进制了

Gin_Q

1. @echo off& setlocal enabledelayedexpansion &rem by Gin
   
2. ::可以检查是否拖入了上一次文件（间隔超过一次无法检测）
   
3. ::如果中间删掉了一个文件可以自动补充（需要重新打开程序）
   
4. ::需要把程序放在修改后的图片文件目录
   
5. 
   
6. ::检查文件名
   
7. for /l %%a in (1,1,999) do (
   
8.         if %%a lss 10 ( if not exist "00%%a.jpg" ( echo 正在处理第%%a个文件
   
9.                 call :input
   
10.                 copy "!file!" "00%%a.jpg"))
    
11.         if %%a geq 10 ( if %%a lss 100 (if not exist "0%%a.jpg" ( echo 正在处理第%%a个文件
    
12.                 call :input
    
13.                 copy "!file!" "0%%a.jpg")))
    
14.         if %%a geq 100 ( if not exist "%%a.jpg" ( echo 正在处理第%%a个文件
    
15.                 call :input
    
16.                 copy "!file!" "%%a.jpg"))
    
17.         )
    
18. echo 文件数已到达999！
    
19. pause&exit
    
20. :input
    
21.         set /p file=请拖入文件:
    
22.         if "!file!" equ "!che!" goto :input
    
23.         set "che=!file!"
    
24. exit /b 0

复制代码

wujunkai

回复 9# Batcher


    确实。。。稍微修一下又可以用了。