@echo off
if exist num.txt del /q num.txt
set n=0
:begin
set /a n+=1&set m=0&set str=&set var=
if %n% gtr 100 start num.txt&goto :eof
:lp
set /a a=%random%%%49+1
for %%i in (%str%) do if %%i equ %a% goto lp
set str=%str% %a%&set /a m+=1
set var=%var% %n%-%a%
if %m% equ 7 (
echo %var%>>num.txt&goto begin
) else (
goto lp
)
[ Last edited by zw19750516 on 2008-4-29 at 11:38 AM ]
@echo off&setlocal enabledelayedexpansion
echo 组号 号码 特号>num.txt
set n=0
:begin
set /a n+=1&set m=0&set str=
if %n% gtr 100 start num.txt&goto :eof
:lp
set /a num=%random%%%49+1
if %num% lss 10 set num=0%num%
set num=#%num%#
for %%i in (%str%) do if %%i equ %num% goto lp
set str=%num% %str%&set /a m+=1
if %m% equ 7 (
for %%i in (%str%) do set a=%%i&call :loop
set str=!str:#=!
for %%i in (!str!) do set th=%%i
echo %n% !str! !th!>>num.txt
goto begin
) else (
goto lp
)
:loop
for %%i in (%str%) do (
set b=%%i
set b=!b:~1,-1!&set c=!a:~1,-1!
if !b! lss !c! (
set str=!str:%a% =!
set str=!str:%%i=%%i %a%!
) else (
set str=!str!
)
)
附图片：
[ Last edited by zw19750516 on 2008-5-6 at 12:36 AM ]
