获取随机字符时如何避免出现重复的字符 - 中国DOS联盟论坛

以下代码,生成的随机1,随机2和随即3,可能出现相同的结果,请求解决之法:

@echo off&Setlocal Enabledelayedexpansion
set str=rdqthlgfvunbompkjcwseiayzx
set /a "var1=!random!%%4+5","w=0"&set "var="
call :lb
:lb
if "%w%"=="%var1%" (set /p=%var%<nul>随机1.txt&goto dsfa)
set /a w+=1,var2=%random%%%26
set "var=%var%!str:~%var2%,1!"
goto :lb
:dsfa
sleep 200
set atr=xrubkwpijnmzstvyhdceqalof
set /a "varx=!random!%%4+5","q=0"&set "wwar="
call :lbb
:lbb
if "%q%"=="%varx%" (set /p=%wwar%<nul>随机2.txt&goto dsss)
set /a q+=1,var3=%random%%%25
set "wwar=%wwar%!atr:~%var3%,1!"
goto :lbb
:dsss
sleep 300
set qtr=ghqvinpucofjtdkexrszwyamb
set /a "vart=!random!%%4+5","e=0"&set "qqar="
call :lob
:lob
if "%e%"=="%vart%" (set /p=%qqar%<nul>随机3.txt&goto fgdsq)
set /a e+=1,var4=%random%%%25
set "qqar=%qqar%!qtr:~%var4%,1!"
goto :lob
:fgdsq
pause

代码取自:http://www.cn-dos.net/forum/viewthread.php?tid=44870&fpage=1&highlight=

谢谢!!

[ Last edited by HAT on 2008-12-10 at 17:52 ]

第1楼　ka56	发表于 2008-12-10 12:35
中级用户　发帖 129　积分 234
[已结]获取随机字符时如何避免出现重复的字符以下代码,生成的随机1,随机2和随即3,可能出现相同的结果,请求解决之法: @echo off&Setlocal Enabledelayedexpansion set str=rdqthlgfvunbompkjcwseiayzx set /a "var1=!random!%%4+5","w=0"&set "var=" call :lb :lb if "%w%"=="%var1%" (set /p=%var%<nul>随机1.txt&goto dsfa) set /a w+=1,var2=%random%%%26 set "var=%var%!str:~%var2%,1!" goto :lb :dsfa sleep 200 set atr=xrubkwpijnmzstvyhdceqalof set /a "varx=!random!%%4+5","q=0"&set "wwar=" call :lbb :lbb if "%q%"=="%varx%" (set /p=%wwar%<nul>随机2.txt&goto dsss) set /a q+=1,var3=%random%%%25 set "wwar=%wwar%!atr:~%var3%,1!" goto :lbb :dsss sleep 300 set qtr=ghqvinpucofjtdkexrszwyamb set /a "vart=!random!%%4+5","e=0"&set "qqar=" call :lob :lob if "%e%"=="%vart%" (set /p=%qqar%<nul>随机3.txt&goto fgdsq) set /a e+=1,var4=%random%%%25 set "qqar=%qqar%!qtr:~%var4%,1!" goto :lob :fgdsq pause 代码取自:http://www.cn-dos.net/forum/viewthread.php?tid=44870&fpage=1&highlight= 谢谢!! [ Last edited by HAT on 2008-12-10 at 17:52 ]

第2楼　HAT	发表于 2008-12-10 12:39
版主　发帖 5,017　积分 9,023
http://www.cn-dos.net/forum/viewthread.php?tid=39925#pid275546 http://www.cn-dos.net/forum/viewthread.php?tid=40937#pid283426

第3楼　ka56	发表于 2008-12-10 15:14
中级用户　发帖 129　积分 234
谢谢版版,已经搞定了~~