文本数组过大，分割文本命令失效卡死怎么破

chen1506

文本数组过大，分割文本（）命令失效卡死怎么破

LEOONL

  

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

变量名	类 型	静态	数组	备 注
a	快速文本对象
b	文本型		0

a.从文件读 ()
b ＝ a.分割文本 ( #换行符, )

i支持库列表	支持库注释
commobj	通用对象支持库

.版本 2<br /> .支持库 commobj<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 a, 快速文本对象<br /> .局部变量 b, 文本型, , "0"<br /> <br /> a.从文件读 ()<br /> b ＝ a.分割文本 (#换行符, )

chen1506

LEOONL 发表于 2024-11-17 23:23

  

[/quote]
[e=1].版本 2

子程序名	返回值类型	公开	备 注
分割号码

变量名	类 型	静态	数组	备 注
str	快速文本对象
arr	文本型		0
data	文本型
i	整数型
random	整数型
bool	逻辑型		0
count	整数型
j	整数型
延时时间	整数型

延时时间 ＝ 到数值 (编辑框1.内容)
如果真 (延时时间 ＝ 到数值 (“”))
延时时间 ＝ 0

data ＝ 选择 (组合框1.现行选中项 ＝ 0, 超级编辑框1.内容, 超级编辑框2.内容)
. ' 如果真 (data ＝ “”)
' 返回 ()

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, )

变量循环尾 ()
超级编辑框3.内容 ＝ str.取文本 (, )
str.清除文本 ()
计次循环首 (取数组成员数 (arr), i)
' random ＝ 取随机数 (1, 取数组成员数 (arr))
str.添加 (arr [i], “ ”)
计次循环尾 ()
超级编辑框4.内容 ＝ str.取文本 (, )

i支持库列表	支持库注释
commobj	通用对象支持库
iext2	扩展界面支持库二

.版本 2<br /> .支持库 commobj</blockquote></div><br /> [e=1].版本 2<br /> .支持库 commobj<br /> .支持库 iext2<br /> <br /> .子程序 分割号码<br /> .局部变量 str, 快速文本对象<br /> .局部变量 arr, 文本型, , "0"<br /> .局部变量 data, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 random, 整数型<br /> .局部变量 bool, 逻辑型, , "0"<br /> .局部变量 count, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 延时时间, 整数型<br /> <br /> 延时时间 ＝ 到数值 (编辑框1.内容)<br /> .如果真 (延时时间 ＝ 到数值 (“”))<br />     延时时间 ＝ 0<br /> .如果真结束<br /> <br /> data ＝ 选择 (组合框1.现行选中项 ＝ 0, 超级编辑框1.内容, 超级编辑框2.内容)<br /> .' 如果真 (data ＝ “”)<br />     ' 返回 ()<br /> .如果真结束<br /> <br /> str.置文本 (data)<br /> arr ＝ str.分割文本 (“ ”, )<br /> str.清除文本 ()<br /> <br /> 重定义数组 (bool, 假, 取数组成员数 (arr))<br /> 置随机数种子 ()<br /> count ＝ 四舍五入 (取数组成员数 (arr) ÷ 2, )<br /> .判断循环首 (i ＜ count)<br />     random ＝ 取随机数 (1, 取数组成员数 (arr))<br />     .如果真 (bool [random] ＝ 假)<br />         bool [random] ＝ 真<br />         i ＝ i ＋ 1<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> <br /> .变量循环首 (取数组成员数 (bool), 1, -1, i)<br />     .如果真 (bool <i>)<br />         str.插入 (, arr <i>, “ ”)<br />         删除成员 (arr, i, )<br />     .如果真结束<br /> <br /> .变量循环尾 ()<br /> <br /> 超级编辑框3.内容 ＝ str.取文本 (, )<br /> <br /> str.清除文本 ()<br /> .计次循环首 (取数组成员数 (arr), i)<br />     ' random ＝ 取随机数 (1, 取数组成员数 (arr))<br />     str.添加 (arr <i>, “ ”)<br /> .计次循环尾 ()<br /> <br /> 超级编辑框4.内容 ＝ str.取文本 (, )

chen1506

LEOONL 发表于 2024-11-17 23:23
[e=0].版本 2
.支持库 commobj

帮我看看我这代码怎么改？

LEOONL

chen1506 发表于 2024-11-17 23:34
帮我看看我这代码怎么改？

文本很大？ 卡死可能是因为显示到编辑框的原因，你去掉显示的代码

飞羽软件

太大就不要分割：打开文件()  读入一行 () 等

Suky

LEOONL 发表于 2024-11-17 23:38
文本很大？ 卡死可能是因为显示到编辑框的原因，你去掉显示的代码

可能性很大，建议分割后存在变量中，编辑框能显示多少就加入多少
给编辑框加滚动条，拖动滚动条的时候，改变显示内容从数组中取出的位置
@chen1506

chen1506

Suky 发表于 2024-11-18 01:09
可能性很大，建议分割后存在变量中，编辑框能显示多少就加入多少
给编辑框加滚动条，拖动滚动条的时候， ...

用的超级编辑框。显示没有问题，，问题就是分割这里直接就卡了。

chen1506

飞羽软件 发表于 2024-11-18 00:47
太大就不要分割：打开文件()  读入一行 () 等

不是文件，是句柄抓取的窗口数据，这个数据是会变的

chen1506

Suky 发表于 2024-11-18 01:09
可能性很大，建议分割后存在变量中，编辑框能显示多少就加入多少
给编辑框加滚动条，拖动滚动条的时候， ...

我用的超级编辑框，显示是没有问题的，多少都能显示