[已解決]批處理求110數字5個一組每組數據不相同并>atxt最后由 wxyz0001 于 -10-30 12:46求1-10數字，5個一組，每組數據不相同并>a.txt輸出后結果：01,02,03,04,0501,02,03,04,06 01,02,03,04,07 01,02,03,04,08 01,02,03,04,09 01,02,03,04,1001,02,03,05,06 01,02,03,05,07 01,02,03,05,08 ......要求XP的批處理格式編寫的代碼===============完美解決===================

@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
nclick="copycode($('code0'));">復制代碼

上面這段代碼var字符數組可以根據需要設定沒有規律的數字，是這段代碼最大的優點___________________________________

@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=
)>>a.txt
echo 總 !i! 組
pause
nclick="copycode($('code1'));">復制代碼