超级列表框_刷新序号
.版本 2 .支持库 iext .子程序 超级列表框_刷新序号, 整数型, 公开, 返回结果等于超级列表框.取表项数()【把a返回了。】 .参数 超级列表框名称, 超级列表框 .局部变量 a, 整数型 .局部变量 i, 整数型 a = 超级列表框名称.取表项数 () .计次循环首 (a, i) 超级列表框名称.置标题 (i - 1, 0, 到文本 (i)) .计次循环尾 () 返回 (a) .版本 2 .支持库 iext
———————————————-
超级列表框_全部选择
.子程序 超级列表框_全部选择, , 公开, 非勾选 .参数 超级列表框名称, 超级列表框 .局部变量 a, 整数型 .局部变量 i, 整数型 a = 超级列表框名称.取表项数 () .计次循环首 (a, i) 超级列表框名称.选择表项 (i - 1) .计次循环尾 ()
————————————————-
超级列表框_全部勾选
.版本 2 .支持库 iext .子程序 超级列表框_全部勾选, , 公开 .参数 超级列表框名称, 超级列表框 .局部变量 a, 整数型 .局部变量 i, 整数型 a = 超级列表框名称.取表项数 () .计次循环首 (a, i) 超级列表框名称.置状态图片 (i - 1, 1) .计次循环尾 ()
————————————————-
超级列表框_按条件删除表象
‘实例:超级列表框_按条件删除表项 (超级列表框_网址, “no”, 1, 3, )
‘ 1:等于则删除 2:不等于则删除 3:包含则删除 4:不包含则删除。
.版本 2 .支持库 iext .子程序 超级列表框_按条件删除表象, , 公开 .参数 超级列表框, 超级列表框 .参数 关键字, 文本型 .参数 列索引, 整数型 .参数 条件类型, 整数型, , 1:等于则删除 2:不等于则删除 3:包含则删除 4:不包含则删除 .参数 是否刷新序号, 逻辑型, 可空, 默认真 .局部变量 a, 整数型 .局部变量 i, 整数型 .局部变量 操作表象, 整数型 a = 超级列表框.取表项数 () .判断开始 (条件类型 = 1) .计次循环首 (a, i) .如果真 (超级列表框.取标题 (a - i, 列索引) = 关键字) 超级列表框.删除表项 (a - i) .如果真结束 .计次循环尾 () .判断 (条件类型 = 2) .计次循环首 (a, i) .如果真 (超级列表框.取标题 (a - i, 列索引) ≠ 关键字) 超级列表框.删除表项 (a - i) .如果真结束 .计次循环尾 () .判断 (条件类型 = 3) .计次循环首 (a, i) .如果真 (寻找文本 (超级列表框.取标题 (a - i, 列索引), 关键字, , 假) ≠ -1) 超级列表框.删除表项 (a - i) .如果真结束 .计次循环尾 () .判断 (条件类型 = 4) .计次循环首 (a, i) .如果真 (寻找文本 (超级列表框.取标题 (a - i, 列索引), 关键字, , 假) = -1) 超级列表框.删除表项 (a - i) .如果真结束 .计次循环尾 () .默认 .判断结束 .如果真 (是否为空 (是否刷新序号)) 是否刷新序号 = 真 .如果真结束 .如果真 (是否刷新序号 = 真) 超级列表框_刷新序号 (超级列表框) .如果真结束
————————————————-
超级列表框_去重复
‘实例:超级列表框_去重复 (超级列表框_网址,1 )
.版本 2 .支持库 iext .支持库 spec .子程序 超级列表框_去重复 .参数 超级列表框名称, 超级列表框 .参数 检测项, 整数型 .局部变量 a, 文本型, , "0" .局部变量 i, 整数型 .局部变量 b, 整数型 .局部变量 数量, 整数型 数量 = 1 数组清零 (a) .计次循环首 (超级列表框名称.取表项数 (), i) 加入成员 (a, 超级列表框名称.取标题 (i - 1, 检测项)) ' 要检测的项 调试输出 (a) .计次循环尾 () .计次循环首 (超级列表框名称.取表项数 (), b) .如果 (数组_取次数 (a, 超级列表框名称.取标题 (b - 1, 2)) > 1) ' 对比删除 超级列表框名称.删除表项 (b - 1) 数量 = 数量 + 1 .否则 .如果结束 .计次循环尾 () .计次循环首 (超级列表框名称.取表项数 (), i) ' 这是重新排列 超级列表框名称.置标题 (i - 1, 0, 到文本 (i)) .计次循环尾 ()