[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

本帖最后由 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可以输出,不好意思,没有发觉。
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

返回列表