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

zzz19760225

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

1. 
   
2. @echo off
   
3. ::寒夜孤星5;那么变量中这四个字,每个字与其他字排列,不限定位数,可以存在单个文字,有多少种排列呢
   
4. 
   
5. setlocal enabledelayedexpansion
   
6. set han=阴阳表里寒热虚实
   
7. set m=0
   
8. set ye=abcdefghijklmnopqrstuvwxyz
   
9. :hanye
   
10. if "!han:~%m%,1!" neq "" (set s0=!s0! !han:~%m%,1! &set/a m+=1&goto :hanye)
    
11. set n=0
    
12. 
    
13. for %%i in (!s0!) do (
    
14.         for %%j in (!n!) do (
    
15.                 set /a n+=1
    
16.                 set "gu1=!gu1!for %%!ye:~%%j,1! in (^!s%%j^!) do (set s!n!=^!s%%j:%%!ye:~%%j,1!=^!^&"
    
17.                 set "gu2=!gu2!%%!ye:~%%j,1!"
    
18.                 set "gu3=!gu3!)"
    
19.                 set xing1%%j=!gu1:~,-16!
    
20.                 set xing2%%j=!gu2!
    
21.                 set xing3%%j=!gu3!
    
22.         )
    
23. )
    
24. 
    
25. set n=0
    
26. :guxing
    
27. set gu1=!xing1%n%!
    
28. set gu2=!xing2%n%!
    
29. set gu3=!xing3%n%!
    
30. %gu1%
    
31. echo %gu2%
    
32. set /a num+=1
    
33. %gu3%
    
34. set/a n+=1
    
35. if !n! neq !m! goto guxing
    
36. if !n! == !m! echo %num%种排列方法 &pause
    

复制代码

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