wutarnow

回复 1# youxi01

@echo off
setlocal enabledelayedexpansion

for /l %%I in (1,1,4) do (
    call :CreateRandom
    echo !createRandom!
)
goto :EOF

:CreateRandom
set createRandom=%RANDOM%
if %createRandom% LEQ 999 (
    goto :CreateRandom
) else if %createRandom% LSS 10000 (
    call :IsFourSame %createRandom%
    if !isFourSame! EQU 0 (
        exit /b
    ) else (
        goto :CreateRandom
    )
) else (
    goto :CreateRandom
)

:IsFourSame
set value=%1
set ch1=%value:~,1%
set ch2=%value:~1,1%
if %ch1% EQU %ch2% set isFourSame=1 & exit /b
set ch3=%value:~2,1%
if %ch3% EQU %ch1% set isFourSame=1 & exit /b
if %ch3% EQU %ch2% set isFourSame=1 & exit /b
set ch4=%value:~3,1%
if %ch4% EQU %ch1% set isFourSame=1 & exit /b
if %ch4% EQU %ch2% set isFourSame=1 & exit /b
if %ch4% EQU %ch3% set isFourSame=1 & exit /b
set isFourSame=0
exit /b
复制代码