超级列表框多关键词筛选源码

.版本 2
.支持库 iext

.程序集 窗口程序集1

.子程序 _按钮4_被单击
.局部变量 局部_线程局部, 整数型

' 启动线程 (&子程序_筛选, , 局部_线程局部)
' 关闭线程句柄 (局部_线程局部)
子程序_筛选 ()

.子程序 子程序_筛选
.局部变量 局部_数量, 整数型
.局部变量 局部_计次, 整数型
.局部变量 局部_索引, 整数型
.局部变量 局部_省份, 文本型
.局部变量 局部_省份_筛选, 文本型
.局部变量 局部_性别, 文本型
.局部变量 局部_性别_筛选, 文本型
.局部变量 局部_年龄, 整数型
.局部变量 局部_低年龄_筛选, 整数型
.局部变量 局部_高年龄_筛选, 整数型

局部_省份_筛选 ＝ 组合框1.取项目文本 (组合框1.现行选中项)
局部_性别_筛选 ＝ 组合框2.取项目文本 (组合框2.现行选中项)
局部_低年龄_筛选 ＝ 到整数 (编辑框1.内容)
局部_高年龄_筛选 ＝ 到整数 (编辑框2.内容)
.如果真 (局部_省份_筛选 ≠ “全部”)
    局部_索引 ＝ 0
    局部_数量 ＝ 超级列表框.取表项数 ()
    .计次循环首 (局部_数量, 局部_计次)
        局部_省份 ＝ 超级列表框.取标题 (局部_索引, 2)
        .判断开始 (寻找文本 (局部_省份, 局部_省份_筛选, , 假) ＝ -1)
            超级列表框.删除表项 (局部_索引)
        .默认
            局部_索引 ＝ 局部_索引 ＋ 1
        .判断结束

    .计次循环尾 ()
.如果真结束
.如果真 (局部_性别_筛选 ≠ “全部”)
    局部_索引 ＝ 0
    局部_数量 ＝ 超级列表框.取表项数 ()
    .计次循环首 (局部_数量, 局部_计次)
        局部_性别 ＝ 超级列表框.取标题 (局部_索引, 3)
        .判断开始 (寻找文本 (局部_性别, 局部_性别_筛选, , 假) ＝ -1)
            超级列表框.删除表项 (局部_索引)
        .默认
            局部_索引 ＝ 局部_索引 ＋ 1
        .判断结束

    .计次循环尾 ()
.如果真结束
局部_索引 ＝ 0
局部_数量 ＝ 超级列表框.取表项数 ()
.计次循环首 (局部_数量, 局部_计次)
    局部_年龄 ＝ 到整数 (超级列表框.取标题 (局部_索引, 4))
    .判断开始 (局部_年龄 ≥ 局部_低年龄_筛选 且 局部_年龄 ≤ 局部_高年龄_筛选)
        局部_索引 ＝ 局部_索引 ＋ 1
    .默认
        超级列表框.删除表项 (局部_索引)
    .判断结束

.计次循环尾 ()
局部_数量 ＝ 超级列表框.取表项数 ()
.计次循环首 (局部_数量, 局部_计次)
    超级列表框.置标题 (局部_计次 － 1, 0, 到文本 (局部_计次))
.计次循环尾 ()

@我爱小黑屋