[文本处理] [已解决]批处理求1-10数字，5个一组，每组数据不相同并>a.txt

@echo off & setlocal enabledelayedexpansion
for /L %%i in (101 1 110) do set "str=!str! %%i"
(for /L %%i in (1 1 20000) do (
    set "strTmp=!str!"
    set "strOut="
    for /L %%j in (0 1 4) do (
        set /a "n = !Random! %% (10 - %%j), a = n * 4, b = a + 4"
        for /f "tokens=1,2" %%x in ("!a! !b!") do (
            set "s=!strTmp:~%%x,4!"
            set "strTmp=!strTmp:~0,%%x!!strTmp:~%%y!"
        )
        set "strOut=!strOut!!s:~-2!,"
    )
    echo;!strOut:~0,-1!
)) > a.Log
pause
复制代码

@echo off&setlocal enabledelayedexpansion
set /a N=10,R=5,S=N-R,i=1,j=1
for /l %%i in (1 1 %N%) do (
     if %%i lss 10 (set _%%i=0%%i ) else set _%%i=%%i
)
for /l %%i in (1,1,%S%) do set /a "i*=(N-%%i+1),j*=%%i"
set /a i/=j
for /l %%i in (1 1 %R%) do set /a A%%i=%%i,B%%i=%%i+S&set #=!#!,!_%%i!
echo!#!
for /l %%a in (2 1 !I!) do (
    set "#="
    for /l %%i in (1 1 !R!) do if not #!A%%i! == #!B%%i! set M=%%i
    for %%i in (!M!) do (
        set L=!A%%i!
        for /l %%j in (1 1 %R%) do (
            if %%j geq %%i set/a A%%j=L+1,L=A%%j
            set #=!#! !A%%j!
        )
    )
    for %%i in (!#!) do set emp=!emp!,!_%%i!
    echo!emp!&set emp=
)
echo 总 !i! 组
pause
复制代码

@echo off&setlocal enabledelayedexpansion
set " var=01 02 03 04 05 06 07 08 09 10"
set "m=5"
for %%i in (%var%) do (
    set /a n+=1&set #!n!=%%i
    if !n! leq !m! (set s=1!s!)else set s=!s!0
)
set/a r=n-m,i=j=1
for /l %%i in (1,1,%r%) do set /a "i*=(n-%%i+1),j*=%%i"
set s=0!s!&set /a "i/=j"
(for /l %%i in (1 1 !i!) do (
    for /l %%j in (1 1 !n!) do (
        if "!s:~%%j,1!" == "1" set $=!$!,!#%%j!
    )
           for /f %%a in ("!s:10= !") do set "j=%%a"
           set s=0!j:0=!!j:1=!1!s:*10=!
           echo!$!&set "$="
))>$#.t
sort $#.t /o a.txt
del $#.t
pause
复制代码

@echo off & setlocal enabledelayedexpansion
(for /L %%i in (101 1 106) do (
    set /a n=%%i+1
    for /L %%j in (!n! 1 107) do (
        set /a n=%%j+1
        for /L %%k in (!n! 1 108) do (
            set /a n=%%k+1
            for /L %%l in (!n! 1 109) do (
                set /a n=%%l+1
                for /L %%m in (!n! 1 110) do set "s=,%%i,%%j,%%k,%%l,%%m" & set "s=!s:,1=,!" & echo!s!
            )
        )
    )
)) > a.Log
pause
复制代码