@echo off
for %%a in (1 2 3 a b c) do (
	for %%b in (2 3 a b c 1) do (
		for %%c in (3 a b c 1 2) do (
			for %%d in (a b c 1 2 3) do (
				for %%e in (b c 1 2 3 a) do (
					for %%f in (c 1 2 3 a b) do (
						echo %%a %%b %%c %%d %%e %%f
						set /a n+=1
						call title %%n%%组
						)
					)
				)
			)
		)
	)
pause
复制代码

@echo off&color 1f&set "n=0"
echo 正在排列，请耐心等候。。。
echo\&echo 开始时间 %time%
set t=%time%
echo.
set var=1 2 3 a b c
for %%a in (%var%) do (
  for %%b in (%var%) do (
  for %%c in (%var%) do (
  for %%d in (%var%) do (
  for %%e in (%var%) do (
  for %%f in (%var%) do (
  set /a w+=1
  call title 排列次数 %%w%% 次， 排列结果 %%n%% 个
  setlocal enabledelayedexpansion
  set lis=%%a %%b %%c %%d %%e %%f
  for %%i in (!lis!) do set /a _%%i+=1
  for /f "tokens=2 delims==" %%j in ('set _') do if %%j geq 2 set flag=a
  if not defined flag (
    >>pai.txt echo !lis!
    echo !lis!
    endlocal&set /a n+=1
  ) else endlocal
))))))
>>pai.txt echo 排列次数 %w% 次， 排列结果 %n% 个
>>pai.txt echo 开始时间 %t%
>>pai.txt echo 结束时间 %time%
pause
复制代码

@echo off&setlocal enabledelayedexpansion
echo 正在排列，请耐心等候。。。
echo\&echo 开始时间 %time%
set t=%time%
for /l %%i in (123456 1 654321) do (
  for /l %%a in (1 1 6) do set "%%a="
  set flag=&set var=%%i
  set num=!var:~0,1! !var:~1,1! !var:~2,1! !var:~3,1! !var:~4,1! !var:~5,1!
  for /l %%a in (1 1 6) do set var=!var:%%a=!
     if not defined var (
	   for %%a in (!num!) do (
	     if not defined %%a (set %%a=a) else set flag=a
	   )
	   if not defined flag (
	    set num=!num:4=a!
	    set num=!num:5=b!
	    set num=!num:6=c!
	    echo !num!
	    set /a n+=1
	    title 第 !n! 个组合
)))
echo 共有 !n!个组合
echo 结束时间 %time%
pause
复制代码

@echo off
set starttime=%time%
setlocal enabledelayedexpansion
set var1=1 2 3 a b c
for %%i in (!var1!) do (
set var2=!var1:%%i=!
for %%j in (!var2!) do (
  set var3=!var2:%%j=!
  for %%k in (!var3!) do (
   set var4=!var3:%%k=!
   for %%l in (!var4!) do (
    set var5=!var4:%%l=!
    for %%m in (!var5!) do (
     set var6=!var5:%%m=!
      for %%n in (!var6!) do (
      echo %%i%%j%%k%%l%%m%%n
      set /a flag+=1
      )
    )
   )
  )
)
)
set endtime=%time%
echo 共有%flag%个组合
echo 开始时间为 %starttime%
echo 结束时间为 %endtime%
pause
复制代码

@echo off&setlocal enabledelayedexpansion
call :func "0" "" "123abc"
pause

:func
if %3=="" (set /a na=%~1+1
           echo,%~2
           goto :eof)
set na=0
:loop
      set str=%~3
      set /a nb=na+1
      call :func "%na%" "%~2!str:~%na%,1!" "!str:~0,%na%!!str:~%nb%!"
      set str=%~3
if not "!str:~%na%!"=="" goto :loop
set /a na=%~1+1
复制代码