文章插入随机文本 并且不乱码

长翅膀的猫

取文章长度的随机数，然后插入文本

但是，经常乱码，是因为汉字有2个字节

请问，如何随机插入文本不乱码？

qq780571

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

变量名	类 型	静态	数组	备 注
文本数组	文本型		0
计次	整数型
新文本	文本型

文本_逐字分割 (编辑框1.内容, 文本数组)
计次循环首 (取数组成员数 (文本数组), 计次)
新文本 ＝ 新文本 ＋ 文本数组 [计次]
如果真 (取随机数 (1, 取数组成员数 (文本数组)) ＝ 计次)
新文本 ＝ 新文本 ＋ 编辑框2.内容

计次循环尾 ()
编辑框1.内容 ＝ 新文本

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

置随机数种子 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 计次, 整数型<br /> .局部变量 新文本, 文本型<br /> <br /> 文本_逐字分割 (编辑框1.内容, 文本数组)<br /> .计次循环首 (取数组成员数 (文本数组), 计次)<br />     新文本 ＝ 新文本 ＋ 文本数组 [计次]<br />     .如果真 (取随机数 (1, 取数组成员数 (文本数组)) ＝ 计次)<br />         新文本 ＝ 新文本 ＋ 编辑框2.内容<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 编辑框1.内容 ＝ 新文本<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 置随机数种子 ()

蓝冰点点

可以解决把

盲眼画师

自己下载下把。。。精易模块