超级列表框模糊搜索的例子

no35825025

具体要求是
在编辑框输入内容
然后标签内显示超级列表框搜索到整行的内容

zainex

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
索引	整数型
数	整数型

计次循环首 (5, )
索引 ＝ 超级列表框1.插入表项 (, , , , , )
计次循环首 (4, 数)
超级列表框1.置标题 (索引, 数 － 1, 到文本 (取随机数 (1, 100)))
计次循环尾 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
目标	文本型
数	整数型
值	整数型
结果	文本型
找到	逻辑型

目标 ＝ 编辑框1.内容
计次循环首 (超级列表框1.取表项数 (), 数)
计次循环首 (超级列表框1.取列数 (), 值)
如果真 (寻找文本 (超级列表框1.取标题 (数 － 1, 值 － 1), 目标, , 假) ≠ -1)
找到 ＝ 真

计次循环尾 ()
如果真 (找到)
计次循环首 (超级列表框1.取列数 (), 值)
结果 ＝ 结果 ＋ 超级列表框1.取标题 (数 － 1, 值 － 1) ＋ “ ”
计次循环尾 ()
跳出循环 ()

计次循环尾 ()
标签1.标题 ＝ 结果

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

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 索引, 整数型<br /> .局部变量 数, 整数型<br /> <br /> .计次循环首 (5, )<br />     索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />     .计次循环首 (4, 数)<br />         超级列表框1.置标题 (索引, 数 － 1, 到文本 (取随机数 (1, 100)))<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 目标, 文本型<br /> .局部变量 数, 整数型<br /> .局部变量 值, 整数型<br /> .局部变量 结果, 文本型<br /> .局部变量 找到, 逻辑型<br /> <br /> 目标 ＝ 编辑框1.内容<br /> .计次循环首 (超级列表框1.取表项数 (), 数)<br />     .计次循环首 (超级列表框1.取列数 (), 值)<br />         .如果真 (寻找文本 (超级列表框1.取标题 (数 － 1, 值 － 1), 目标, , 假) ≠ -1)<br />             找到 ＝ 真<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     .如果真 (找到)<br />         .计次循环首 (超级列表框1.取列数 (), 值)<br />             结果 ＝ 结果 ＋ 超级列表框1.取标题 (数 － 1, 值 － 1) ＋ “ ”<br />         .计次循环尾 ()<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 标签1.标题 ＝ 结果

效果:

例子.zip (1.58 KB, 下载次数: 6)

2025-10-22 20:46 上传

点击文件名下载附件

RainCharm

0%的结贴率，这个问题真不会，不好意思帮不了你

chenyuqi1230

.版本 2
.支持库 iext

查找到的表项索引 ＝ 子程序_模糊查找 (超级列表框_所有群, 编辑框_模糊查找.内容, 1, 查找到的表项索引 ＋ 1)
.如果 (查找到的表项索引 ≠ -1)
    超级列表框_所有群.保证显示 (查找到的表项索引)
    超级列表框_所有群.现行选中项 ＝ 查找到的表项索引
    超级列表框_所有群.获取焦点 ()
.否则

.版本 2
.支持库 iext

.子程序 子程序_模糊查找, 整数型, , 返回找到的索引
.参数 某超级列表框, 超级列表框
.参数 欲查找的文本, 文本型
.参数 列索引, 整数型, 可空, 如果为空则默认为0
.参数 起始查找位置, 整数型, 可空, 如果为空则默认为0
.局部变量 计次, 整数型


.计次循环首 (某超级列表框.取表项数 (), 计次)
    .如果真 (起始查找位置 ＞ 计次 － 1)
        到循环尾 ()
    .如果真结束
    .如果真 (寻找文本 (某超级列表框.取标题 (计次 － 1, 列索引), 欲查找的文本, , 真) ＞ 0)
        返回 (计次 － 1)
    .如果真结束

.计次循环尾 ()
返回 (-1)

chenyuqi1230

  

查找到的表项索引 ＝ 子程序_模糊查找 (超级列表框_所有群, 编辑框_模糊查找.内容, 1, 查找到的表项索引 ＋ 1)
如果 (查找到的表项索引 ≠ -1)
超级列表框_所有群.保证显示 (查找到的表项索引)
超级列表框_所有群.现行选中项 ＝ 查找到的表项索引
超级列表框_所有群.获取焦点 ()

子程序名	返回值类型	公开	备 注
子程序_模糊查找	整数型		返回找到的索引
参数名	类 型	参考	可空	数组	备 注
某超级列表框	超级列表框
欲查找的文本	文本型
列索引	整数型				如果为空则默认为0
起始查找位置	整数型				如果为空则默认为0

变量名	类 型	静态	数组	备 注
计次	整数型

计次循环首 (某超级列表框.取表项数 (), 计次)
如果真 (起始查找位置 ＞ 计次 － 1)
到循环尾 ()
如果真 (寻找文本 (某超级列表框.取标题 (计次 － 1, 列索引), 欲查找的文本, , 真) ＞ 0)
返回 (计次 － 1)

计次循环尾 ()
返回 (-1)

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

.版本 2<br /> .支持库 iext<br /> <br /> 查找到的表项索引 ＝ 子程序_模糊查找 (超级列表框_所有群, 编辑框_模糊查找.内容, 1, 查找到的表项索引 ＋ 1)<br /> .如果 (查找到的表项索引 ≠ -1)<br />     超级列表框_所有群.保证显示 (查找到的表项索引)<br />     超级列表框_所有群.现行选中项 ＝ 查找到的表项索引<br />     超级列表框_所有群.获取焦点 ()<br /> .否则<br /> <br /> .版本 2<br /> .支持库 iext<br /> <br /> .子程序 子程序_模糊查找, 整数型, , 返回找到的索引<br /> .参数 某超级列表框, 超级列表框<br /> .参数 欲查找的文本, 文本型<br /> .参数 列索引, 整数型, 可空, 如果为空则默认为0<br /> .参数 起始查找位置, 整数型, 可空, 如果为空则默认为0<br /> .局部变量 计次, 整数型<br /> <br /> <br /> .计次循环首 (某超级列表框.取表项数 (), 计次)<br />     .如果真 (起始查找位置 ＞ 计次 － 1)<br />         到循环尾 ()<br />     .如果真结束<br />     .如果真 (寻找文本 (某超级列表框.取标题 (计次 － 1, 列索引), 欲查找的文本, , 真) ＞ 0)<br />         返回 (计次 － 1)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (-1)

no35825025

chenyuqi1230 发表于 2025-10-22 20:41
[e=0].版本 2
.支持库 iext

...能直接搞成易源码吗

chenyuqi1230

no35825025 发表于 2025-10-22 20:44
...能直接搞成易源码吗

上传附件给我，我直接给你写好得了，懒得填充超列数据了

no35825025

chenyuqi1230 发表于 2025-10-22 20:45
上传附件给我，我直接给你写好得了，懒得填充超列数据了

好 辛苦了 1111111111111

no35825025

chenyuqi1230 发表于 2025-10-22 20:45
上传附件给我，我直接给你写好得了，懒得填充超列数据了

不用拉 下面那个哥们已经发了 辛苦了