中国DOS联盟

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

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

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

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

ka56
中级用户

积分 234
发帖 129
注册 2006-11-28
状态离线

『楼主』: [已结]获取随机字符时如何避免出现重复的字符

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