[ Last edited by gundam72 on 2008-2-9 at 04:36 PM ]作者: pinghu 时间: 2008-2-9 17:55 你的这个问题我挺感兴趣的,用批处理可以解决,不过我需要时间!
耐心等待,我会给你满意的答案,作者: gundam72 时间: 2008-2-9 18:03 非常感谢,我会耐心等的作者: pinghu 时间: 2008-2-9 22:15 标题: 初步做了一个,里面有错误,有待大家完善
@echo on
setlocal enabledelayedexpansion
:choice
set /p aa=重命名X,恢复H:
if %aa%==x goto :renam
if %aa%==h (goto :resume)else goto :choice
goto :eof
:resume
for /f "tokens=1,2 delims= " %%c in (重命名列表.txt) do (ren %%d %%c)
pause
goto :eof
:renam
del 重命名列表.txt
for %%b in (*.bmp) do (
call :ranwd2
ren %%~nxb !filename!%%~xb
echo %%~nxb !filename!%%~xb >>重命名列表.txt
)
goto :eof
:ranwd2
set word=
for /l %%a in (1,1,8) do (call :ranwd1)
set filename=%word%
goto :eof
:ranwd1
call :ranltr
set word=%word%%letter%
goto :eof
:ranltr
set /a num=%random%%%26
echo %num%
if %num%==1 set letter=a
if %num%==2 set letter=b
if %num%==3 set letter=c
if %num%==4 set letter=d
if %num%==5 set letter=e
if %num%==6 set letter=f
if %num%==7 set letter=g
if %num%==8 set letter=h
if %num%==9 set letter=i
if %num%==10 set letter=j
if %num%==11 set letter=k
if %num%==12 set letter=l
if %num%==13 set letter=m
if %num%==14 set letter=n
if %num%==15 set letter=o
if %num%==16 set letter=p
if %num%==17 set letter=q
if %num%==18 set letter=r
if %num%==19 set letter=s
if %num%==20 set letter=t
if %num%==21 set letter=u
if %num%==22 set letter=v
if %num%==23 set letter=w
if %num%==24 set letter=x
if %num%==25 set letter=y
if %num%==0 set letter=z
goto :eof作者: pinghu 时间: 2008-2-9 22:19 关于重命名后没有检查文件夹里是否存在同名文件,本人正在修正,请不要轻易使用,会导致原文件名的丢失!作者: slore 时间: 2008-2-9 22:54 :ranltr
部分利用set帮助里可以看到可以取某字符串的某位数……
定义一个变量abcde。。。xyz
然后
set /a num=%random%%%26
得到某位,取那位就可以了。。只要3行。。。作者: pinghu 时间: 2008-2-9 23:07 感谢slore的帮助,我一定好好学习set
主要问题是,在我的机器上测试,发现有的文件被重命名两次,却不是重复的文件名引起的,不知何故?作者: slore 时间: 2008-2-9 23:58 先echo看看。。。测试的时候作者: slore 时间: 2008-2-9 23:59 你不是有记录麽?你的重命名的文件不是要保留结果。
重命名列表.txt
里你看看那个文件被重命名2次了……原因自己一句一句分析作者: gundam72 时间: 2008-2-10 00:18 非常谢谢pinghu兄这么认真的帮我想办法,也感谢slore兄的帮助
不过我有点疑问,别介意
if %num%==1 set letter=a
if %num%==2 set letter=b
if %num%==3 set letter=c
if %num%==4 set letter=d
if %num%==5 set letter=e
if %num%==6 set letter=f
if %num%==7 set letter=g
if %num%==8 set letter=h
if %num%==9 set letter=i
if %num%==10 set letter=j
if %num%==11 set letter=k
if %num%==12 set letter=l
if %num%==13 set letter=m
if %num%==14 set letter=n
if %num%==15 set letter=o
if %num%==16 set letter=p
if %num%==17 set letter=q
if %num%==18 set letter=r
if %num%==19 set letter=s
if %num%==20 set letter=t
if %num%==21 set letter=u
if %num%==22 set letter=v
if %num%==23 set letter=w
if %num%==24 set letter=x
if %num%==25 set letter=y
if %num%==0 set letter=z
这个的意思是不是将字母替换前面的数字?比如用z替换0这样?
可能是我表述的不清,我希望的是能无规则的随机命名,上面的替换法还是很容易能找出规律的。也可能是pinghu兄目前在测试记录命名对应情况,不过我还是先清楚的说出来,怕pinghu兄到时候辛苦帮我做出来结果却不是我想要的。
再次感谢pinghu兄~作者: slore 时间: 2008-2-10 01:40 这段是随机产生某个数
如果是1就是a字符……
也就是想随机产生字母的意思。作者: terse 时间: 2008-2-10 02:23 @echo off
:choice
set /p aa=重命名X 恢复H
if %aa%==x goto renam
if %aa%==h (goto resume) else goto :choice
goto :eof
:renam
del 重命名jpg.bat 2>nul
for /f "delims=" %%i in ('dir /b /a-d *.jpg') do (
call :loop "%%i"
)
pause
goto :eof
:loop
for /l %%i in (1,1,8) do (call :lp)
>>重命名jpg.bat echo ren "%var%.jpg" %1
ren %1 "%var%.jpg"
for %%i in (n var) do set %%i=
goto :eof
:lp
set str=jklzxcbnmqvopasdfwertyuigh
set/a s=%random%%%25
call set var=%var%%%str:~%s%,1%%
goto :eof
:resume
重命名jpg.bat作者: pinghu 时间: 2008-2-10 11:14 标题: 代码做了部分修正,如slore所说
@echo off
setlocal enabledelayedexpansion
:choice
set /p aa=重命名X,恢复H:
if %aa%==x goto :renam
if %aa%==h (goto :resume)else goto :choice
goto :eof
:resume
for /f "tokens=1,2 delims= " %%c in (重命名列表.txt) do (ren
%%d %%c)
pause
goto :eof
:renam
if exist 重命名列表.txt del 重命名列表.txt
for %%b in (*.bmp) do (
call :ranwd2
ren %%~nxb !filename!%%~xb
echo %%~nxb !filename!%%~xb >>重命名列表.txt
)
goto :eof
:ranwd2
set word=
for /l %%a in (1,1,4) do (call :ranwd1)
if not exist %word%.* (set filename=%word%) else call :ranwd2
goto :eof
:ranwd1
call :ranltr
set word=%word%%letter%
goto :eof
:ranltr
set
letter=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
set /a num=%random%%%52
call call set letter=!letter:~%num%,1!
goto :eof作者: pinghu 时间: 2008-2-10 11:27 标题: 以上我脚本中的不足
:choice
set /p aa=安装右键菜单A,卸载右键菜单X:
if %aa%==a goto :install
if %aa%==x (goto :uninstall)else goto :choice
goto :eof
:resume
cd "%~1"
if not exist 重命名列表.txt (echo 这个文件夹里没有“重命名列表.txt”,无法恢复&pause&goto :eof)
for /f "tokens=1,2 delims= " %%c in (重命名列表.txt) do (ren %%d %%c)
goto :eof
:renam
cd "%~1"
if exist 重命名列表.txt echo 当前文件夹下已存在一个重命名列表,再次重命名会导致原文件名列表的丢失,如要重命名先手动删除这个文件夹下的“重命名列表.txt”,这样较为稳妥&pause&goto :eof
set /p nn=请输入随机字母的位数:
if exist 重命名列表.txt del 重命名列表.txt
for %%b in (*.*) do (
call :ranwd2
ren %%~nxb !filename!%%~xb
echo %%~nxb !filename!%%~xb >>重命名列表.txt
)
goto :eof
:ranwd2
set word=
for /l %%a in (1,1,%nn%) do (call :ranwd1)
if not exist %word%.* (set filename=%word%) else call :ranwd2
goto :eof
:ranwd1
call :ranltr
set word=%word%%letter%
goto :eof
:ranltr
set letter=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
set /a num=%random%%%52
call set letter=!letter:~%num%,1!
goto :eof
:choice
set /p aa=安装右键菜单A,卸载右键菜单X:
if /a %aa%==a goto :install
if /a %aa%==x (goto :uninstall)else goto :choice
goto :eof
:resume
cd "%~1"
if not exist 重命名列表.txt (echo 这个文件夹里没有“重命名列表
.txt”,无法恢复&pause&goto :eof)
for /f "tokens=1,2 delims= " %%c in (重命名列表.txt) do (ren
%%d %%c)
goto :eof
:renam
cd "%~1"
if exist 重命名列表.txt echo 当前文件夹下已存在一个重命名列表
,再次重命名会导致原文件名列表的丢失,如要重命名先手动删除这个
文件夹下的“重命名列表.txt”,这样较为稳妥&pause&goto :eof
set /p nn=请输入随机字母的位数:
if exist 重命名列表.txt del 重命名列表.txt
for %%b in (*.*) do (
call :ranwd2
ren %%~nxb !filename!%%~xb
echo %%~nxb !filename!%%~xb >>重命名列表.txt
)
goto :eof
:ranwd2
set word=
for /l %%a in (1,1,%nn%) do (call :ranwd1)
if not exist %word%.* (set filename=%word%) else call :ranwd2
goto :eof
:ranwd1
call :ranltr
set word=%word%%letter%
goto :eof
:ranltr
set
letter=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
set /a num=%random%%%52
call set letter=!letter:~%num%,1!
goto :eof
Originally posted by pinghu at 2008-2-10 11:37:
寻求一个能实现文本文件逐行倒序的批处理,具体是
最后一行变成第一行,倒数第二行变成第二行,依次类推
搜索 论坛有作者: pinghu 时间: 2008-2-10 13:58 标题: 再次更新
@echo off
setlocal enabledelayedexpansion
call :%* 2>nul || goto choice
goto :eof
:choice
set /p aa=安装右键菜单A,卸载右键菜单X:
if %aa%==a goto :install
if %aa%==x (goto :uninstall)else goto :choice
goto :eof
:resume
cd "%~1"
if not exist 重命名列表.txt (echo 这个文件夹里没有“重命名列表.txt”,无法恢复&pause&goto :eof)
for /f "tokens=1,2 delims=^|" %%c in (重命名列表.txt) do (ren %%d %%c)
goto :eof
:renam
cd "%~1"
if exist 重命名列表.txt echo 当前文件夹下已存在一个重命名列表,再次重命名会导致原文件名列表的丢失,如要重命名先手动删除这个文件夹下的“重命名列表.txt”,这样较为稳妥&pause&goto :eof
set /p nn=请输入随机字母的位数:
if exist 重命名列表.txt del 重命名列表.txt
for %%b in (*.*) do (
call :ranwd2
ren %%~nxb !filename!%%~xb
echo %%~nxb^|!filename!%%~xb >>重命名列表.txt
)
goto :eof
:ranwd2
set word=
for /l %%a in (1,1,%nn%) do (call :ranwd1)
if not exist %word%.* (set filename=%word%) else call :ranwd2
goto :eof
:ranwd1
call :ranltr
set word=%word%%letter%
goto :eof
:ranltr
set letter=0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
set /a num=%random%%%62
call set letter=!letter:~%num%,1!
goto :eof
:choice
set /p aa=安装右键菜单A,卸载右键菜单X:
if %aa%==a goto :install
if %aa%==x (goto :uninstall)else goto :choice
goto :eof
:resume
cd /d "%~1"
if not exist 重命名列表.txt (echo 这个文件夹里没有“重命名列表.txt”,无法恢复&pause&goto :eof)
for /f "tokens=1,2 delims=^|" %%c in (重命名列表.txt) do (ren %%d %%c)
goto :eof
:renam
cd /d "%~1"
if exist 重命名列表.txt echo 当前文件夹下已存在一个重命名列表,再次重命名会导致原文件名列表的丢失,如要重命名先手动删除这个文件夹下的“重命名列表.txt”,这样较为稳妥&pause&goto :eof
set /p nn=请输入随机字母的位数:
if exist 重命名列表.txt del 重命名列表.txt
for %%b in (*.*) do (
if "%%~nxb"=="重命名列表.txt" goto :eof
call :ranwd2
ren %%~nxb !filename!%%~xb
echo %%~nxb^|!filename!%%~xb >>重命名列表.txt
)
goto :eof
:ranwd2
set word=
for /l %%a in (1,1,%nn%) do (call :ranwd1)
if not exist %word%.* (set filename=%word%) else call :ranwd2
goto :eof
:ranwd1
call :ranltr
set word=%word%%letter%
goto :eof
:ranltr
set letter=0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
set /a num=%random%%%62
call set letter=!letter:~%num%,1!
goto :eof
:choice
set /p aa=安装右键菜单A,卸载右键菜单X:
if %aa%==a goto :install
if %aa%==x (goto :uninstall)else goto :choice
goto :eof
:resume
cd /d "%~1"
if not exist 重命名列表.txt (echo 这个文件夹里没有“重命名列表.txt”,无法恢复&pause&goto :eof)
del 临时.txt 2>nul
for /F "tokens=1* delims=:" %%i in ('findstr /n .* 重命名列表.txt') do set "line=%%i" &set "num%%i=%%j"
for /L %%i in (!line!,-1,1) do (>> 临时.txt echo.!num%%i!)
for /f "tokens=1,2 delims=^|" %%c in (临时.txt) do (ren %%d %%c)
del 临时.txt
goto :eof
:renam
cd /d "%~1"
if exist 重命名列表.txt echo 当前文件夹下已存在一个重命名列表,再次重命名会导致原文件名列表的丢失,如要重命名先手动删除这个文件夹下的“重命名列表.txt”,这样较为稳妥&pause&goto :eof
set /p nn=请输入随机字母的位数:
for %%b in (*.*) do (
if "%%~nxb"=="重命名列表.txt" goto :eof
call :ranwd2
ren %%~nxb !filename!%%~xb
echo %%~nxb^|!filename!%%~xb >>重命名列表.txt
)
goto :eof
:ranwd2
set word=
for /l %%a in (1,1,%nn%) do (call :ranwd1)
if not exist %word%.* (set filename=%word%) else call :ranwd2
goto :eof
:ranwd1
call :ranltr
set word=%word%%letter%
goto :eof
:ranltr
set letter=0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
set /a num=%random%%%62
call set letter=!letter:~%num%,1!
goto :eof
我对2000多个文件测试成功,不满意的话再回帖作者: terse 时间: 2008-2-10 17:26 再上一个 没进行多文件测试
@echo off
for /f "delims=" %%i in ('dir /b /a-d "重命名*.bat" 2^>nul') do set n=%%~ni
set n=%n:重命名=%
if not exist 重命名.bat set fils=重命名.bat&&goto choice
set/a n+=1
set fils=重命名%n%.bat
:choice
set /p aa=重命名X 恢复H
if %aa%==x goto renam
if %aa%==h (goto resume) else goto :choice
goto :eof
:renam
for /f "delims=" %%i in ('dir /b /a-d *.jpg') do (
call :loop "%%i"
)
pause
goto :eof
:loop
for /l %%i in (1,1,10) do (call :lp)
>>%fils% echo ren "%var%.jpg" %1
ren %1 "%var%.jpg"
for %%i in (n var) do set %%i=
goto :eof
:lp
set str=0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
set/a s=%random%%%62
call set var=%var%%%str:~%s%,1%%
goto :eof
:resume
if not exist 重命名.bat (echo 之前没有进行重命名操作 无法恢复&pause&goto :eof)
Originally posted by pinghu at 2008-2-10 17:54:
这个代码只能支持jpg文件的重命名,还需要改进一下
修改了一下
Quote:
Originally posted by pinghu at 2008-2-10 17:53:
terse兄,我帮你测试了,提示我找不到文件!
@echo off
for /f "delims=" %%i in ('dir /b /a-d "重命名*.bat" 2^>nul') do set n=%%~ni
set n=%n:重命名=%
if not exist 重命名.bat set fils=重命名.bat&&goto choice
set/a n+=1
set fils=重命名%n%.bat
:choice
set /p aa=重命名X 恢复H
if %aa%==x goto renam
if %aa%==h (goto resume) else goto :choice
goto :eof
:renam
set /p pt=请输入随机字母的位数:
for /f "delims=" %%i in ('dir /b /a-d *.*^|findstr /v "^重命名.*.bat$"') do (
set nx=%%~xi
if not "%%~fi" == "%~f0" call :loop "%%i"
)
>>%fils% echo del %%0
pause
goto :eof
:loop
for /l %%i in (1,1,%pt%) do (call :lp)
>>%fils% echo ren "%var%%nx%" %1
ren %1 "%var%%nx%"
for %%i in (n var) do set %%i=
goto :eof
:lp
set str=0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
set/a s=%random%%%62
call set var=%var%%%str:~%s%,1%%
goto :eof
:resume
if not exist 重命名.bat (echo 之前没有进行重命名操作 无法恢复&pause&goto :eof)
echo 之前共操作了%n%次重命名
set/p t=恢复之前第几次操作
set/a t-=1
if %n% equ 1 set fils=重命名.bat &&goto resume2
:hf
set/a n-=1
set fils=重命名%n%.bat
:resume2
if %n% equ 0 set fils=重命名.bat
call %fils%
if %n% equ %t% goto :eof
goto hf作者: pinghu 时间: 2008-2-10 19:38 我认为文件名长度一样的比较好看,随机的长度也是很容易实现的作者: gundam72 时间: 2008-2-10 19:46 因为我需要将一些比较大的资源做成伪图片格式上传的163相册保存,但是网易最近在封杀文件名有规律的图片,所以我才想到要随机命名,如果能实现文件名长度在一定范围内随机的话就最好了作者: pinghu 时间: 2008-2-10 20:02 标题: 修正了只能手动删除文件名列表的bug
@echo off
setlocal enabledelayedexpansion
call :%* 2>nul || goto choice
goto :eof
:choice
set /p aa=安装右键菜单A,卸载右键菜单X:
if %aa%==a goto :install
if %aa%==x (goto :uninstall)else goto :choice
goto :eof
:resume
cd /d "%~1"
if not exist 重命名列表.txt (echo 这个文件夹里没有“重命名列表.txt”,无法恢复&pause&goto :eof)
del 临时.txt 2>nul
for /F "tokens=1* delims=:" %%i in ('findstr /n .* 重命名列表.txt') do set "line=%%i" &set "num%%i=%%j"
for /L %%i in (!line!,-1,1) do (>> 临时.txt echo.!num%%i!)
for /f "tokens=1,2 delims=^|" %%c in (临时.txt) do (ren %%d %%c)
del 临时.txt
goto :eof
:renam
cd /d "%~1"
if exist 重命名列表.txt set /p cc=当前文件夹下已存在一个重命名列表,再次重命名会导致原始文件名列表的丢失,如要继续请按A:
if /i %cc%==a (goto :next) else goto :eof
:next
del 重命名列表.txt
set /p nn=请输入随机字母的位数:
for %%b in (*.*) do (
if "%%~nxb"=="重命名列表.txt" goto :eof
call :ranwd2
ren %%~nxb !filename!%%~xb
echo %%~nxb^|!filename!%%~xb >>重命名列表.txt
)
goto :eof
:ranwd2
set word=
for /l %%a in (1,1,%nn%) do (call :ranwd1)
if not exist %word%.* (set filename=%word%) else call :ranwd2
goto :eof
:ranwd1
call :ranltr
set word=%word%%letter%
goto :eof
:ranltr
set letter=0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
set /a num=%random%%%62
call set letter=!letter:~%num%,1!
goto :eof
:choice
set /p aa=安装右键菜单A,卸载右键菜单X:
if %aa%==a goto :install
if %aa%==x (goto :uninstall)else goto :choice
goto :eof
:resume
cd /d "%~1"
if not exist 重命名列表.txt (echo 这个文件夹里没有“重命名列表.txt”,无法恢复&pause&goto :eof)
del 临时.txt 2>nul
for /F "tokens=1* delims=:" %%i in ('findstr /n .* 重命名列表.txt') do set "line=%%i" &set "num%%i=%%j"
for /L %%i in (!line!,-1,1) do (>> 临时.txt echo.!num%%i!)
for /f "tokens=1,2 delims=^|" %%c in (临时.txt) do (ren %%d %%c)
del 临时.txt
goto :eof
:renam
cd /d "%~1"
if not exist 重命名列表.txt goto :next
if exist 重命名列表.txt set /p cc=当前文件夹下已存在一个重命名列表,再次重命名会导致原始文件名列表的丢失,如要继续请按A:
if /i %cc%==a (goto :next) else goto :eof
:next
del 重命名列表.txt
set /p mm=请输入随机字母位数的上限值:
for %%b in (*.*) do (
if "%%~nxb"=="重命名列表.txt" goto :eof
call :ranwd2
ren %%~nxb !filename!%%~xb
echo %%~nxb^|!filename!%%~xb >>重命名列表.txt
)
goto :eof
:ranwd2
set word=
set /a nn=%random%%%%mm%+1
for /l %%a in (1,1,%nn%) do (call :ranwd1)
if not exist %word%.* (set filename=%word%) else call :ranwd2
goto :eof
:ranwd1
call :ranltr
set word=%word%%letter%
goto :eof
:ranltr
set letter=0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
set /a num=%random%%%62
call set letter=!letter:~%num%,1!
goto :eof
:choice
set /p aa=安装右键菜单A,卸载右键菜单X:
if %aa%==a goto :install
if %aa%==x (goto :uninstall)else goto :choice
goto :eof
:resume
cd /d "%~1"
if not exist 重命名列表.txt (echo 这个文件夹里没有“重命名列表
.txt”,无法恢复&pause&goto :eof)
del 临时.txt 2>nul
for /F "tokens=1* delims=:" %%i in ('findstr /n .* 重命名列
表.txt') do set "line=%%i" &set "num%%i=%%j"
for /L %%i in (!line!,-1,1) do (>> 临时.txt echo.!num%%i!)
for /f "tokens=1,2 delims=^|" %%c in (临时.txt) do (ren %%d %
%c)
del 临时.txt
goto :eof
:renam
cd /d "%~1"
if not exist 重命名列表.txt goto :next
if exist 重命名列表.txt set /p aa=当前文件夹下已存在一个重命名
列表,再次重命名会导致原始文件名列表的丢失,如要继续请按A,如要
退出请按任意键:
if /i %aa%==a (goto :next) else goto :eof
:next
del 重命名列表.txt
set /p mm=请输入随机字母位数的上限值:
for %%b in (*.*) do (
if "%%~nxb"=="重命名列表.txt" goto :eof
call :ranwrd
if not exist %word%.* call :ranwrd
ren %%~nxb !word!%%~xb
echo %%~nxb^|!word!%%~xb >>重命名列表.txt
)
goto :eof
:ranwrd
set word=
set /a nn=%random%%%%mm%+1
for /l %%a in (1,1,%nn%) do (call :ranltr)
goto :eof
@echo off
setlocal enabledelayedexpansion
color 0a
call :%* 2>nul || goto choice
goto :eof
:choice
set /p aa=安装右键菜单A,卸载右键菜单X:
if %aa%==a goto :install
if %aa%==x (goto :uninstall)else goto :choice
goto :eof
:resume
cd /d "%~1"
if not exist 重命名列表.txt (echo 这个文件夹里没有“重命名列表.txt”,无法恢复&pause&goto :eof)
del 临时.txt 2>nul
for /F "tokens=1* delims=:" %%i in ('findstr /n .* 重命名列表.txt') do set "line=%%i" &set "num%%i=%%j"
for /L %%i in (!line!,-1,1) do (>> 临时.txt echo.!num%%i!)
for /f "tokens=1,2 delims=^|" %%c in (临时.txt) do (ren %%d %%c)
del 临时.txt
goto :eof
:renam
cd /d "%~1"
if not exist 重命名列表.txt goto :next
if exist 重命名列表.txt set /p aa=当前文件夹下已存在一个重命名列表,再次重命名会导致原始文件名列表的丢失,如要继续请按A,如要退出请按任意键:
if /i %aa%==a (goto :next) else goto :eof
:next
del 重命名列表.txt
:rector
set /p mm=请输入随机字母位数的上限值:
echo %mm%|findstr "^[0-9]*$">nul || echo 上限值不能包含字符:&&goto :rector
if %mm% equ 0 echo 上限值不能为零&&goto :rector
for %%b in (*.*) do (
if "%%~nxb"=="重命名列表.txt" goto :eof
call :ranwrd
if not exist %word%.* call :ranwrd
ren %%~nxb !word!%%~xb
echo %%~nxb^|!word!%%~xb >>重命名列表.txt
)
goto :eof
:ranwrd
set word=
set /a nn=%random%%%%mm%+1
for /l %%a in (1,1,%nn%) do (call :ranltr)
goto :eof
:ranltr
set letter=0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
set /a num=%random%%%62
call set word=%word%%%letter:~%num%,1%%
goto :eof