超级列表框 判断下载成功过后的事件 信息框怎么写？

苕皮哥哥

有1个excel表格。比如200条数据 或者 500条数据
表格每一条对应1个下载地址

我拖入超级列表框1里面以后。 分3列   序号  网址  下载状态
点了开始下载以后


序号  网址  下载状态
0-www.???.com-下载完成
1-www.???.com-下载完成
2-www.???.com-下载完成
......
150-www.???.com-下载失败下载失败
200-www.???.com-下载完成

如何判断我最后1个序号的网址，最后一条数据下载完成后。 弹1个信息框出来。
如果都是下载完成 提示全部下载完成。
如果有失败的。提示下载完成，但有失败项目的信息框。

用时钟来做可以吗。

华武

  

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

启动线程 (&状态监控, , )

子程序名	返回值类型	公开	备 注
状态监控

变量名	类 型	静态	数组	备 注
局_循环标识	逻辑型
i	整数型
局_下载状态	文本型
局_失败统计	整数型
局_成功统计	整数型

局_循环标识 ＝ 真
判断循环首 (局_循环标识 ＝ 真)
计次循环首 (超级列表框1.取表项数 (), i)
局_下载状态 ＝ 超级列表框1.取标题 (i － 1, 2)
如果真 (寻找文本 (局_下载状态, “下载成功”, , 假) ＝ -1 且 寻找文本 (局_下载状态, “下载失败”, , 假) ＝ -1)  ' 除了这两个状态外表示还有别的行在下载
局_失败统计 ＝ 0
局_成功统计 ＝ 0
跳出循环 ()
如果 (寻找文本 (局_下载状态, “下载成功”, , 假) ＞ 0)
局_成功统计 ＝ 局_成功统计 ＋ 1
局_失败统计 ＝ 局_失败统计 ＋ 1

计次循环尾 ()
如果真 (局_成功统计 ＞ 0 或 局_失败统计 ＞ 0)
跳出循环 ()
处理事件 ()
延迟 (1000)
判断循环尾 ()
信息框 (“已全部下载完成，成功数量：” ＋ 到文本 (局_成功统计) ＋ “  失败数量：” ＋ 到文本 (局_失败统计), 0, , )

i支持库列表	支持库注释
EThread	多线程支持库
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 启动线程 (&状态监控, , )<br /> <br /> .子程序 状态监控<br /> .局部变量 局_循环标识, 逻辑型<br /> .局部变量 i, 整数型<br /> .局部变量 局_下载状态, 文本型<br /> .局部变量 局_失败统计, 整数型<br /> .局部变量 局_成功统计, 整数型<br /> <br /> 局_循环标识 ＝ 真<br /> .判断循环首 (局_循环标识 ＝ 真)<br />     .计次循环首 (超级列表框1.取表项数 (), i)<br />         局_下载状态 ＝ 超级列表框1.取标题 (i － 1, 2)<br />         .如果真 (寻找文本 (局_下载状态, “下载成功”, , 假) ＝ -1 且 寻找文本 (局_下载状态, “下载失败”, , 假) ＝ -1)  ' 除了这两个状态外表示还有别的行在下载<br />             局_失败统计 ＝ 0<br />             局_成功统计 ＝ 0<br />             跳出循环 ()<br />         .如果真结束<br />         .如果 (寻找文本 (局_下载状态, “下载成功”, , 假) ＞ 0)<br />             局_成功统计 ＝ 局_成功统计 ＋ 1<br />         .否则<br />             局_失败统计 ＝ 局_失败统计 ＋ 1<br />         .如果结束<br /> <br />     .计次循环尾 ()<br />     .如果真 (局_成功统计 ＞ 0 或 局_失败统计 ＞ 0)<br />         跳出循环 ()<br />     .如果真结束<br />     处理事件 ()<br />     延迟 (1000)<br /> .判断循环尾 ()<br /> 信息框 (“已全部下载完成，成功数量：” ＋ 到文本 (局_成功统计) ＋ “  失败数量：” ＋ 到文本 (局_失败统计), 0, , )

冷冷的吹风

首先 “如何判断我最后1个序号的网址，最后一条数据下载完成后。 弹1个信息框出来。” 你这个问题就要用到你的超级列表框的索引值了 写一个判读

补充内容 (2025-6-3 22:50):
写一个判断 既然你的序号数都有 如果为了方便 那就写一个时钟 周期事件 让他取最后一行的下载状态的那一列

补充内容 (2025-6-3 22:52):
的文本 然后 如果最后一行的下载状态的文本有的话 那就可以信息框   关于失败项目的信息框 我不建议你这样写 我建议的是你把失败的项目 写入一

补充内容 (2025-6-3 22:52):
个数组 然后如果有能力可以把数组里面的内容写入一个新的超级列表框 最优解还是多个超级列表框就可以解决问题

苕皮哥哥

大哥们 直接上源码啊  

苕皮哥哥

冷冷的吹风 发表于 2025-6-3 22:49
首先 “如何判断我最后1个序号的网址，最后一条数据下载完成后。 弹1个信息框出来。” 你这个问题就要用到 ...

来源码 大哥

ieietftg

最后一条表项下载完成后做一个判断：

.版本 2
.支持库 iext

.局部变量 i, 整数型
.局部变量 完成数量, 整数型
.局部变量 失败数量, 整数型

