寻找文本如何设置多个关键词？

天镜盗梦

我现在是实现了单个关键词寻找。

列表框1的标题含有编辑框输入的内容，就置标题到编辑框2.

现在我想实现多个关键词搜索文本。比如编辑框多行。但是不知道怎么去写这段代码。

想要达到的效果就是列表框1标题里含有设置的多个关键词里的任意一个就加入到列表框2里面去。

  

关键词内容 ＝ 编辑框_关键词.内容
搜索指定列 ＝ 1
计次循环首 (超级列表框1.取表项数 (), a)
参考内容 ＝ 超级列表框1.取标题 (a － 1, 搜索指定列)
如果真 (寻找文本 (参考内容, 关键词内容, , 假) ＞ -1)
表项索引2 ＝ 超级列表框2.插入表项 (, , , , , )
超级列表框2.置标题 (表项索引2, 0, 超级列表框1.取标题 (a － 1, 0))
超级列表框2.置标题 (表项索引2, 1, 超级列表框1.取标题 (a － 1, 1))

计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> 关键词内容 ＝ 编辑框_关键词.内容<br /> 搜索指定列 ＝ 1<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), a)<br />     参考内容 ＝ 超级列表框1.取标题 (a － 1, 搜索指定列)<br />     .如果真 (寻找文本 (参考内容, 关键词内容, , 假) ＞ -1)<br />         表项索引2 ＝ 超级列表框2.插入表项 (, , , , , )<br />         超级列表框2.置标题 (表项索引2, 0, 超级列表框1.取标题 (a － 1, 0))<br />         超级列表框2.置标题 (表项索引2, 1, 超级列表框1.取标题 (a － 1, 1))<br />     .如果真结束<br /> <br /> .计次循环尾 ()

冬夏

  

关键词内容 ＝ 编辑框_关键词.内容  ' 把编辑框改为多行模式
搜索指定列 ＝ 1
计次循环首 (超级列表框1.取表项数 (), a)
参考内容 ＝ 超级列表框1.取标题 (a － 1, 搜索指定列)
如果真 (关键词是否存在 (参考内容, 关键词内容)=真)
表项索引2 ＝ 超级列表框2.插入表项 (, , , , , )
超级列表框2.置标题 (表项索引2, 0, 超级列表框1.取标题 (a － 1, 0))
超级列表框2.置标题 (表项索引2, 1, 超级列表框1.取标题 (a － 1, 1))

计次循环尾 ()

子程序名	返回值类型	公开	备 注
关键词是否存在	逻辑型
参数名	类 型	参考	可空	数组	备 注
欲寻找的原文	文本型
关键词文本	文本型

变量名	类 型	静态	数组	备 注
关键词分割	文本型		0
i	整数型

