中国DOS联盟

@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
)

@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!
    )
)