Board logo

标题: [文件操作] 求修改随机重命名文件的批处理 感谢!!! [打印本页]

作者: maoanqi110    时间: 2022-3-16 14:05     标题: 求修改随机重命名文件的批处理 感谢!!!

大哥们 这是一个 让文件夹内  所有文件 全随机变成4位英数的BAT
我想加入
保留原文件名前6位
要怎么改! 求教 谢谢!!!!
  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
复制代码

作者: qixiaobin0715    时间: 2022-3-16 15:39

未测试:
  1. @echo off
  2. set var=0123456789abcdefghijklmnopqrstuvwxyz
  3. for /f "delims=" %%a in ('dir /b /a-d') do (
  4.     setlocal enabledelayedexpansion
  5.     set filename=%%~na
  6.     set filename=!filename:~,6!
  7.     if not "%%a"=="%~nx0" (
  8.         for /l %%i in (1,1,4) do (
  9.             set /a num=!random!%%36
  10.             for %%j in (!num!) do set str=!str!!var:~%%j,1!
  11.         )
  12.         ren "%%a" "!str!!filename!%%~xa"
  13.     )
  14.     endlocal
  15. )
  16. pause
复制代码

作者: Fit    时间: 2022-3-18 20:24

将ren "%%b" "!name!%%~xb"
换成
set "str=%%b"
ren  "%%b" "!str:~0,6!!name!%%~xb"

看看能行不




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