选择列表框关键字寻找附上例子

吾爱精益

选择列表框关键字寻找判断一下项目里是否存在指定关键字例子附上 选择列表框求助.zip (1.04 KB, 下载次数: 7)

2016-6-30 23:39 上传

点击文件名下载附件

易正易则

选择列表框求助.zip (1.57 KB, 下载次数: 19)

2016-7-1 00:06 上传

点击文件名下载附件

cloak

  

子程序名	返回值类型	公开	备 注
_查找_被单击			主程序.查找列表

变量名	类 型	静态	数组	备 注
是否找到	逻辑型
临时文本	文本型
ass	整数型

如果真 (输入框 (“请输入需要查找的内容”, “查找”, “”, 临时文本, , ) ＝ 真)
是否找到 ＝ 假
计次循环首 (超级列表框1.取表项数 (), ass)
索引 ＝ ass － 1
如果真 (表项关键字搜索 (超级列表框1, 索引, 1, 临时文本) ＝ 真)  ' 只是搜索了第1列,需要的话可以通过循环每项每列读取
是否找到 ＝ 真
跳出循环 ()

计次循环尾 ()
如果真 (是否找到 ＝ 假)  ' 全部搜索没找到 弹出信息框
索引 ＝ 0
信息框 (“超级列表框中没找到” ＋ #换行符 ＋ #换行符 ＋ 临时文本, 0, “”)

超级列表框1.现行选中项 ＝ 索引
超级列表框1.保证显示 (索引)
超级列表框1.获取焦点 ()

子程序名	返回值类型	公开	备 注
表项关键字搜索	逻辑型		查找.操作库
参数名	类 型	参考	可空	数组	备 注
欲搜索超级列表框	超级列表框
欲搜索表项索引	整数型
欲搜索列索引	整数型
关键字	文本型

变量名	类 型	静态	数组	备 注
标题文本	文本型

标题文本 ＝ 超级列表框1.取标题 (欲搜索表项索引, 欲搜索列索引)
如果 (寻找文本 (标题文本, 关键字, , 真) ＝ -1)
返回 (假)  ' 未找到关键字
返回 (真)  ' 找到关键字

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _查找_被单击, , , 主程序.查找列表<br /> .局部变量 是否找到, 逻辑型<br /> .局部变量 临时文本, 文本型<br /> .局部变量 ass, 整数型<br /> <br /> .如果真 (输入框 (“请输入需要查找的内容”, “查找”, “”, 临时文本, , ) ＝ 真)<br />     是否找到 ＝ 假<br /> <br />     .计次循环首 (超级列表框1.取表项数 (), ass)<br />         索引 ＝ ass － 1<br /> <br />         .如果真 (表项关键字搜索 (超级列表框1, 索引, 1, 临时文本) ＝ 真)  ' 只是搜索了第1列,需要的话可以通过循环每项每列读取<br />             是否找到 ＝ 真<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br />     .如果真 (是否找到 ＝ 假)  ' 全部搜索没找到 弹出信息框<br />         索引 ＝ 0<br />         信息框 (“超级列表框中没找到” ＋ #换行符 ＋ #换行符 ＋ 临时文本, 0, “”)<br />     .如果真结束<br /> <br />     超级列表框1.现行选中项 ＝ 索引<br />     超级列表框1.保证显示 (索引)<br />     超级列表框1.获取焦点 ()<br /> .如果真结束<br /> <br /> <br /> <br /> .子程序 表项关键字搜索, 逻辑型, , 查找.操作库<br /> .参数 欲搜索超级列表框, 超级列表框<br /> .参数 欲搜索表项索引, 整数型<br /> .参数 欲搜索列索引, 整数型<br /> .参数 关键字, 文本型<br /> .局部变量 标题文本, 文本型<br /> <br /> 标题文本 ＝ 超级列表框1.取标题 (欲搜索表项索引, 欲搜索列索引)<br /> .如果 (寻找文本 (标题文本, 关键字, , 真) ＝ -1)<br />     返回 (假)  ' 未找到关键字<br /> .否则<br />     返回 (真)  ' 找到关键字<br /> .如果结束

cloak

cloak 发表于 2016-6-30 23:52
[e=0].版本 2
.支持库 iext

请无视...........