|
20精币
好心大哥帮忙看看,文本过大,无法分割,我要均分两组数, ,,小文本正常,,遇到大的文本就不行了,附近已上传,,内含代码和演示
变量名 | 类 型 | 静态 | 数组 | 备 注 | str | 快速文本对象 | | | arr | 文本型 | | 0 | data | 文本型 | | | i | 整数型 | | | random | 整数型 | | | bool | 逻辑型 | | 0 | count | 整数型 | | | j | 整数型 | | | 延时时间 | 整数型 | | |
data = 超级编辑框1.内容 str. 置文本 (data )arr = str. 分割文本 (“ ”, )str. 清除文本 ()重定义数组 (bool, 假, 取数组成员数 (arr )) 置随机数种子 ()count = 四舍五入 (取数组成员数 (arr ) ÷ 2, ) 判断循环首 (i < count ) random = 取随机数 (1, 取数组成员数 (arr ))  如果真 (bool [random ] = 假)  bool [random ] = 真   i = i + 1   判断循环尾 () 变量循环首 (取数组成员数 (bool ), 1, -1, i ) 如果真 (bool [i ])  str. 插入 (, arr [i ], “ ”) 删除成员 (arr, i, )  变量循环尾 ()超级编辑框2.内容 = str. 取文本 (, )str. 清除文本 () 计次循环首 (取数组成员数 (arr ), i )  str. 添加 (arr [i ], “ ”) 计次循环尾 ()超级编辑框3.内容 = str. 取文本 (, )
|
|