文本生成处理

杜拉拉的蕾丝

text=1234    生成如下的一段文本

12XX        13XX        14XX        1X2X        1X3X        1X4X        1XX2        1XX3
1XX4        21XX        23XX        24XX        2X1X        2X3X        2X4X        2XX1
2XX3        2XX4        31XX        32XX        34XX        3X1X        3X2X        3X4X
3XX1        3XX2        3XX4        41XX        42XX        43XX        4X1X        4X2X
4X3X        4XX1        4XX2        4XX3        X12X        X13X        X14X        X1X2
X1X3        X1X4        X21X        X23X        X24X        X2X1        X2X3        X2X4
X31X        X32X        X34X        X3X1        X3X2        X3X4        X41X        X42X
X43X        X4X1        X4X2        X4X3        XX12        XX13        XX14        XX21
XX23        XX24        XX31        XX32        XX34        XX41        XX42        XX43



这种的 怎么整？ 快速的写法  麻烦各位大大了，谢谢！

杜拉拉的蕾丝

自己解决了.e (919.77 KB, 下载次数: 8)

2022-11-15 18:24 上传

点击文件名下载附件 尴尬，刚发帖子就想到方法了，直接用替换大法

tina0597

SexyPanda

你是去不重复的还是要去重复的？就是4个数字里面都是1234组合的？

如果是不重复的几次循环首就能解决吧。

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
随机文本	文本型

置随机数种子 ()
计次循环首 (72, )
随机文本 ＝ 随机文本 ＋ 到文本 (取随机数 (1, 4)) ＋ 到文本 (取随机数 (1, 4)) ＋ 到文本 (取随机数 (1, 4)) ＋ 到文本 (取随机数 (1, 4)) ＋ “ ”
计次循环尾 ()
调试输出 (随机文本)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 子程序1<br /> .局部变量 随机文本, 文本型<br /> <br /> 置随机数种子 ()<br /> .计次循环首 (72, )<br />     随机文本 ＝ 随机文本 ＋ 到文本 (取随机数 (1, 4)) ＋ 到文本 (取随机数 (1, 4)) ＋ 到文本 (取随机数 (1, 4)) ＋ 到文本 (取随机数 (1, 4)) ＋ “ ”<br /> .计次循环尾 ()<br /> 调试输出 (随机文本)

新人E

网上找的，应该符合你的需求

杜拉拉的蕾丝

SexyPanda 发表于 2022-11-15 18:16
你是去不重复的还是要去重复的？就是4个数字里面都是1234组合的？

如果是不重复的几次循环首就能解决吧。

你这不对

杜拉拉的蕾丝

新人E 发表于 2022-11-15 18:16
网上找的，应该符合你的需求

不行，我自己整出来了

杜拉拉的蕾丝

常量文本是这个：abXX,acXX,adXX,aXbX,aXcX,aXdX,aXXb,aXXc,aXXd,baXX,bcXX,bdXX,bXaX,bXcX,bXdX,bXXa,bXXc,bXXd,caXX,cbXX,cdXX,cXaX,cXbX,cXdX,cXXa,cXXb,cXXd,daXX,dbXX,dcXX,dXaX,dXbX,dXcX,dXXa,dXXb,dXXc,XabX,XacX,XadX,XaXb,XaXc,XaXd,XbaX,XbcX,XbdX,XbXa,XbXc,XbXd,XcaX,XcbX,XcdX,XcXa,XcXb,XcXd,XdaX,XdbX,XdcX,XdXa,XdXb,XdXc,XXab,XXac,XXad,XXba,XXbc,XXbd,XXca,XXcb,XXcd,XXda,XXdb,XXdc

真冬

  

