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

[文件操作] [已解决]批处理如何随机重命名文件

本帖最后由 rapmq0 于 2021-9-11 23:20 编辑

求一段代码
把当前目录的所有文件重命名,后缀名不变
文件名有数字和小写字母组成,一共4位数,完全随机,并且不重复

还能再来一次是没想到的呀
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. set "s=0123456789abcdefghijklmnopqrstuvwxyz"
  4. for %%b in (*.*) do (
  5. if not "%%b"=="%~nx0" (
  6. set /a ra=!random!%%36
  7. set /a rb=!random!%%36
  8. set /a rc=!random!%%36
  9. set /a rd=!random!%%36
  10. call;set name=%%s:~!ra!,1%%%%s:~!rb!,1%%%%s:~!rc!,1%%%%s:~!rd!,1%%
  11. ren "%%b" "!name!%%~xb"
  12. )
  13. )
  14. pause
复制代码

TOP

回复 3# idwma


    太感谢啦!

TOP

换个方式再来一次
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. set "s=0123456789abcdefghijklmnopqrstuvwxyz"
  4. for %%b in (*.*) do (
  5. if not "%%b"=="%~nx0" (
  6. call :loop
  7. ren "%%b" "!name!%%~xb"
  8. set loop=
  9. set name=
  10. )
  11. )
  12. pause
  13. goto :eof
  14. :loop
  15. set /a loop+=1
  16. set /a r=%random%%%36
  17. set name=%name%!s:~%r%,1!
  18. if "%loop%"=="4" goto :eof
  19. goto :loop
复制代码

TOP

  1. @echo off
  2. setlocal enabledelayedexpansion
  3. set "s=0 1 2 3 4 5 6 7 8 9"
  4. set "ss=a b c d e f g h i j k l m n o p q r s t u v w x y z"
  5. for %%b in (*.*) do (
  6. if not "%%b"=="%~nx0" (
  7. call :loop
  8. ren "%%b" "!name!%%~xb"
  9. set loop=
  10. set name=
  11. )
  12. )
  13. pause
  14. goto :eof
  15. :loop
  16. set /a loop+=1
  17. if not "%loop%"=="5" (
  18. for %%a in (%s% %ss%) do (
  19. set /a n+=1
  20. set /a r=%random%
  21. set /a r=r%%36+1
  22. if "!r!"=="!n!" (
  23. set name=!name!%%a
  24. set n=
  25. goto :loop
  26. )
  27. )
  28. )
  29. goto :eof
复制代码

TOP

返回列表