中国DOS联盟

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

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

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [已结]怎样随机生成n个5位随机数并保存到txt或xls文件？

whhlcj
新手上路

积分 4
发帖 4
注册 2008-12-19
状态离线

『楼主』: [已结]怎样随机生成n个5位随机数并保存到txt或xls文件？

由于工作需要，我要生成2000个不重复的5位随机数，用vbs或bat怎么实现？

[ Last edited by HAT on 2008-12-22 at 16:04 ]

2008-12-22 14:15

moniuming
银牌会员

永远的菜鸟

积分 1335
发帖 574
注册 2007-11-27
来自广西
状态离线

『第 2 楼』:

@echo off

for /l %%a in (1 1 2000) do (call :rdm)

goto :eof

:rdm

set str=%random%%random%%random%%random%

set str=%str:~-5%

if defined _%str% goto :rdm

set _%str%=ok

>>rst.txt set/p=%str% <nul

[ Last edited by moniuming on 2008-12-22 at 14:36 ]

2008-12-22 14:31

pusofalse
银牌会员

积分 1604
发帖 646
注册 2008-4-13
状态离线

『第 3 楼』:

@Echo Off & setlocal EnableDelayedExpansion

For /L %%a in (1001 1 3000) do (

       set /a n=!random! %% 9 + 1

       set .!random!!random!=!n!%%a

)

For /F "tokens=2 delims==" %%a in ('set .') do Echo>>num.txt %%a

start "" "num.txt"

[ Last edited by pusofalse on 2008-12-22 at 16:18 ]

此帖被 +9 点积分

点击查看详情

心绪平和,眼藏静谧,无比安稳的火... Purification of soul...Just a false...^_^

2008-12-22 14:58

whhlcj
新手上路

积分 4
发帖 4
注册 2008-12-19
状态离线

『第 4 楼』:

谢谢楼上2位！！
2楼的产生后输出成文件使用空格隔开的，不如3楼每数一行
不过还是感谢2位！

[ Last edited by whhlcj on 2008-12-22 at 16:03 ]

2008-12-22 16:01

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: