标题: [已结]怎样随机生成n个5位随机数并保存到txt或xls文件？ [打印本页]
作者: whhlcj 时间: 2008-12-22 14:15 标题: [已结]怎样随机生成n个5位随机数并保存到txt或xls文件？
由于工作需要，我要生成2000个不重复的5位随机数，用vbs或bat怎么实现？
[ Last edited by HAT on 2008-12-22 at 16:04 ]
作者: moniuming 时间: 2008-12-22 14:31
@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 ]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
作者: pusofalse 时间: 2008-12-22 14:58
@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 ]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"
作者: whhlcj 时间: 2008-12-22 16:01
谢谢楼上2位！！
2楼的产生后输出成文件使用空格隔开的，不如3楼每数一行
不过还是感谢2位！
[ Last edited by whhlcj on 2008-12-22 at 16:03 ]