netbenton

@echo off&setlocal enabledelayedexpansion
set n=-1
for /f "tokens=*" %%a in (a.txt) do (
	set str=%%a
	set t=!t!!str:~,1!
	set w=!w!!str:~-1!
	set t!str:~,1!=%%a
	set w!str:~-1!=%%a
	set/a n+=1
)
for /l %%a in (0,1,!n!) do for %%b in ("!t:~%%a,1!") do (
	if "!w:%%~b=!" neq "!w!" for %%c in ("!t%%~b:~-1!") do set w=%%~c!w:%%~c=!
)

for /l %%a in (0,1,!n!) do for %%b in ("!w:~%%a,1!") do echo;!w%%~b!
复制代码

netbenton

这个可以了，支持字母以外的字符

@echo off&setlocal enabledelayedexpansion
for /f "tokens=*" %%a in (a.txt) do (
        set str=%%a
        set t=!t!!str:~,1! 
        set w=!w!!str:~-1! 
        set t!str:~,1!=%%a
)

:lp
(
for %%b in (!t!) do (
        for %%c in ("!t%%~b:~-1!") do (
                set str=!w:*%%~b=!
                if !str! neq !w! (
                        if "!str:%%~c=!" neq "!str!" (
                                set w=%%~c !w: %%~c=!
                                set t=%%b !t: %%b=!
                        )
                )
        )
)
if "%w%" neq "!w!" goto :lp)

for %%b in (!t!) do echo;!t%%~b!
复制代码

netbenton

我自己从论坛复制下来的，经测试也正常呀，
可能是太快了，一闪而过吧
在后面加个暂停看看

netbenton

确实我从论坛复制下来测试没有问题，所以。。。

原来是有时候复制和粘贴代码时会丢掉后面的空格。

不好意思，看来我要改掉不加双引号的习惯才行