当前位置: 首页 > 图文教程 > 脚本技术 > DOS/BAT > 显示随机的5个数

DOS/BAT
一个“灵异”批处理引发的思考加补充说明
批处理提取不同行上的内容的代码
windows 复制隐藏帐号完全批处理
使用regini.exe修改注册表命令
将bat文件注册为windows系统服务的方法
恶意软件\垃圾流氓通用反删除批处理文件
G8.3做的GHO G8.3不识别的问题的完美解决方案!
MD和RD命令的使用方法
DOS的启动过程详解分析
Msd、Undelete命令的使用方法
win32下的命令行集合
制作bat批处理和任意QQ号聊天!
用批处理实现将文件以数字重命名的代码
批处理之家发现的用批处理实现的系统类应用代码
纯脚本备份_还原驱动增强版附相关sleep.exe
批处理删除使用所有Windows Update功能的访问[图文+bat]
批处理 数码雨代码解释
按扩展名分类的批处理
批处理 网络配置信息查看器
获取文件更新列表 批处理

DOS/BAT 中的 显示随机的5个数


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-11   浏览: 60 ::
收藏到网摘: n/a

复制代码 代码如下:

@echo off
:: 求1-100范围内随机的不同5个数值
:: 生成0-99之间的随机数列 R1
::
::
::
@echo off
setlocal EnableDelayedExpansion
:: 初始化顺序数列
for /l %%i in (0,1,99) do (
set rnum%%i=%%i
)
:: 对数列进行随机交换
for /l %%i in (0,1,99) do (
set /a rnd=!random! %% 100
call set tmp=%%rnum!rnd!%%
set rnum!rnd!=!rnum%%i!
set rnum%%i=!tmp!
)
set rnum
pause
goto :eof
@echo off
:: Code by JM 2006-1-5 CMD@XP
:begin
cls
set times=0
set count=0
:loop
set /a num=%random%%%99+1
if not defined num%num% (
set num%num%=%num%
set /a count+=1
call echo %%num%%
)
set /a times+=1
if %times% equ 20 (
for /l %%i in (1,1,99) do set num%%i=
set times=0
)
if %count% lss 5 goto loop
pause>nul
goto begin
@echo off
:: Code by JM 2007-1-6 CMD@XP
:: 因为用到了 echo|find 的结构,速度比较慢
::
:begin
cls
set count=0
:loop
set /a num=%random%%%100+1
echo %str%|find " %num% ">nul&&goto loop
call set str=%%str%% %num%
set /a count+=1
if %count% lss 5 goto loop
echo %str%
set str=
pause
goto begin
@echo off&setlocal enabledelayedexpansion
::
::
for /l %%a in (1;1;5) do (
set/a b=!random!%%99+1
call :pp !b!
)
goto :eof
:pp
if not defined %1 (set %1=a) else goto loop
echo %1
goto :eof
:loop
set/a b=!random!%%99+1
call :pp !b!
@echo off
::
::
set Max=100
set N=5
:start
cls
echo %time%
set Num=
set Tmp$=
:loop
set /a randomloop=(%random%+%random%+%random%)/3%%%Max%+1
for %%n in (%Tmp$%) do if "%randomloop%" == "%%n" goto loop
call set Tmp$=%%Tmp$%% %randomloop%
set /a Num+=1
set random_%Num%=%randomloop%
if %Num% LSS %N% goto loop
echo %Tmp$%
echo %time%
pause
goto start
exit
@echo off
::
::
:start
cls
set Num=
set Tmp$=
:loop
set /a randomloop=%random%%%99+1
for %%n in (%Tmp$%) do if "%randomloop%" == "%%n" goto loop
call set Tmp$=%%Tmp$%% %randomloop%
set /a Num+=1
set random_%Num%=%randomloop%
if %Num% LSS 5 goto loop
for /l %%n in (1,1,%Num%) do call set /p= %%random_%%n%%<nul
echo.
pause
goto start
exit