随机位置取文本

天使与恶魔

比如这段话我要取随机几个文字，插入到抽取文字最后一个字的位置
原文：我们经历了一场兵慌马乱的战争
改后：我们经历了经历了一场兵慌马乱的战争
改后：我们经历了一场兵慌马兵慌马乱的战争
改后：我们经历了一场一场兵慌马乱的战争
这样子要怎么写呢

菜小菜

  

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

变量名	类 型	静态	数组	备 注
文本	文本型
随机数	整数型
随机文本	文本型
a	整数型
随机文本坐标	整数型
替换后文本	文本型

置随机数种子 ()
文本 ＝ “我们经历了一场兵慌马乱的战争”
' 汉字2字节  故长度为28
' 取随机长度
判断循环首 (a ＝ 0)
随机数 ＝ 取随机数 (2, 10)
如果真 (随机数 ％ 2 ＝ 0)
跳出循环 ()

判断循环尾 ()
' 取随机开始坐标
判断循环首 (a ＝ 0)
随机文本坐标 ＝ 取随机数 (1, 28)
如果真 (随机文本坐标 ％ 2 ＝ 1)
跳出循环 ()

判断循环尾 ()
随机文本 ＝ 取文本中间 (文本, 随机文本坐标, 随机数)
替换后文本 ＝ 子文本替换 (文本, 随机文本, 随机文本 ＋ 随机文本, , , 真)
调试输出 (替换后文本)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 文本型<br /> .局部变量 随机数, 整数型<br /> .局部变量 随机文本, 文本型<br /> .局部变量 a, 整数型<br /> .局部变量 随机文本坐标, 整数型<br /> .局部变量 替换后文本, 文本型<br /> <br /> 置随机数种子 ()<br /> 文本 ＝ “我们经历了一场兵慌马乱的战争”<br /> ' 汉字2字节  故长度为28<br /> <br /> ' 取随机长度<br /> .判断循环首 (a ＝ 0)<br />     随机数 ＝ 取随机数 (2, 10)<br />     .如果真 (随机数 ％ 2 ＝ 0)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> <br /> ' 取随机开始坐标<br /> .判断循环首 (a ＝ 0)<br />     随机文本坐标 ＝ 取随机数 (1, 28)<br />     .如果真 (随机文本坐标 ％ 2 ＝ 1)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> <br /> 随机文本 ＝ 取文本中间 (文本, 随机文本坐标, 随机数)<br /> <br /> 替换后文本 ＝ 子文本替换 (文本, 随机文本, 随机文本 ＋ 随机文本, , , 真)<br /> <br /> 调试输出 (替换后文本)

lisher

文本_逐字分割() 取结果数组再拼

b0y

  

置随机数种子 ()
取字数 ＝ 4
dsp ＝ “我们经历了一场兵慌马乱的战争”
随机数 ＝ 取随机数 (1, 取文本长度 (dsp) － 取字数 × 2 ＋ 1)
如果真 (随机数 ％ 2 ＝ 0)
随机数 ＝ 随机数 － 1
取内容 ＝ 取文本中间 (dsp, 随机数, 取字数 × 2)
dsp ＝ 子文本替换 (dsp, 取内容, 取内容 ＋ 取内容, , , 真)
调试输出 (dsp)
' * “我们经历了一场历了一场兵慌马乱的战争”
' 被调试易程序运行完毕

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

.版本 2<br /> .支持库 spec<br /> <br /> 置随机数种子 ()<br /> 取字数 ＝ 4<br /> dsp ＝ “我们经历了一场兵慌马乱的战争”<br /> 随机数 ＝ 取随机数 (1, 取文本长度 (dsp) － 取字数 × 2 ＋ 1)<br /> .如果真 (随机数 ％ 2 ＝ 0)<br />     随机数 ＝ 随机数 － 1<br /> .如果真结束<br /> 取内容 ＝ 取文本中间 (dsp, 随机数, 取字数 × 2)<br /> dsp ＝ 子文本替换 (dsp, 取内容, 取内容 ＋ 取内容, , , 真)<br /> 调试输出 (dsp)<br /> <br /> ' * “我们经历了一场历了一场兵慌马乱的战争”<br /> ' 被调试易程序运行完毕

幻月工作室

先分词，然后各个分词替换成double

亮蓝色的风

使用精易模块

  

调试输出 (随机增加文字 (“我们经历了一场兵慌马乱的战争”))

子程序名	返回值类型	公开	备 注
随机增加文字	文本型
参数名	类 型	参考	可空	数组	备 注
原文本	文本型

变量名	类 型	静态	数组	备 注
文本数组	文本型		0
字数	整数型
i	整数型
增加文本	文本型
开始位置	整数型
文字数量	整数型

字数 ＝ 文本_逐字分割 (原文本, 文本数组)
置随机数种子 ()
开始位置 ＝ 取随机数 (1, 字数)
文字数量 ＝ 取随机数 (1, 字数 － 开始位置)
增加文本 ＝ 文本数组 [开始位置]
计次循环首 (文字数量, i)
增加文本 ＝ 增加文本 ＋ 文本数组 [开始位置 ＋ i]
计次循环尾 ()
插入成员 (文本数组, 开始位置 ＋ i, 增加文本)
增加文本 ＝ “”
计次循环首 (取数组成员数 (文本数组), i)
增加文本 ＝ 增加文本 ＋ 文本数组 [i]
计次循环尾 ()
返回 (增加文本)

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

.版本 2<br /> .支持库 spec<br /> <br /> 调试输出 (随机增加文字 (“我们经历了一场兵慌马乱的战争”))<br /> <br /> .子程序 随机增加文字, 文本型<br /> .参数 原文本, 文本型<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 字数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 增加文本, 文本型<br /> .局部变量 开始位置, 整数型<br /> .局部变量 文字数量, 整数型<br /> <br /> 字数 ＝ 文本_逐字分割 (原文本, 文本数组)<br /> 置随机数种子 ()<br /> 开始位置 ＝ 取随机数 (1, 字数)<br /> 文字数量 ＝ 取随机数 (1, 字数 － 开始位置)<br /> 增加文本 ＝ 文本数组 [开始位置]<br /> .计次循环首 (文字数量, i)<br />     增加文本 ＝ 增加文本 ＋ 文本数组 [开始位置 ＋ i]<br /> .计次循环尾 ()<br /> 插入成员 (文本数组, 开始位置 ＋ i, 增加文本)<br /> 增加文本 ＝ “”<br /> .计次循环首 (取数组成员数 (文本数组), i)<br />     增加文本 ＝ 增加文本 ＋ 文本数组 <i><br /> .计次循环尾 ()<br /> 返回 (增加文本)