查找关键词被包含的问题

wh1234567

.版本 2
.支持库 iext

.子程序 _按钮2_被单击, , , 查找
.局部变量 查找到的索引, 整数型

查找到的索引 ＝ 超级列表框1.查找表项 (关键词编辑框.内容, 0, 假, 到整数 (到数值 (列数编辑框.内容) － 1))  ' 如果想要继续向下查找，直接把起始查找位置0改成【超级列表框1.现行选中项+1】如果找不到内容的话查找表项会返回-1

.如果 (关键词编辑框.内容 ＝ “”)
    信息框 (“要搜索的内容不得为空！”, 0, , )
    返回 ()
.否则
    .如果 (查找到的索引 ＝ -1)
        信息框 (“对不起，姓名列里无此数据！”, 0, , )
        返回 ()
    .否则
        ' 信息框 (“恭喜，找到该用户名啦！”, 0, , )
        超级列表框1.现行选中项 ＝ 查找到的索引
        超级列表框1.保证显示 (查找到的索引)
        超级列表框1.获取焦点 ()

    .如果结束


上面代码为什么 例如内容为“冬天的雪茫茫”，如果以关键词是“冬”开头的才能查找到，而以“天”或者后面的字符串就查找不到？我的意思是想查找关键词是否被包含在内，求指正修正

企鹅号525150138

wh1234567 发表于 2024-11-5 21:50
发现一个问题：全部查找完毕居然提示无数据，应该是一个也查找不到的情况下才提示无此数据，而在遍历完毕 ...

  

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

变量名	类 型	静态	数组	备 注
查找到的索引	整数型
n	整数型
开始查找行	整数型

如果 (关键词编辑框.内容 ＝ “”)
开始查找行 ＝ 0
信息框 (“要搜索的内容不得为空！”, 0, , )
返回 ()
查找到的索引 ＝ -1
计次循环首 (超级列表框1.取表项数 () － 开始查找行, n)
如果真 (寻找文本 (超级列表框1.取标题 (n － 1+开始查找行, 到整数 (到数值 (列数编辑框.内容) － 1)), 关键词编辑框.内容, , 假) ＞ 0)
查找到的索引 ＝ n － 1 ＋ 开始查找行
跳出循环 ()

计次循环尾 ()
如果 (查找到的索引 ＝ -1)
开始查找行 ＝ 0
计次循环首 (超级列表框1.取表项数 (), n)
如果真 (寻找文本 (超级列表框1.取标题 (n － 1, 到整数 (到数值 (列数编辑框.内容) － 1)), 关键词编辑框.内容, , 假) ＞ 0)
信息框 (“对不起，已经全部查找完毕”, 0, , )  ' 不需要可屏蔽
_按钮2_被单击 ()  ' 重新从第一行开始,不需要可屏蔽
返回 ()

计次循环尾 ()
信息框 (“对不起，姓名列里无此数据！”, 0, , )
返回 ()
超级列表框1.现行选中项 ＝ 查找到的索引
超级列表框1.保证显示 (查找到的索引)
超级列表框1.获取焦点 ()
开始查找行 ＝ 查找到的索引 ＋ 1

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 查找到的索引, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 开始查找行, 整数型, 静态<br /> <br /> 如果 (关键词编辑框.内容 ＝ “”)<br /> 开始查找行 ＝ 0<br /> 信息框 (“要搜索的内容不得为空！”, 0, , )<br /> 返回 ()<br /> 查找到的索引 ＝ -1<br /> .计次循环首 (超级列表框1.取表项数 () － 开始查找行, n)<br />     .如果真 (寻找文本 (超级列表框1.取标题 (n － 1+开始查找行, 到整数 (到数值 (列数编辑框.内容) － 1)), 关键词编辑框.内容, , 假) ＞ 0)<br />         查找到的索引 ＝ n － 1 ＋ 开始查找行<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果 (查找到的索引 ＝ -1)<br />     开始查找行 ＝ 0<br />     .计次循环首 (超级列表框1.取表项数 (), n)<br />         .如果真 (寻找文本 (超级列表框1.取标题 (n － 1, 到整数 (到数值 (列数编辑框.内容) － 1)), 关键词编辑框.内容, , 假) ＞ 0)<br />             信息框 (“对不起，已经全部查找完毕”, 0, , )  ' 不需要可屏蔽<br />             _按钮2_被单击 ()  ' 重新从第一行开始,不需要可屏蔽<br />             返回 ()<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br />     信息框 (“对不起，姓名列里无此数据！”, 0, , )<br />     返回 ()<br /> .否则<br />     超级列表框1.现行选中项 ＝ 查找到的索引<br />     超级列表框1.保证显示 (查找到的索引)<br />     超级列表框1.获取焦点 ()<br />     开始查找行 ＝ 查找到的索引 ＋ 1

LEOONL

查找表项是按第一个字开始匹配的，第一个字不对就返回-1了，要寻找关键字的话得循环遍历 寻找文本（超级列表框.取标题（），关键字） 这样找了

wh1234567

LEOONL 发表于 2024-11-5 13:40
查找表项是按第一个字开始匹配的，第一个字不对就返回-1了，要寻找关键字的话得循环遍历 寻找文本（超级列 ...

求完整代码，期待老师

LEOONL

  

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

变量名	类 型	静态	数组	备 注
查找到的索引	整数型
n	整数型

如果 (关键词编辑框.内容 ＝ “”)
信息框 (“要搜索的内容不得为空！”, 0, , )
返回 ()
计次循环首 (超级列表框1.取表项数 (), n)
如果真 (寻找文本 (超级列表框1.取标题 (n － 1, 到整数 (到数值 (列数编辑框.内容) － 1)), 关键词编辑框.内容, , 假) ＞ 0)
查找到的索引 ＝ n － 1
跳出循环 ()

