Board logo

标题: [文本处理] [已解决] 求助寒夜孤星的组合排列内容,如何输出文本? [打印本页]

作者: zzz19760225    时间: 2024-3-22 12:07     标题: [已解决] 求助寒夜孤星的组合排列内容,如何输出文本?

本帖最后由 zzz19760225 于 2024-3-22 12:26 编辑

抄的寒夜孤星的批处理,替换了变量内容,希望把内容输出到5.txt文本。
我试了括号全包括和只包括for,好像5.txt里什么都没有。故求助
set han=寒夜孤星
set han=阴阳表里寒热虚实
  1. @echo off
  2. ::寒夜孤星5;那么变量中这四个字,每个字与其他字排列,不限定位数,可以存在单个文字,有多少种排列呢
  3. setlocal enabledelayedexpansion
  4. set han=阴阳表里寒热虚实
  5. set m=0
  6. set ye=abcdefghijklmnopqrstuvwxyz
  7. :hanye
  8. if "!han:~%m%,1!" neq "" (set s0=!s0! !han:~%m%,1! &set/a m+=1&goto :hanye)
  9. set n=0
  10. for %%i in (!s0!) do (
  11.         for %%j in (!n!) do (
  12.                 set /a n+=1
  13.                 set "gu1=!gu1!for %%!ye:~%%j,1! in (^!s%%j^!) do (set s!n!=^!s%%j:%%!ye:~%%j,1!=^!^&"
  14.                 set "gu2=!gu2!%%!ye:~%%j,1!"
  15.                 set "gu3=!gu3!)"
  16.                 set xing1%%j=!gu1:~,-16!
  17.                 set xing2%%j=!gu2!
  18.                 set xing3%%j=!gu3!
  19.         )
  20. )
  21. set n=0
  22. :guxing
  23. set gu1=!xing1%n%!
  24. set gu2=!xing2%n%!
  25. set gu3=!xing3%n%!
  26. %gu1%
  27. echo %gu2%
  28. set /a num+=1
  29. %gu3%
  30. set/a n+=1
  31. if !n! neq !m! goto guxing
  32. if !n! == !m! echo %num%种排列方法 &pause
复制代码
========================================
后来发现%gu3%>>5.txt可以输出,不好意思,没有发觉。




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2