[已结]获取随机字符时如何避免出现重复的字符 - DOS批处理 & 脚本技术（批处理室） - 中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

以下代码,生成的随机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

代码取自:www.cn-dos.net/forum ... 谢谢!!

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