num ＝ 子程序1全转 (“abcd”, text, “,”, #常量1, 返回数据)
调试输出 (返回数据, num)

子程序名	返回值类型	公开	备 注
子程序1全转	整数型
参数名	类 型	参考	可空	数组	备 注
识别字符	文本型
替换字符	文本型
统计字符	文本型
来源	文本型
返回结果	文本型
补全替换字符	文本型

变量名	类 型	静态	数组	备 注
a识别字符	字节集
cd识别字符	整数型
b替换字符	字节集
c来源	字节集
i1	整数型
i2	整数型
i3	整数型
i4统计字符	整数型
d统计字符	字节集
cd2统计字符	整数型

a识别字符 ＝ 到字节集 (识别字符)
cd识别字符 ＝ 取字节集长度 (a识别字符)
b替换字符 ＝ 取字节集左边 (到字节集 (替换字符) ＋ 取重复字节集 (cd识别字符, 到字节集 (选择 (是否为空 (补全替换字符), “?”, 补全替换字符))), cd识别字符)
c来源 ＝ 到字节集 (来源)
d统计字符 ＝ 到字节集 (统计字符)
cd2统计字符 ＝ 取字节集长度 (d统计字符)
计次循环首 (取字节集长度 (c来源), i1)
计次循环首 (cd识别字符, i2)
如果真 (c来源 [i1] ＝ a识别字符 [i2])
c来源 [i1] ＝ b替换字符 [i2]
跳出循环 ()

计次循环尾 ()
计次循环首 (cd2统计字符, i3)
如果真 (c来源 [i1] ＝ d统计字符 [i3])
i4统计字符 ＝ i4统计字符 ＋ 1
跳出循环 ()

计次循环尾 ()
计次循环尾 ()
返回结果 ＝ 到文本 (c来源)
返回 (i4统计字符)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> num ＝ 子程序1全转 (“abcd”, text, “,”, #常量1, 返回数据)<br /> 调试输出 (返回数据, num)<br /> <br /> <br /> .版本 2<br /> <br /> .子程序 子程序1全转, 整数型<br /> .参数 识别字符, 文本型<br /> .参数 替换字符, 文本型<br /> .参数 统计字符, 文本型<br /> .参数 来源, 文本型<br /> .参数 返回结果, 文本型<br /> .参数 补全替换字符, 文本型, 可空<br /> .局部变量 a识别字符, 字节集<br /> .局部变量 cd识别字符, 整数型<br /> .局部变量 b替换字符, 字节集<br /> .局部变量 c来源, 字节集<br /> .局部变量 i1, 整数型<br /> .局部变量 i2, 整数型<br /> .局部变量 i3, 整数型<br /> .局部变量 i4统计字符, 整数型<br /> .局部变量 d统计字符, 字节集<br /> .局部变量 cd2统计字符, 整数型<br /> <br /> a识别字符 ＝ 到字节集 (识别字符)<br /> cd识别字符 ＝ 取字节集长度 (a识别字符)<br /> b替换字符 ＝ 取字节集左边 (到字节集 (替换字符) ＋ 取重复字节集 (cd识别字符, 到字节集 (选择 (是否为空 (补全替换字符), “?”, 补全替换字符))), cd识别字符)<br /> c来源 ＝ 到字节集 (来源)<br /> d统计字符 ＝ 到字节集 (统计字符)<br /> cd2统计字符 ＝ 取字节集长度 (d统计字符)<br /> .计次循环首 (取字节集长度 (c来源), i1)<br />     .计次循环首 (cd识别字符, i2)<br />         .如果真 (c来源 [i1] ＝ a识别字符 [i2])<br />             c来源 [i1] ＝ b替换字符 [i2]<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     .计次循环首 (cd2统计字符, i3)<br />         .如果真 (c来源 [i1] ＝ d统计字符 [i3])<br />             i4统计字符 ＝ i4统计字符 ＋ 1<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 返回结果 ＝ 到文本 (c来源)<br /> 返回 (i4统计字符)

真冬

  

子程序名	返回值类型	公开	备 注
子程序2全转	整数型
参数名	类 型	参考	可空	数组	备 注
识别字符	文本型
替换字符	文本型
统计字符	文本型
来源	文本型
返回结果	文本型
补全替换字符	文本型

变量名	类 型	静态	数组	备 注
i1	整数型
i2	整数型
a	字节集
a识别字符	字节集
b替换字符	字节集
c统计字符	字节集
c	字节集
cc	整数型
d来源	字节集

a ＝ 取空白字节集 (256)
c ＝ a
a识别字符 ＝ 到字节集 (识别字符)
b替换字符 ＝ 到字节集 (替换字符)
补全替换字符 ＝ 选择 (是否为空 (补全替换字符), “ ”, 补全替换字符)
计次循环首 (取文本长度 (识别字符), i1)
a [a识别字符 [i1] ＋ 1] ＝ 选择 (b替换字符 [i1] ＝ 0, 取代码 (补全替换字符, ), b替换字符 [i1])
计次循环尾 ()
c统计字符 ＝ 到字节集 (统计字符)
计次循环首 (取文本长度 (统计字符), i1)
c [c统计字符 [i1] ＋ 1] ＝ 1
计次循环尾 ()
d来源 ＝ 到字节集 (来源)
计次循环首 (取文本长度 (来源), i1)
i2 ＝ d来源 [i1] ＋ 1
如果真 (a [i2] ≠ 0)
d来源 [i1] ＝ a [i2]
如果真 (c [i2] ＝ 1)
cc ＝ cc ＋ 1

计次循环尾 ()
返回结果 ＝ 到文本 (d来源)
返回 (cc ＋ 1)

.版本 2<br /> <br /> .子程序 子程序2全转, 整数型<br /> .参数 识别字符, 文本型<br /> .参数 替换字符, 文本型<br /> .参数 统计字符, 文本型<br /> .参数 来源, 文本型<br /> .参数 返回结果, 文本型<br /> .参数 补全替换字符, 文本型, 可空<br /> .局部变量 i1, 整数型<br /> .局部变量 i2, 整数型<br /> .局部变量 a, 字节集<br /> .局部变量 a识别字符, 字节集<br /> .局部变量 b替换字符, 字节集<br /> .局部变量 c统计字符, 字节集<br /> .局部变量 c, 字节集<br /> .局部变量 cc, 整数型<br /> .局部变量 d来源, 字节集<br /> <br /> a ＝ 取空白字节集 (256)<br /> c ＝ a<br /> a识别字符 ＝ 到字节集 (识别字符)<br /> b替换字符 ＝ 到字节集 (替换字符)<br /> 补全替换字符 ＝ 选择 (是否为空 (补全替换字符), “ ”, 补全替换字符)<br /> .计次循环首 (取文本长度 (识别字符), i1)<br />     a [a识别字符 [i1] ＋ 1] ＝ 选择 (b替换字符 [i1] ＝ 0, 取代码 (补全替换字符, ), b替换字符 [i1])<br /> .计次循环尾 ()<br /> c统计字符 ＝ 到字节集 (统计字符)<br /> .计次循环首 (取文本长度 (统计字符), i1)<br />     c [c统计字符 [i1] ＋ 1] ＝ 1<br /> .计次循环尾 ()<br /> d来源 ＝ 到字节集 (来源)<br /> .计次循环首 (取文本长度 (来源), i1)<br />     i2 ＝ d来源 [i1] ＋ 1<br />     .如果真 (a [i2] ≠ 0)<br />         d来源 [i1] ＝ a [i2]<br />     .如果真结束<br />     .如果真 (c [i2] ＝ 1)<br />         cc ＝ cc ＋ 1<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回结果 ＝ 到文本 (d来源)<br /> 返回 (cc ＋ 1)

补充内容 (2022-11-16 14:00):
这个处理速度会快一些