.版本 2
.支持库 iext
.子程序 超级列表框搜索, 整数型
.参数 超级列表框, 超级列表框
.参数 列, 整数型
.参数 搜索框, 编辑框
.局部变量 表项计次, 整数型
.局部变量 记录表项, 整数型, 静态
.局部变量 查找数, 整数型
.局部变量 查到文本, 文本型
.局部变量 查到文本_数组, 文本型, , "0"
.局部变量 分割_cha询文本, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 表项, 整数型
.局部变量 l, 整数型
查找数 = 0
清除数组 (查到文本_数组)
.计次循环首 (超级列表框.取表项数 (), 表项计次)
.判断开始 (寻找文本 (超级列表框.取标题 (表项计次 - 1, 列), 搜索框.内容, , 假) > 0)
.计次循环首 (超级列表框.取列数 (), l)
.判断开始 (l = 1)
查到文本 = 超级列表框.取标题 (表项计次 - 1, l)
.默认
查到文本 = 查到文本 + “}” + 超级列表框.取标题 (表项计次 - 1, l)
.判断结束
.计次循环尾 ()
加入成员 (查到文本_数组, 查到文本)
查找数 = 查找数 + 1
.默认
.判断结束
.计次循环尾 ()
超级列表框.全部删除 ()
.计次循环首 (取数组成员数 (查到文本_数组), 表项计次)
分割_cha询文本 = 分割文本 (查到文本_数组 [表项计次], “}”, )
表项 = 超级列表框.插入表项 (, , , , , )
超级列表框.置标题 (表项, 0, 到文本 (表项计次))
.计次循环首 (取数组成员数 (分割_cha询文本), i)
超级列表框.置标题 (表项, i, 分割_cha询文本 [i])
.计次循环尾 ()
.计次循环尾 ()
' 标签_cha询到.标题 = 到文本 (查找数)
返回 (查找数)
|