列表框分批执行

笑人心

假如导入200个号到列表框，分成4批，每批50个号，每隔1小时自动切换下一批，求大佬指点怎么写比较简单简洁。

一开始跑1-50个，一个小时后轮到50-100个，跑到最后一批的时候重头继续执行，以此类推。

hxnr

不就是多线程么

LEOONL

  

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

启动线程 (&a, , )

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

变量名	类 型	静态	数组	备 注
n	整数型

判断循环首 (真)
计次循环首 (50, )
超级列表框1.取标题 (n － 1, 1)
如果 (n ≥ 超级列表框1.取表项数 () － 1)
n ＝ 0
n ＝ n ＋ 1

计次循环尾 ()
延时 (3600000)
判断循环尾 ()

i支持库列表	支持库注释
EThread	多线程支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 EThread<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 启动线程 (&a, , )<br /> <br /> .子程序 a<br /> .局部变量 n, 整数型<br /> <br /> .判断循环首 (真)<br />     .计次循环首 (50, )<br />         超级列表框1.取标题 (n － 1, 1)<br />         .如果 (n ≥ 超级列表框1.取表项数 () － 1)<br />             n ＝ 0<br />         .否则<br />             n ＝ n ＋ 1<br />         .如果结束<br /> <br />     .计次循环尾 ()<br />     延时 (3600000)<br /> .判断循环尾 ()

liuxiaoxu

LEOONL 发表于 2025-1-10 17:07
[e=0].版本 2
.支持库 EThread
.支持库 iext

取一下本地时间，然后做判断

b0y

https://bbs.125.la/forum.php?mod ... 18&pid=27642796

q838210720

demo.e (957.71 KB, 下载次数: 0)

2025-1-10 19:00 上传

点击文件名下载附件

chenboss

  

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

启动线程 (&自动切换, , )

子程序名	返回值类型	公开	备 注
自动切换

变量名	类 型	静态	数组	备 注
列表	文本型		200
i	整数型
h	整数型

判断循环首 (真)
如果真 (h ≠ 取小时 (取现行时间 ()))
h ＝ 取小时 (取现行时间 ())
调试输出 (“到点切换”, h)
列表框1.清空 ()
计次循环首 (50, )
列表框1.加入项目 (列表 [i ％ 50 ＋ 1], )
i ＝ i ＋ 1
计次循环尾 ()
延时 (1000)
判断循环尾 ()

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

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 启动线程 (&自动切换, , )<br /> <br /> <br /> .子程序 自动切换<br /> .局部变量 列表, 文本型, , "200"<br /> .局部变量 i, 整数型<br /> .局部变量 h, 整数型<br /> <br /> .判断循环首 (真)<br />     .如果真 (h ≠ 取小时 (取现行时间 ()))<br />         h ＝ 取小时 (取现行时间 ())<br />         调试输出 (“到点切换”, h)<br />         列表框1.清空 ()<br />         .计次循环首 (50, )<br />             列表框1.加入项目 (列表 [i ％ 50 ＋ 1], )<br />             i ＝ i ＋ 1<br />         .计次循环尾 ()<br />     .如果真结束<br />     延时 (1000)<br /> .判断循环尾 ()