Board logo

标题: [已结]获取随机字符时如何避免出现重复的字符 [打印本页]

作者: ka56     时间: 2008-12-10 12:35    标题: [已结]获取随机字符时如何避免出现重复的字符

以下代码,生成的随机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/view ... ge=1&highlight=

谢谢!!

[ Last edited by HAT on 2008-12-10 at 17:52 ]
作者: HAT     时间: 2008-12-10 12:39
http://www.cn-dos.net/forum/viewthread.php?tid=39925#pid275546
http://www.cn-dos.net/forum/viewthread.php?tid=40937#pid283426
作者: ka56     时间: 2008-12-10 15:14
谢谢版版,已经搞定了~~