CODE: [Copy to clipboard]
@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!
)
)
附图片: