|
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. 取文本 (, )
|
|