完成以后会卡个几秒

samll88 · 发表于 2025-4-8 17:50:00

先生成10W数据,然后按测试分割文本,

调试输出也显示完成,但界面会卡个一秒多,有大神能优化下吗?

文本.e (11.69 KB, 下载次数: 9)

lainian · 发表于 2025-4-8 17:50:01

[JavaScript] 纯文本查看 复制代码

.版本 2
.支持库 EThread
.支持库 commobj
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 集_文本, 文本型

.子程序 _按钮_10W_被单击

启动线程 (&生成十万条数据, , )

.子程序 生成十万条数据

' 连续赋值 (真, 按钮_UI.禁止, 按钮_线程.禁止, 按钮_10W.禁止, 按钮_100W.禁止, 按钮_1W.禁止, 按钮_清空.禁止)
集_文本 ＝ “”
.计次循环首 (10, )
    集_文本 ＝ 集_文本 ＋ 生成10W数据 ()
.计次循环尾 ()
标题 ＝ “十万条”
编辑框1.加入文本 (集_文本 ＋ #换行符)
' 连续赋值 (假, 按钮_UI.禁止, 按钮_线程.禁止, 按钮_10W.禁止, 按钮_100W.禁止, 按钮_1W.禁止, 按钮_清空.禁止)

.子程序 生成10W数据, 文本型, 公开
.局部变量 快速文本对象, 快速文本对象
.局部变量 数组, 文本型, , "0"
.局部变量 号段, 文本型, , "0"
.局部变量 x, 整数型
.局部变量 y, 整数型

置随机数种子 ()
数组 ＝ { “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9” }
号段 ＝ { “134”, “135”, “136”, “137”, “138”, “139”, “147”, “150”, “151”, “152”, “157”, “158”, “159”, “178”, “182”, “183”, “184”, “187”, “188”, “130”, “131”, “132”, “155”, “156”, “185”, “186”, “145”, “176”, “133”, “153”, “177”, “180”, “181”, “189” }
x ＝ 取数组成员数 (数组)
y ＝ 取数组成员数 (号段)

.计次循环首 (100000, )
    快速文本对象.添加 (号段 [取随机数 (1, y)])
    .计次循环首 (8, )
        快速文本对象.添加 (数组 [取随机数 (1, x)])
    .计次循环尾 ()
    快速文本对象.添加 (“ ”)
    .计次循环首 (6, )
        快速文本对象.添加 (数组 [取随机数 (1, x)])
    .计次循环尾 ()
    快速文本对象.添加 (#换行符)
.计次循环尾 ()
返回 (快速文本对象.取文本 (, ))

.子程序 _按钮1_被单击

启动线程 (&分割文本线程, , )

.子程序 分割文本线程
.局部变量 aaa, 文本型, , "0"

分割文本_ASM (编辑框1.内容, #换行符, aaa, )
调试输出 (“成员数”, 取数组成员数 (aaa))
调试输出 (“完成”)

.子程序 分割文本_ASM, 整数型, , 将指定文本分割，返回分割后的数组成员数，如果未找到分隔符，则返回0，如果未找到分隔符会清空数组，by契丶梦幻，qq1096194951
.参数 待分割的文本, 文本型, , 同核心库一样
.参数 用作分割的文本, 文本型, , 同核心库一样
.参数 接收文本数组变量, 文本型, 数组, 传递一个数组变量，用作接收分割好的数组
.参数 要返回的子文本数目, 整数型, 可空, 同核心库一样
.局部变量 局_模块句柄_, 整数型, 静态
.局部变量 局_HeapAlloc_, 整数型, 静态
.局部变量 局_HeapReAlloc_, 整数型, 静态
.局部变量 HeapAlloc_, 整数型
.局部变量 HeapReAlloc_, 整数型
.局部变量 默认堆, 整数型

.如果真 (待分割的文本 ＝ “” 或 用作分割的文本 ＝ “”)
    清除数组 (接收文本数组变量)
    返回 (0)
.如果真结束
.如果真 (局_模块句柄_ ＝ 0 或 局_HeapAlloc_ ＝ 0 或 局_HeapReAlloc_ ＝ 0)
    局_模块句柄_ ＝ GetModuleHandleA (“kernel32.dll”)
    局_HeapAlloc_ ＝ GetProcAddress (局_模块句柄_, “HeapAlloc”)  ' 分配内存
    局_HeapReAlloc_ ＝ GetProcAddress (局_模块句柄_, “HeapReAlloc”)  ' 重新分配内存
.如果真结束
HeapAlloc_ ＝ 局_HeapAlloc_
HeapReAlloc_ ＝ 局_HeapReAlloc_
默认堆 ＝ GetProcessHeap ()
重定义数组 (接收文本数组变量, 假, 16)

置入代码 ({ 131, 236, 40, 131, 125, 20, 0, 119, 7, 199, 69, 20, 255, 255, 255, 127, 199, 69, 204, 0, 0, 0, 0, 139, 69, 16, 139, 0, 137, 69, 240, 139, 64, 4, 137, 69, 232, 199, 69, 228, 0, 0, 0, 0, 235, 45, 141, 80, 3, 139, 56, 131, 192, 4, 141, 143, 255, 254, 254, 254, 247, 215, 33, 249, 129, 225, 128, 128, 128, 128, 116, 233, 247, 193, 128, 128, 0, 0, 117, 6, 193, 233, 16, 131, 192, 2, 208, 225, 25, 208, 195, 139, 69, 8, 139, 0, 137, 198, 232, 199, 255, 255, 255, 137, 69, 216, 139, 69, 12, 139, 0, 137, 195, 232, 184, 255, 255, 255, 59, 69, 216, 15, 131, 23, 1, 0, 0, 137, 69, 212, 137, 223, 139, 77, 216, 41, 193, 65, 137, 117, 220, 87, 81, 86, 139, 77, 212, 137, 203, 193, 233, 2, 133, 201, 116, 19, 139, 6, 59, 7, 15, 133, 193, 0, 0, 0, 131, 198, 4, 131, 199, 4, 73, 117, 237, 137, 217, 131, 225, 3, 133, 201, 116, 15, 138, 6, 58, 7, 15, 133, 165, 0, 0, 0, 70, 71, 73, 117, 241, 89, 139, 69, 220, 41, 193, 137, 77, 208, 65, 80, 81, 106, 0, 255, 117, 244, 255, 85, 252, 133, 192, 15, 132, 179, 0, 0, 0, 94, 137, 199, 137, 69, 236, 139, 77, 208, 137, 203, 193, 233, 2, 116, 2, 243, 165, 137, 217, 131, 225, 3, 116, 2, 243, 164, 198, 7, 0, 139, 93, 232, 59, 93, 228, 119, 28, 193, 227, 3, 131, 195, 8, 83, 255, 117, 240, 106, 0, 255, 117, 244, 255, 85, 248, 133, 192, 116, 119, 137, 69, 240, 209, 101, 232, 139, 69, 236, 139, 93, 240, 139, 85, 228, 193, 226, 2, 141, 84, 26, 8, 137, 2, 139, 85, 20, 255, 69, 228, 59, 85, 228, 116, 84, 89, 95, 3, 117, 212, 137, 117, 220, 131, 125, 204, 1, 116, 70, 43, 77, 212, 15, 135, 52, 255, 255, 255, 139, 69, 8, 139, 0, 3, 69, 216, 57, 240, 115, 49, 235, 27, 94, 89, 95, 138, 22, 128, 250, 13, 116, 5, 246, 194, 128, 116, 4, 70, 73, 116, 8, 70, 73, 15, 133, 11, 255, 255, 255, 131, 125, 228, 0, 116, 14, 199, 69, 204, 1, 0, 0, 0, 137, 241, 233, 50, 255, 255, 255, 139, 93, 240, 139, 85, 228, 137, 83, 4, 193, 226, 2, 131, 194, 8, 82, 255, 117, 240, 106, 0, 255, 117, 244, 255, 85, 248, 139, 93, 16, 137, 3, 139, 69, 228, 201, 194, 20, 0 })
返回 (0)

lainian · 发表于 2025-4-8 17:55:45

用线程启动就不会卡了

算法艺术家 · 发表于 2025-4-8 17:58:56

子程序名	返回值类型	公开	备注
ddd

变量名	类型	静态	数组	备注
aaa	文本型		0

分割文本_ASM (编辑框1.内容, #换行符, aaa, )
调试输出 (“成员数”, 取数组成员数 (aaa))
调试输出 (“完成”)

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

启动线程 (&ddd, , )

i支持库列表	支持库注释
spec	特殊功能支持库
EThread	多线程支持库

补充内容 (2025-4-8 17:59):
放线程里，卡应该是因为内部释放资源

woyao2991314 · 发表于 2025-4-8 17:59:24

!!
遇到过！

启动线程 (&_按钮1_被单击, , )

约定踏雪去看花 · 发表于 2025-4-8 18:38:40

启动线程（），是异步执行，直接调用子程序要等子程序运行完

		自动登录	找回密码
密码			注册

[已解决] 完成以后会卡个几秒

最佳答案

评分

浏览过的版块