[其他] 批处理如何判断一个十位数字中的数字是否有重复

@echo off & setlocal enabledelayedexpansion
for /l %%i in (0 1 9) do set num%%i=%%i
:start
set "str="
for /l %%i in (0 1 9) do (
    set /a rnd=!random:~-1!,var=!num%%i!
    call set num%%i=%%num!rnd!%%
    set num!rnd!=!var!
)
for /l %%i in (0 1 9) do set str=!str!!num%%i!

set /a Fnum=%str:~0,1%
set /a 1/%Fnum% 2>nul||goto :start
echo 10位随机数为：!str!
echo.&echo 按任意键获得下个随机数
pause>nul
goto :start
复制代码

@echo off
set var=4230195678
echo %var%&echo.
for /l %%i in (0 1 9) do call set var=%%var:%%i=%%i =%%
for %%a in (%var%) do set /a num+=%%a
if %num% equ 45 (echo 没有重复的数字) else echo 有重复的数字
pause>nul
复制代码

@echo off
set var=2230195678
echo %var%&echo.
:lis
if not defined _%var:~0,1% (set _%var:~0,1%=a) else set jie=a
set var=%var:~1%
if defined var goto lis
if not defined jie (echo 没有重复的数字) else echo 有重复的数字
pause
复制代码

@echo off
:start
set "var=0 1 2 3 4 5 6 7 8 9 "
set su=10
setlocal enabledelayedexpansion
call :lis "!var!"
echo.&echo 10位随机数为：!str!
echo.&echo 按任意键获得下个随机数
pause>nul
endlocal
goto :start
:lis
set /a w=!random!%%!su!+1
for %%i in (%~1) do (
  set /a num+=1
  if !num! equ !w! (
  set str=!str!%%i
  set var=!var:%%i =!
  set /a su-=1,num=0
  if defined var call :lis "!var!"
  goto :eof
))
goto :eof
复制代码

@echo off
set var=4230195678
echo %var%&echo.
for /l %%i in (0 1 9) do call set var=%%var:%%i=%%i =%%
for %%a in (%var%) do set /a num+=%%a
if %num% equ 45 (echo 没有重复的数字) else echo 有重复的数字
pause>nul
复制代码

@echo off
:start
set "var=0 1 2 3 4 5 6 7 8 9 "
set su=10
setlocal enabledelayedexpansion
call :lis "!var!"
echo.&echo 10位随机数为：!str!
echo.&echo 按任意键获得下个随机数
pause>nul
endlocal
goto :start
:lis
set /a w=!random!%%!su!+1
for %%i in (%~1) do (
  set /a num+=1
  if !num! equ !w! (
  set str=!str!%%i
  set var=!var:%%i =!
  set /a su-=1,num=0
  if defined var call :lis "!var!"
  goto :eof
))
goto :eof
复制代码

@echo off
:start
set "var=0 1 2 3 4 5 6 7 8 9 "
set /a su=9
setlocal enabledelayedexpansion
set /a str=!random!%%9+1
set var=!var:%str% =!
call :lis "!var!"
echo.&echo 10位随机数为：!str!
echo.&echo 按任意键获得下个随机数
pause>nul
endlocal
goto :start
:lis
set /a w=!random!%%!su!+1
for %%i in (%~1) do (
  set /a num+=1
  if !num! equ !w! (
  set str=!str!%%i
  set var=!var:%%i =!
  set /a su-=1,num=0
  if defined var call :lis "!var!"
  goto :eof
))
goto :eof
复制代码

@echo off&setlocal enabledelayedexpansion
set str=1234567
if not defined str echo;null&goto end
for /f "tokens=1*delims=0123456789" %%a in ("%str%") do if "%%a%%b" neq "" echo;含非数字&goto end
if "%str:~10,1%" neq "" echo;Y&goto end
set len=%str%a9876543210&set/an=0x!len:~10,1!
for /l %%a in (0 1 9) do (
    set len=!str:%%a=!a9876543210&set/am=0x!len:~10,1!
    set/at=n-m&if !t! gtr 1 (echo;Y&goto end)
)
echo;N
:end
pause
复制代码