直接复制，可以作为模块使用。批量导入的话，用这个很方便。代码很简洁。
.子程序 外部_超级列表框是否存在, 逻辑型, 公开, 查找表项文本，存在返回真，没有返回假
.参数 超级列表框ID, 超级列表框
.参数 欲查找的文本, 文本型
.参数 列索引, 整数型
.局部变量 表项, 整数型
.局部变量 n, 整数型
表项 ＝ 超级列表框ID.取表项数 ()
.计次循环首 (表项, n)
.如果真 (欲查找的文本 ＝ 超级列表框ID.取标题 (n － 1, 列索引))
返回 (真)
.如果真结束
.计次循环尾 ()
返回 (假)
上一篇 web封包拦截、非网截无模块