[文本处理] [已解决]批处理如何实现文本中字母排列组？

@echo off&setlocal enabledelayedexpansion
set/p row=row:
set/p col=col:
set rowChar=$ABCDEF
for /l %%a in (1,1,%row%) do (
    for /l %%b in (1,1,%col%) do (
	set row%%a=!row%%a!!rowChar:~%%a,1!%%b 
	set col%%b=!col%%b!!rowChar:~%%a,1!%%b 
    )
)
for /l %%a in (1,1,%row%) do echo !row%%a!
for /l %%a in (1,1,%row%) do (
	set last=
	for %%b in (!row%%a!) do (
	    if not "!last!"=="" set/p=!last!%%b <nul
	    set last=%%b
	)
	echo;
)
for /l %%a in (2,1,%row%) do (
	for /l %%b in (1,1,%col%) do (
	    set last=&set n=
	    for %%c in (!col%%b!) do (
		set/a n+=1
	        if !n! equ %%a set/p=!last!%%c <nul
		set last=%%c
	    )
	)
	echo;
)
pause
复制代码

#&cls&@echo off&setlocal enabledelayedexpansion
#&cls&set/p row=row:&set/p col=col:&set rowChar=$ABCDEF
#&cls&(for /l %%a in (1,1,%row%) do (for /l %%b in (1,1,%col%) do set/p=!rowChar:~%%a,1!%%b <nul)&echo;)>a.txt
#&cls&@gawk -f %0 a.txt>con&pause>nul&exit

{for(i=1;i<=NF;i++){row[NR][i]=$i};print $0}
END {
    for(i=1;i<=NR;i++){
	    for(j=1;j<NF;j++){
	        printf row[i][j]row[i][j+1]" "
	    }
    print "\r"
    }
    for(i=1;i<NR;i++){
	    for(j=1;j<=NF;j++){
	        printf row[i][j]row[i+1][j]" "
	    }
    print "\r"
    }
}
复制代码

@echo off&setlocal enabledelayedexpansion
set row=3
set col=5
set str=$ABCDEF
for /l %%a in (1,1,%row%) do (
    set a=&set "s="
    for /l %%b in (1,1,%col%) do (
        set "a%%a=!a%%a! !a!!str:~%%a,1!%%b"
        set "a=!str:~%%a,1!%%b"
	set "s=!s! !a!"
        set “c%%a=!c%%a! !b%%b!!a!“
        set ”b%%b=!a!“
    )
    echo!s!
)
for /l %%a in (1,1,%row%) do echo!a%%a:~3!
for /l %%a in (2,1,%row%) do echo!c%%a!
pause
复制代码

set “c%%a=!c%%a! !b%%b!!a!“
set ”b%%b=!a!“
复制代码