@echo off&setlocal enabledelayedexpansion
rem code by wankoilz from bbs.bathome.net
set/p chr=请输入要排列的字符,以空格分开:
set t=%time%
for %%i in (%chr%) do (set a=%%i&set/a n+=1)
set/a n-=1&set _%a%=ok&set chr=!chr:%a%=!
(for %%1 in (%chr%) do (
    set/a m+=1
    for /f "delims=_= tokens=1" %%i in ('set _') do (
    if not !n! equ !m! (
              set _%%1 %%i=ok
              set str=%%i
              for %%j in (%%i) do set _!str:%%j=%%j %%1!=ok
              set _%%i=
    ) else (
              echo %%1 %%i&set str=%%i
              for %%j in (%%i) do echo !str:%%j=%%j %%1!
    
))))>c.txt
echo %t%
echo %time%
pause>nul
复制代码