批处理如何给文件夹内的图片批量命名

cutebe

思路不错，赞一个。移动到新目录可避免重名！

cutebe

放到图片同一目录下执行

1. ::图片顺序命名：前缀为目录名-后缀为等长数字（数字唯一，长度不足补0）
   
2. ::思路：先得到文件数；再排除改好的文件；后修改其他文件名。
   
3. @echo off
   
4. cd/d%~dp0
   
5. 
   
6. ::文件扩展名
   
7. set "ext=.jpg;.png;.jpeg"
   
8. 
   
9. ::获取目录名
   
10. call :getDirName "%cd%" dirName
    
11. echo 目录名 *%dirName%*
    
12. 
    
13. set picNum=0
    
14. ::计算图片数
    
15. for %%p in (%ext:.=*.%)do set/a picNum+=1
    
16. echo 目录中共有 %picNum% 个图片。
    
17. 
    
18. ::补0个数
    
19. set/a_0N=-1,CN=%picNum%,startNum=1
    
20. :fill0
    
21. set/a CN/=10,_0N+=1,startNum=%startNum%0,Nbit=_0N+1
    
22. if %CN% neq 0 goto :fill0
    
23. echo 起数：%startNum%　位数：%Nbit%　补0：%_0N%个。
    
24. 
    
25. set/a renNum=startNum+1,_0=1
    
26. ::改名
    
27. setlocal enableDelayedExpansion
    
28. for /f "delims=" %%p in ('dir/b %ext:.=*.%')do (
    
29.         call :oldNameChk chgYes "%%~np" "%dirName%" %picNum% %startNum%
    
30.         if defined _!chgYes! (
    
31.                 call :newNameChk renNum %Nbit% "%ext%" "%dirName%"
    
32.                 echo ren "%%p" "%dirName%-!renNum:~-%Nbit%!%%~xp"
    
33.                 ren "%%p" "%dirName%-!renNum:~-%Nbit%!%%~xp"
    
34.                 set/a renNum+=1
    
35.         )else set _!chgYes!=1
    
36. )
    
37. 
    
38. pause
    
39. goto :eof
    
40. ::====完====
    
41. 
    
42. 
    
43. :getDirName dirPath dirName        ::获取目录名
    
44. set %2=%~nx1
    
45. goto :eof
    
46. 
    
47. :oldNameChk chgFlag fileName dirName fileNum beginNum        ::旧名检查
    
48. setlocal
    
49. set "fileName=%~2"
    
50. set "chkNum=!fileName:*%~3-=!"
    
51. set fchk=0
    
52. if "%~3-%chkNum%" neq %2 goto :chkend ::前缀检查：不含目录名或有多余字符
    
53. for /f "delims=0123456789" %%s in ("%chkNum%")do set str=%%s
    
54. if "%str%" neq "" goto :chkend ::后缀检查：后缀有非数字
    
55. set/aN=1%chkNum%-%5
    
56. if %N% gtr 0 if %N% leq %4 set fchk=%chkNum%
    
57. :chkend        ::跳到此处的要改名：后缀数字正常但文件名重复/未补0/不含目录名/含多余字符
    
58. endlocal&set %1=%fchk%
    
59. goto :eof
    
60. 
    
61. :newNameChk renNum Numbit exts dirName        ::新名检查
    
62. setlocal
    
63. set/a newNum=%1
    
64. :plusNum
    
65. for %%e in (%~3)do if exist "%~4-!newNum:~-%2!%%e" set/a newNum+=1&goto :plusNum
    
66. endlocal&set "%1=%newNum%"
    
67. goto :eof

复制代码