求助随机插入符号

我很低调

求助随机插入符号.e (857.29 KB, 下载次数: 7)

2020-8-13 19:05 上传

点击文件名下载附件 求助要求 随机在 文本内容里面任何标点符号后面 或者 空格处 随机插入 * 符号     例如文本中有5个逗号或者3个 感叹号 就随机在5个逗号后面插入1-3个或者 5个*每个符号都一样随机选择插入*符号谢谢了！

mrzcpo

demo.zip (1 MB, 下载次数: 3)

2020-8-13 19:25 上传

点击文件名下载附件

寒潮

求助随机插入符号.e (858.31 KB, 下载次数: 4)

2020-8-13 19:28 上传

点击文件名下载附件

我很低调

mrzcpo 发表于 2020-8-13 19:25

不是全部插入 是随机选择插入

Bszk

[e]
.版本 2

.子程序 _按钮1_被单击
.局部变量 符号, 文本型, , "0"
.局部变量 文本, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 处理后内容, 文本型

符号 ＝ { “,”, “，”, “.”, “。”, “;”, “；”, “、”, “!”, “！”, “?”, “？” }  ' 自行补充
.计次循环首 (文本_逐字分割 (编辑框1.内容, 文本), i)
    .如果 (是否符号 (符号, 文本 ))
        处理后内容 ＝ 处理后内容 ＋ 文本 ＋ 选择 (取随机数 (1, 2) ＝ 1, “*”, “”)  ' 一半概率
    .否则
        处理后内容 ＝ 处理后内容 ＋ 文本
    .如果结束

.计次循环尾 ()
编辑框1.内容 ＝ 处理后内容

.子程序 是否符号, 逻辑型
.参数 符号, 文本型, 数组
.参数 判断, 文本型
.局部变量 i, 整数型

.计次循环首 (取数组成员数 (符号), i)
    .如果真 (符号 ＝ 判断)
        返回 (真)
    .如果真结束

.计次循环尾 ()
返回 (假)
[/e]
这种方法是最简单的方法，因为要处理上中文的，所以大概就只能这样了

我很低调

寒潮 发表于 2020-8-13 19:28

只能插入都好位置 别的符号没插入

寒潮

我很低调 发表于 2020-8-13 19:39
只能插入都好位置 别的符号没插入

一个例子，可以把其他的符号都搜索到，把位置信息插入到位置数组。
后面就一样了。

double1

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
随机文本	文本型
逗号位置	整数型
改变后的文本	文本型
逗号左边	文本型
逗号右边	文本型
次数	整数型

随机文本 ＝ “这里我添，加了好多的符号，啊啊！啊啊啊啊，哈哈哈，哈！哈哈！”
逗号位置 ＝ 寻找文本 (随机文本, “，”, , 假)
判断循环首 (逗号位置 ≠ -1)
逗号左边 ＝ 文本_取左边 (随机文本, “，”, 逗号位置)
逗号右边 ＝ 文本_取右边 (随机文本, 逗号左边 ＋ “，”, , )
置随机数种子 ()
次数 ＝ 取随机数 (3, 5)
计次循环首 (次数, )
逗号左边 ＝ 逗号左边 ＋ “*”
计次循环尾 ()
随机文本 ＝ 逗号左边 ＋ 逗号右边
逗号位置 ＝ 寻找文本 (随机文本, “，”, 逗号位置 ＋ 1, 假)
判断循环尾 ()
随机文本 ＝ 逗号左边 ＋ 逗号右边
逗号位置 ＝ 寻找文本 (随机文本, “！”, , 假)
判断循环首 (逗号位置 ≠ -1)
逗号左边 ＝ 文本_取左边 (随机文本, “！”, 逗号位置)
逗号右边 ＝ 文本_取右边 (随机文本, 逗号左边 ＋ “！”, , )
置随机数种子 ()
次数 ＝ 取随机数 (3, 5)
计次循环首 (次数, )
逗号左边 ＝ 逗号左边 ＋ “*”
计次循环尾 ()
随机文本 ＝ 逗号左边 ＋ 逗号右边
逗号位置 ＝ 寻找文本 (随机文本, “！”, 逗号位置 ＋ 1, 假)
判断循环尾 ()
调试输出 (随机文本)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 随机文本, 文本型<br /> .局部变量 逗号位置, 整数型<br /> .局部变量 改变后的文本, 文本型<br /> .局部变量 逗号左边, 文本型<br /> .局部变量 逗号右边, 文本型<br /> .局部变量 次数, 整数型<br /> <br /> 随机文本 ＝ “这里我添，加了好多的符号，啊啊！啊啊啊啊，哈哈哈，哈！哈哈！”<br /> 逗号位置 ＝ 寻找文本 (随机文本, “，”, , 假)<br /> .判断循环首 (逗号位置 ≠ -1)<br />     逗号左边 ＝ 文本_取左边 (随机文本, “，”, 逗号位置)<br />     逗号右边 ＝ 文本_取右边 (随机文本, 逗号左边 ＋ “，”, , )<br />     置随机数种子 ()<br />     次数 ＝ 取随机数 (3, 5)<br />     .计次循环首 (次数, )<br />         逗号左边 ＝ 逗号左边 ＋ “*”<br />     .计次循环尾 ()<br />     随机文本 ＝ 逗号左边 ＋ 逗号右边<br />     逗号位置 ＝ 寻找文本 (随机文本, “，”, 逗号位置 ＋ 1, 假)<br /> .判断循环尾 ()<br /> 随机文本 ＝ 逗号左边 ＋ 逗号右边<br /> 逗号位置 ＝ 寻找文本 (随机文本, “！”, , 假)<br /> .判断循环首 (逗号位置 ≠ -1)<br />     逗号左边 ＝ 文本_取左边 (随机文本, “！”, 逗号位置)<br />     逗号右边 ＝ 文本_取右边 (随机文本, 逗号左边 ＋ “！”, , )<br />     置随机数种子 ()<br />     次数 ＝ 取随机数 (3, 5)<br />     .计次循环首 (次数, )<br />         逗号左边 ＝ 逗号左边 ＋ “*”<br />     .计次循环尾 ()<br />     随机文本 ＝ 逗号左边 ＋ 逗号右边<br />     逗号位置 ＝ 寻找文本 (随机文本, “！”, 逗号位置 ＋ 1, 假)<br /> .判断循环尾 ()<br /> 调试输出 (随机文本)