关键词分割 ＝ 分割文本 (关键词文本, #换行符, )
如果真 (取数组成员数 (关键词分割) ＝ 0 且 关键词文本 ≠ “”)
加入成员 (关键词分割, 关键词文本)
计次循环首 (取数组成员数 (关键词分割), i)
如果真 (寻找文本 (欲寻找的原文, 关键词分割 [i], , 假) ＞ 0)
返回 (真)

计次循环尾 ()
返回 (假)

.版本 2<br /> <br /> 关键词内容 ＝ 编辑框_关键词.内容  ' 把编辑框改为多行模式<br /> 搜索指定列 ＝ 1<br /> .计次循环首 (超级列表框1.取表项数 (), a)<br />     参考内容 ＝ 超级列表框1.取标题 (a － 1, 搜索指定列)<br />     .如果真 (关键词是否存在 (参考内容, 关键词内容)=真)<br />         表项索引2 ＝ 超级列表框2.插入表项 (, , , , , )<br />         超级列表框2.置标题 (表项索引2, 0, 超级列表框1.取标题 (a － 1, 0))<br />         超级列表框2.置标题 (表项索引2, 1, 超级列表框1.取标题 (a － 1, 1))<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 关键词是否存在, 逻辑型<br /> .参数 欲寻找的原文, 文本型<br /> .参数 关键词文本, 文本型<br /> .局部变量 关键词分割, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 关键词分割 ＝ 分割文本 (关键词文本, #换行符, )<br /> .如果真 (取数组成员数 (关键词分割) ＝ 0 且 关键词文本 ≠ “”)<br />     加入成员 (关键词分割, 关键词文本)<br /> .如果真结束<br /> .计次循环首 (取数组成员数 (关键词分割), i)<br />     .如果真 (寻找文本 (欲寻找的原文, 关键词分割 <i>, , 假) ＞ 0)<br />         返回 (真)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (假)

补充内容 (2020-8-20 17:09):
这段代码才是，刚刚那个忘记调用了

冬夏

  

关键词内容 ＝ 编辑框_关键词.内容  ' 把编辑框改为多行模式
搜索指定列 ＝ 1
计次循环首 (超级列表框1.取表项数 (), a)
参考内容 ＝ 超级列表框1.取标题 (a － 1, 搜索指定列)
如果真 (寻找文本 (参考内容, 关键词内容, , 假) ＞ -1)
表项索引2 ＝ 超级列表框2.插入表项 (, , , , , )
超级列表框2.置标题 (表项索引2, 0, 超级列表框1.取标题 (a － 1, 0))
超级列表框2.置标题 (表项索引2, 1, 超级列表框1.取标题 (a － 1, 1))

计次循环尾 ()

子程序名	返回值类型	公开	备 注
关键词是否存在	逻辑型
参数名	类 型	参考	可空	数组	备 注
欲寻找的原文	文本型
关键词文本	文本型

变量名	类 型	静态	数组	备 注
关键词分割	文本型		0
i	整数型

关键词分割 ＝ 分割文本 (关键词文本, #换行符, )
如果真 (取数组成员数 (关键词分割) ＝ 0 且 关键词文本 ≠ “”)
加入成员 (关键词分割, 关键词文本)
计次循环首 (取数组成员数 (关键词分割), i)
如果真 (寻找文本 (欲寻找的原文, 关键词分割 [i], , 假) ＞ 0)
返回 (真)

计次循环尾 ()
返回 (假)

.版本 2<br /> <br /> 关键词内容 ＝ 编辑框_关键词.内容  ' 把编辑框改为多行模式<br /> 搜索指定列 ＝ 1<br /> .计次循环首 (超级列表框1.取表项数 (), a)<br />     参考内容 ＝ 超级列表框1.取标题 (a － 1, 搜索指定列)<br />     .如果真 (寻找文本 (参考内容, 关键词内容, , 假) ＞ -1)<br />         表项索引2 ＝ 超级列表框2.插入表项 (, , , , , )<br />         超级列表框2.置标题 (表项索引2, 0, 超级列表框1.取标题 (a － 1, 0))<br />         超级列表框2.置标题 (表项索引2, 1, 超级列表框1.取标题 (a － 1, 1))<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 关键词是否存在, 逻辑型<br /> .参数 欲寻找的原文, 文本型<br /> .参数 关键词文本, 文本型<br /> .局部变量 关键词分割, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 关键词分割 ＝ 分割文本 (关键词文本, #换行符, )<br /> .如果真 (取数组成员数 (关键词分割) ＝ 0 且 关键词文本 ≠ “”)<br />     加入成员 (关键词分割, 关键词文本)<br /> .如果真结束<br /> .计次循环首 (取数组成员数 (关键词分割), i)<br />     .如果真 (寻找文本 (欲寻找的原文, 关键词分割 <i>, , 假) ＞ 0)<br />         返回 (真)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (假)

冬夏

@neige轩 感谢提醒

neige轩

还是不建议在子程序里面分割

1. .版本 2
   
2. .支持库 iext
   
3. 
   
4. .子程序 _按钮1_被单击
   
5. .局部变量 关键词数组, 文本型, , "0"
   
6. .局部变量 a, 整数型
   
7. .局部变量 参考内容, 文本型
   
8. .局部变量 搜索指定列, 整数型
   
9. .局部变量 表项索引2, 整数型
   
10. 
    
11. 关键词数组 ＝ 分割文本 (编辑框_关键词.内容, #换行符, )
    
12. .如果真 (取数组成员数 (关键词数组) ＝ 0)
    
13.     返回 ()
    
14. .如果真结束
    
15. 搜索指定列 ＝ 1
    
16. .计次循环首 (超级列表框1.取表项数 (), a)
    
17.     参考内容 ＝ 超级列表框1.取标题 (a － 1, 搜索指定列)
    
18.     .如果真 (关键词是否存在 (参考内容, 关键词数组) ＝ 真)
    
19.         表项索引2 ＝ 超级列表框2.插入表项 (, , , , , )
    
20.         超级列表框2.置标题 (表项索引2, 0, 超级列表框1.取标题 (a － 1, 0))
    
21.         超级列表框2.置标题 (表项索引2, 1, 超级列表框1.取标题 (a － 1, 1))
    
22. 
    
23.     .如果真结束
    
24. 
    
25. .计次循环尾 ()
    
26. 
    
27. 
    
28. .子程序 关键词是否存在, 逻辑型
    
29. .参数 欲寻找的原文, 文本型
    
30. .参数 关键词数组, 文本型, 数组
    
31. .局部变量 i, 整数型
    
32. 
    
33. .计次循环首 (取数组成员数 (关键词数组), i)
    
34.     .如果真 (寻找文本 (欲寻找的原文, 关键词数组 [i], , 假) ＞ 0 且 关键词数组 [i] ≠ “”)
    
35.         返回 (真)
    
36.     .如果真结束
    
37. 
    
38. .计次循环尾 ()
    
39. 返回 (假)
    

复制代码

neige轩

还是不建议在子程序里面分割

  

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

变量名	类 型	静态	数组	备 注
关键词数组	文本型		0
a	整数型
参考内容	文本型
搜索指定列	整数型
表项索引2	整数型

关键词数组 ＝ 分割文本 (编辑框_关键词.内容, #换行符, )
如果真 (取数组成员数 (关键词数组) ＝ 0)
返回 ()
搜索指定列 ＝ 1
计次循环首 (超级列表框1.取表项数 (), a)
参考内容 ＝ 超级列表框1.取标题 (a － 1, 搜索指定列)
如果真 (关键词是否存在 (参考内容, 关键词数组) ＝ 真)
表项索引2 ＝ 超级列表框2.插入表项 (, , , , , )
超级列表框2.置标题 (表项索引2, 0, 超级列表框1.取标题 (a － 1, 0))
超级列表框2.置标题 (表项索引2, 1, 超级列表框1.取标题 (a － 1, 1))

计次循环尾 ()

子程序名	返回值类型	公开	备 注
关键词是否存在	逻辑型
参数名	类 型	参考	可空	数组	备 注
欲寻找的原文	文本型
关键词数组	文本型

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

计次循环首 (取数组成员数 (关键词数组), i)
如果真 (寻找文本 (欲寻找的原文, 关键词数组 [i], , 假) ＞ 0 且 关键词数组 [i] ≠ “”)
返回 (真)

计次循环尾 ()
返回 (假)

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 关键词数组, 文本型, , "0"<br /> .局部变量 a, 整数型<br /> .局部变量 参考内容, 文本型<br /> .局部变量 搜索指定列, 整数型<br /> .局部变量 表项索引2, 整数型<br /> <br /> 关键词数组 ＝ 分割文本 (编辑框_关键词.内容, #换行符, )<br /> .如果真 (取数组成员数 (关键词数组) ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> 搜索指定列 ＝ 1<br /> .计次循环首 (超级列表框1.取表项数 (), a)<br />     参考内容 ＝ 超级列表框1.取标题 (a － 1, 搜索指定列)<br />     .如果真 (关键词是否存在 (参考内容, 关键词数组) ＝ 真)<br />         表项索引2 ＝ 超级列表框2.插入表项 (, , , , , )<br />         超级列表框2.置标题 (表项索引2, 0, 超级列表框1.取标题 (a － 1, 0))<br />         超级列表框2.置标题 (表项索引2, 1, 超级列表框1.取标题 (a － 1, 1))<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 关键词是否存在, 逻辑型<br /> .参数 欲寻找的原文, 文本型<br /> .参数 关键词数组, 文本型, 数组<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (取数组成员数 (关键词数组), i)<br />     .如果真 (寻找文本 (欲寻找的原文, 关键词数组 <i>, , 假) ＞ 0 且 关键词数组 <i> ≠ “”)<br />         返回 (真)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (假)