计次循环尾 ()
如果 (查找到的索引 ＝ -1)
信息框 (“对不起，姓名列里无此数据！”, 0, , )
返回 ()
超级列表框1.现行选中项 ＝ 查找到的索引
超级列表框1.保证显示 (查找到的索引)
超级列表框1.获取焦点 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 查找到的索引, 整数型<br /> .局部变量 n, 整数型<br /> <br /> .如果 (关键词编辑框.内容 ＝ “”)<br />     信息框 (“要搜索的内容不得为空！”, 0, , )<br />     返回 ()<br /> .否则<br />     .计次循环首 (超级列表框1.取表项数 (), n)<br />         .如果真 (寻找文本 (超级列表框1.取标题 (n － 1, 到整数 (到数值 (列数编辑框.内容) － 1)), 关键词编辑框.内容, , 假) ＞ 0)<br />             查找到的索引 ＝ n － 1<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     .如果 (查找到的索引 ＝ -1)<br />         信息框 (“对不起，姓名列里无此数据！”, 0, , )<br />         返回 ()<br />     .否则<br />         超级列表框1.现行选中项 ＝ 查找到的索引<br />         超级列表框1.保证显示 (查找到的索引)<br />         超级列表框1.获取焦点 ()<br />     .如果结束<br /> <br /> .如果结束

wh1234567

LEOONL 发表于 2024-11-5 13:53
[e=0].版本 2
.支持库 iext

有效果，感谢老师，如果是有多行包含关键词的话，那么下一个所在行怎么弄？

补充内容 (2024-11-5 14:12):
只能定位在第一次出现所在行？要全部按整行输出到编辑框的话怎么弄

LEOONL

wh1234567 发表于 2024-11-5 14:11
有效果，感谢老师，如果是有多行包含关键词的话，那么下一个所在行怎么弄？

补充内容 (2024-11-5 14:12) ...

  

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

变量名	类 型	静态	数组	备 注
查找到的索引	整数型
n	整数型
开始查找行	整数型

开始查找行 ＝ 5
如果 (关键词编辑框.内容 ＝ “”)
信息框 (“要搜索的内容不得为空！”, 0, , )
返回 ()
计次循环首 (超级列表框1.取表项数 ()-开始查找行, n)
如果真 (寻找文本 (超级列表框1.取标题 (n － 1+开始查找行, 到整数 (到数值 (列数编辑框.内容) － 1)), 关键词编辑框.内容, , 假) ＞ 0)
查找到的索引 ＝ n － 1
跳出循环 ()

计次循环尾 ()
如果 (查找到的索引 ＝ -1)
信息框 (“对不起，姓名列里无此数据！”, 0, , )
返回 ()
超级列表框1.现行选中项 ＝ 查找到的索引
超级列表框1.保证显示 (查找到的索引)
超级列表框1.获取焦点 ()

.版本 2<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 查找到的索引, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 开始查找行, 整数型<br /> <br /> 开始查找行 ＝ 5<br /> .如果 (关键词编辑框.内容 ＝ “”)<br />     信息框 (“要搜索的内容不得为空！”, 0, , )<br />     返回 ()<br /> .否则<br />     .计次循环首 (超级列表框1.取表项数 ()-开始查找行, n)<br />         .如果真 (寻找文本 (超级列表框1.取标题 (n － 1+开始查找行, 到整数 (到数值 (列数编辑框.内容) － 1)), 关键词编辑框.内容, , 假) ＞ 0)<br />             查找到的索引 ＝ n － 1<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     .如果 (查找到的索引 ＝ -1)<br />         信息框 (“对不起，姓名列里无此数据！”, 0, , )<br />         返回 ()<br />     .否则<br />         超级列表框1.现行选中项 ＝ 查找到的索引<br />         超级列表框1.保证显示 (查找到的索引)<br />         超级列表框1.获取焦点 ()<br />     .如果结束

LEOONL

不跳出循环就是全部找到行

  

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

变量名	类 型	静态	数组	备 注
查找到的索引	整数型
n	整数型

如果 (关键词编辑框.内容 ＝ “”)
信息框 (“要搜索的内容不得为空！”, 0, , )
返回 ()
计次循环首 (超级列表框1.取表项数 ()-开始查找行, n)
如果真 (寻找文本 (超级列表框1.取标题 (n － 1+开始查找行, 到整数 (到数值 (列数编辑框.内容) － 1)), 关键词编辑框.内容, , 假) ＞ 0)
调试输出 (查找到的索引)

计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 查找到的索引, 整数型<br /> .局部变量 n, 整数型<br /> <br /> .如果 (关键词编辑框.内容 ＝ “”)<br />     信息框 (“要搜索的内容不得为空！”, 0, , )<br />     返回 ()<br /> .否则<br />     .计次循环首 (超级列表框1.取表项数 ()-开始查找行, n)<br />         .如果真 (寻找文本 (超级列表框1.取标题 (n － 1+开始查找行, 到整数 (到数值 (列数编辑框.内容) － 1)), 关键词编辑框.内容, , 假) ＞ 0)<br />             调试输出 (查找到的索引)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .如果结束

wh1234567

LEOONL 发表于 2024-11-5 14:14
不跳出循环就是全部找到行

[e=0].版本 2

错误(30): 找不到指定的变量名称“开始查找行”。

LEOONL

wh1234567 发表于 2024-11-5 14:22
错误(30): 找不到指定的变量名称“开始查找行”。

这种问题你都要问的话 我很懒得跟你多讲了