.计次循环首 (超级列表框1.取表项数 (), i)
    .如果 (超级列表框1.取标题 (i － 1, 2) ＝ “下载完成”)
        完成数量 ＝ 完成数量 ＋ 1
    .否则
        失败数量 ＝ 失败数量 ＋ 1
    .如果结束

.计次循环尾 ()
.如果 (完成数量 ＝ 超级列表框1.取表项数 ())
    信息框 (“提示”, 0, “全部下载完成，数量：” ＋ 到文本 (完成数量), )
.否则
    信息框 (“提示”, 0, “有失败的项目,失败数量：” ＋ 到文本 (失败数量), )
.如果结束

冷冷的吹风

苕皮哥哥 发表于 2025-6-3 22:53
来源码 大哥

  

子程序名	返回值类型	公开	备 注
解答			时钟事件
参数名	类 型	参考	可空	数组	备 注
列数	整数型
状态列	整数型
组件	时钟

变量名	类 型	静态	数组	备 注
下载状态	文本型
项目数	整数型

项目数 ＝ 超级列表框1.取表项数 () ÷ 列数  ' 这里比如我有4列我/4 就能得到最后一行的行数
如果真 (超级列表框1.取标题 (项目数, 状态列) ＝ “下载成功”)
信息框 (“任务已经全部完成”, 0, , )
组件.时钟周期 ＝ 0
返回 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 解答, , , 时钟事件<br /> .参数 列数, 整数型<br /> .参数 状态列, 整数型<br /> .参数 组件, 时钟<br /> .局部变量 下载状态, 文本型<br /> .局部变量 项目数, 整数型<br /> <br /> 项目数 ＝ 超级列表框1.取表项数 () ÷ 列数  ' 这里比如我有4列我/4 就能得到最后一行的行数<br /> .如果真 (超级列表框1.取标题 (项目数, 状态列) ＝ “下载成功”)<br />     信息框 (“任务已经全部完成”, 0, , )<br />     组件.时钟周期 ＝ 0<br />     返回 ()<br /> .如果真结束

熬夜

  

子程序名	返回值类型	公开	备 注
判断完成

变量名	类 型	静态	数组	备 注
FFFF1	整数型
i2	整数型
下载地址切换	文本型
执行下载	文本型
a	整数型

a ＝ 0
FFFF1 ＝ 超级列表框1.取表项数 ()
计次循环首 (FFFF1, i2)
判断 (超级列表框1.取标题 (i2 － 1, 3) ≠ “下载完成”)
下载地址切换 ＝ 超级列表框1.取标题 (i2 － 1, 2)
' 执行下载 = 访问网页 ‘下载
判断 (寻找文本 (执行下载, “下载成功文本”, , 假) ≠ -1)
超级列表框1.置标题 (i2 － 1, 3, “下载完成”)
a ＝ a ＋ 1
判断 (寻找文本 (返回源码.内容, “下载失败文本”, , 假) ≠ -1)
超级列表框1.置标题 (i2 － 1, 3, “失败”)







延迟 (400)
计次循环尾 ()
' 判断结果
判断 (a ＝ 0)
信息框 (“全部下载完成”, 0, , )
如果有失败的。提示下载完成，但有失败项目的信息框。

信息框 (“下载完成，但有失败项目请检查”, 0, , )

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 判断完成<br /> .局部变量 FFFF1, 整数型<br /> .局部变量 i2, 整数型<br /> .局部变量 下载地址切换, 文本型<br /> .局部变量 执行下载, 文本型<br /> .局部变量 a, 整数型<br /> <br /> a ＝ 0<br /> FFFF1 ＝ 超级列表框1.取表项数 ()<br /> .计次循环首 (FFFF1, i2)<br /> <br />     .判断开始 (超级列表框1.取标题 (i2 － 1, 3) ≠ “下载完成”)<br />         下载地址切换 ＝ 超级列表框1.取标题 (i2 － 1, 2)<br /> <br />         ' 执行下载 = 访问网页 ‘下载<br /> <br />         .判断开始 (寻找文本 (执行下载, “下载成功文本”, , 假) ≠ -1)<br />             超级列表框1.置标题 (i2 － 1, 3, “下载完成”)<br />             a ＝ a ＋ 1<br />         .判断 (寻找文本 (返回源码.内容, “下载失败文本”, , 假) ≠ -1)<br />             超级列表框1.置标题 (i2 － 1, 3, “失败”)<br /> <br />         .默认<br /> <br />         .判断结束<br /> <br /> <br />     .默认<br /> <br />     .判断结束<br />     延迟 (400)<br /> <br /> <br /> .计次循环尾 ()<br /> <br /> ' 判断结果<br /> <br /> <br /> <br /> .判断开始 (a ＝ 0)<br />     信息框 (“全部下载完成”, 0, , )<br /> <br />     如果有失败的。提示下载完成，但有失败项目的信息框。<br /> <br /> .默认<br />     信息框 (“下载完成，但有失败项目请检查”, 0, , )<br /> .判断结束

苕皮哥哥

比如序号200个 或者300个 。可以直接时钟 判断  最后一行是否 为 下载成功 吗。 是的话提示。全部下载完毕。  下载成功那一列的 索引为7

苕皮哥哥

冷冷的吹风 发表于 2025-6-3 23:02
[e=2].版本 2
.支持库 iext

比如序号200个 或者300个 。可以直接时钟 判断  最后一行是否 为 下载成功 吗。 是的话提示。全部下载完毕。  下载成功那一列的 索引为7