超级列表框查找表项可区分大小写

易语言 2020-07-21 00:15:04

超级列表框查找表项可区分大小写

.子程序 查找列表索引, 整数型, , 超级列表框寻找表项所在索引,支持区分表项文本大小写
.参数 查找文本, 文本型
.参数 查找表列, 整数型
.参数 超级列表, 超级列表框
.局部变量 查找位置, 整数型
.局部变量 临时索引, 整数型
.局部变量 查询条件, 逻辑型

.判断循环首 (取反 (查询条件))
临时索引 = 超级列表.查找表项 (查找文本, 查找位置, 真, 查找表列)
.如果真 (临时索引 = -1)
跳出循环 ()
.如果真结束
.如果真 (文本比较 (超级列表.取标题 (临时索引, 查找表列), 查找文本, 真) = 0)
查询条件 = 真
返回 (临时索引)
.如果真结束
查找位置 = 查找位置 + 1
.如果真 (查找位置 ≥ 超级列表.取表项数 ())
跳出循环 ()
.如果真结束
处理事件 ()
.判断循环尾 ()