[文本处理] [已解决] 求助寒夜孤星的组合排列内容，如何输出文本？

zzz19760225

抄的寒夜孤星的批处理，替换了变量内容，希望把内容输出到5.txt文本。
我试了括号全包括和只包括for，好像5.txt里什么都没有。故求助
set han=寒夜孤星
set han=阴阳表里寒热虚实

@echo off
::寒夜孤星5;那么变量中这四个字,每个字与其他字排列,不限定位数,可以存在单个文字,有多少种排列呢

setlocal enabledelayedexpansion
set han=阴阳表里寒热虚实
set m=0
set ye=abcdefghijklmnopqrstuvwxyz
:hanye
if "!han:~%m%,1!" neq "" (set s0=!s0! !han:~%m%,1! &set/a m+=1&goto :hanye)
set n=0

for %%i in (!s0!) do (
        for %%j in (!n!) do (
                set /a n+=1
                set "gu1=!gu1!for %%!ye:~%%j,1! in (^!s%%j^!) do (set s!n!=^!s%%j:%%!ye:~%%j,1!=^!^&"
                set "gu2=!gu2!%%!ye:~%%j,1!"
                set "gu3=!gu3!)"
                set xing1%%j=!gu1:~,-16!
                set xing2%%j=!gu2!
                set xing3%%j=!gu3!
        )
)

set n=0
:guxing
set gu1=!xing1%n%!
set gu2=!xing2%n%!
set gu3=!xing3%n%!
%gu1%
echo %gu2%
set /a num+=1
%gu3%
set/a n+=1
if !n! neq !m! goto guxing
if !n! == !m! echo %num%种排列方法 &pause
复制代码

========================================
后来发现%gu3%>>5.txt可以输出，不好意思，没有发觉。