Board logo

标题: [文本处理] 批处理将同目录下的所有txt文件 10位数字+字母 随机重命名 [打印本页]

作者: 引流专家    时间: 2020-11-28 19:57     标题: 批处理将同目录下的所有txt文件 10位数字+字母 随机重命名

批处理将同目录下的所有txt文件 10位数字+字母 随机重命名
作者: flashercs    时间: 2020-11-28 21:40

  1. @echo off
  2. cd /d "%~dp0"
  3. for %%A in (*.txt) do (
  4.   call :randomFileName 10 "%%A"
  5. )
  6. pause
  7. exit /b
  8. :randomFileName
  9. setlocal EnableDelayedExpansion
  10. ::---------生成随机文件名。
  11. ::---------%1为密码长度,%2为原文件名。
  12. if "%~1"=="" goto :eof
  13. if %~1 lss 1 goto :eof
  14. if  "%~2"=="" goto :eof
  15. set wordset=abcdefghijklmnopqrstuvwxyz0123456789
  16. set password_len=%1
  17. set return=
  18. ::---------------------------循环
  19. :loop
  20. set /a "numof=%random%%%36"
  21. set return=%return%!wordset:~%numof%,1!
  22. set /a password_len-=1
  23. if %password_len% gtr 0 goto loop
  24. ::---------------------------循环
  25. if exist "%return%%~x2" goto randomFileName
  26. echo ren %2 "%return%%~x2"
  27. ren %2 "%return%%~x2"
  28. endlocal
  29. goto :eof
复制代码





欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2