[文件操作] 求修改随机重命名文件的批处理 感谢！！！

maoanqi110

大哥们 这是一个 让文件夹内  所有文件 全随机变成4位英数的BAT
我想加入
保留原文件名前6位
要怎么改！ 求教 谢谢！！！！

@echo off
setlocal enabledelayedexpansion
set "s=0123456789abcdefghijklmnopqrstuvwxyz"
for %%b in (*.*) do (
	if not "%%b"=="%~nx0" (
		call :loop
		ren "%%b" "!name!%%~xb"
		set loop=
		set name=
	)
)
pause
goto :eof
:loop
set /a loop+=1
set /a r=%random%%%36
set name=%name%!s:~%r%,1!
if "%loop%"=="4" goto :eof
goto :loop
复制代码

qixiaobin0715

未测试：

@echo off
set var=0123456789abcdefghijklmnopqrstuvwxyz
for /f "delims=" %%a in ('dir /b /a-d') do (
    setlocal enabledelayedexpansion
    set filename=%%~na
    set filename=!filename:~,6!
    if not "%%a"=="%~nx0" (
        for /l %%i in (1,1,4) do (
            set /a num=!random!%%36
            for %%j in (!num!) do set str=!str!!var:~%%j,1!
        )
        ren "%%a" "!str!!filename!%%~xa"
    )
    endlocal
)
pause
复制代码

Fit

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

看看能行不