文本分割添加随机字符

永美发

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
数字加字母文本组	文本型	34
符号文本组	文本型	7

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

数字加字母文本组 ＝ { “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “a”, “b”, “c”, “d”, “e”, “f”, “g”, “h”, “i”, “j”, “k”, “l”, “m”, “n”, “o”, “p”, “q”, “r”, “s”, “t”, “u”, “v”, “w”, “x”, “y”, “z” }
符号文本组 ＝ { “[”, “]”, “{”, “}”, “(”, “)”, “=” }
置随机数种子 (到整数 (取现行时间 ()))

子程序名	返回值类型	公开	备 注
_编辑框1_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
i	整数型
字符串	文本型
文本长度	整数型
q	整数型
取到文本	文本型

编辑框1.内容 ＝ 取剪辑板文本 ()
字符串 ＝ “”
文本长度 ＝ 取文本长度 (编辑框1.内容)
输出调试文本 (文本长度)
计次循环首 (文本长度 ÷ 2, q)
取到文本 ＝ 取文本中间 (编辑框1.内容, q ＋ 2, 2)
输出调试文本 (取到文本)
字符串 ＝ 字符串 ＋ 符号文本组 [取随机数 (1, 7)] ＋ 取到文本
计次循环尾 ()
编辑框2.内容 ＝ 字符串
置剪辑板文本 (编辑框1.内容)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 数字加字母文本组, 文本型, , "34"<br /> .程序集变量 符号文本组, 文本型, , "7"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 数字加字母文本组 ＝ { “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “a”, “b”, “c”, “d”, “e”, “f”, “g”, “h”, “i”, “j”, “k”, “l”, “m”, “n”, “o”, “p”, “q”, “r”, “s”, “t”, “u”, “v”, “w”, “x”, “y”, “z” }<br /> 符号文本组 ＝ { “[”, “]”, “{”, “}”, “(”, “)”, “=” }<br /> 置随机数种子 (到整数 (取现行时间 ()))<br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> .子程序 _编辑框1_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 字符串, 文本型<br /> .局部变量 文本长度, 整数型<br /> .局部变量 q, 整数型<br /> .局部变量 取到文本, 文本型<br /> <br /> 编辑框1.内容 ＝ 取剪辑板文本 ()<br /> 字符串 ＝ “”<br /> 文本长度 ＝ 取文本长度 (编辑框1.内容)<br /> 输出调试文本 (文本长度)<br /> <br /> .计次循环首 (文本长度 ÷ 2, q)<br /> <br /> <br />     取到文本 ＝ 取文本中间 (编辑框1.内容, q ＋ 2, 2)<br />     输出调试文本 (取到文本)<br />     字符串 ＝ 字符串 ＋ 符号文本组 [取随机数 (1, 7)] ＋ 取到文本<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> 编辑框2.内容 ＝ 字符串<br /> 置剪辑板文本 (编辑框1.内容)

这个取文本这了就不行了
取出来的文本 不是自己的文本了



补充内容 (2018-10-16 16:12):
.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 数字加字母文本组, 文本型, , "34"
.程序集变量 符号文本组, 文本型, , "7"

.子程序 __启动窗口_创建完毕

数字加字母文本组 ＝ { “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “a”, “b”, “c”, “d”, “e”, “f”, “g”, “h”, “i”, “j”, “k”, “l”, “m”, “n”, “o”, “p”, “q”, “r”, “s”, “t”, “u”, “v”, “w”, “x”, “y”, “z” }
符号文本组 ＝ { “[”, “]”, “{”, “}”, “(”, “)”, “=” }
置随机数种子 (到整数 (取现行时间 ()))



.子程序 _编辑框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 i, 整数型
.局部变量 字符串, 文本型
.局部变量 文本长度, 整数型
.局部变量 q, 整数型
.局部变量 取到文本, 文本型
.局部变量 j, 整数型

编辑框1.内容 ＝ 取剪辑板文本 ()
字符串 ＝ “”
文本长度 ＝ 取文本长度 (编辑框1.内容)
输出调试文本 (文本长度)
j ＝ 0
.计次循环首 (文本长度 ÷ 2, q)
    取到文本 ＝ 取文本中间 (编辑框1.内容, q ＋ j, 2)
    输出调试文本 (取到文本)
    字符串 ＝ 字符串 ＋ 符号文本组 [取随机数 (1, 7)] ＋ 取到文本
    j ＝ j ＋ 1
.计次循环尾 ()
编辑框2.内容 ＝ 字符串
置剪辑板文本 (编辑框1.内容)


补充内容 (2018-10-16 16:13):
预期效果是 对了   

补充内容 (2018-10-16 16:14):
但是 用汉字加数字  的文本后又不对了  这个该怎么修改呢

补充内容 (2018-10-16 16:18):
想要的结果是   

今天事情今天做

然后  加了随机字符后

]今]天(事=情(今=天)做   

这个我自己弄好了  

但是改成    今天事今天1做2

它就错了  后面就乱码了  (今]天{事[今]天{1譣?

zl2017

分割方法有问题
用精易模块的文本_逐字分割

.版本 2

.子程序 _编辑框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 i, 整数型
.局部变量 字符串, 文本型
.局部变量 文本长度, 整数型
.局部变量 q, 整数型
.局部变量 取到文本, 文本型
.局部变量 数组, 文本型, , "0"

编辑框1.内容 ＝ 取剪辑板文本 ()
字符串 ＝ “”
文本长度 ＝ 文本_逐字分割 (编辑框1.内容, 数组)
输出调试文本 (文本长度)
.计次循环首 (文本长度, q)
    取到文本 ＝ 数组 [q]
    输出调试文本 (取到文本)
    字符串 ＝ 字符串 ＋ 符号文本组 [取随机数 (1, 7)] ＋ 取到文本
.计次循环尾 ()
编辑框2.内容 ＝ 字符串
置剪辑板文本 (编辑框1.内容)

你由我解决

是编辑框2.内容，你填错了

永美发

你由我解决 发表于 2018-10-16 15:54
是编辑框2.内容，你填错了

是有两个编辑框的  我用第二个来显示 加符号的

lufanjingyi

编辑框2.内容 ＝ 字符串
置剪辑板文本 (编辑框1.内容)   最后错误

永美发

lufanjingyi 发表于 2018-10-16 15:58
编辑框2.内容 ＝ 字符串
置剪辑板文本 (编辑框1.内容)   最后错误

这个不是主要的  主要的加 分割加随机字符

永美发

lufanjingyi 发表于 2018-10-16 15:58
编辑框2.内容 ＝ 字符串
置剪辑板文本 (编辑框1.内容)   最后错误

这个不是主要的  主要的加 分割加随机字符

永美发

你由我解决 发表于 2018-10-16 15:54
是编辑框2.内容，你填错了

这个不是主要的  主要的加 分割加随机字符

永美发

zl2017 发表于 2018-10-16 16:18
分割方法有问题
用精易模块的文本_逐字分割

谢谢老哥  没找到这个 分割的命令