多个关键词判断的问题求助

pxzhuai01

' 现在的代码是，判断编辑框_全文里的内容是否包含 标记框_关键词1里的关键词，如果包含，提示“有”，注意无论包含几个关键词只提示一次“有”
' 现在要改成 同时判断编辑框_全文 里的内容 是否包含 编辑框_关键词1  编辑框_关键词2 编辑框_关键词3 编辑框_关键词4 里的关键词，例如 包含编辑框3内的关键词，编辑框_关键词对应框.内容=“3” 编辑框_关键词几里发现关键词就把编辑框_关键词对应框.内容 改成数字几。

' 【本人小白，修改完麻烦上传一下源码】，谢谢各位指点


.子程序 _按钮1_被单击
.局部变量 分割, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 x, 文本型

分割 ＝ 分割文本 (编辑框_关键词1.内容, “|”, )
.计次循环首 (取数组成员数 (分割), i)

    .如果真 (分割 [i] ＝ “”)
        到循环尾 ()
    .如果真结束

    .如果真 (寻找文本 (编辑框_全文.内容, 分割 [i], , 假) ＞ -1)
        x ＝ x ＋ 分割 [i] ＋ “|”
    .如果真结束


.计次循环尾 ()
.判断开始 (x ≠ “”)
    信息框 (“有  ”, 0, , )
.默认
    信息框 (“无  ”, 0, , )
.判断结束

偶是小小菜鸟

pxzhuai01 发表于 2024-5-14 22:40
你上传的源码打不开呢，打开失败

[JavaScript] 纯文本查看 复制代码

.版本 2
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 分割, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 x, 文本型
.局部变量 关键词arr, 文本型, , "0"
.局部变量 ii, 整数型
.局部变量 index, 整数型
.局部变量 txt, 文本型

' 现在的代码是，判断编辑框_全文里的内容是否包含 标记框_关键词1里的关键词，如果包含，提示“有”，注意无论包含几个关键词只提示一次“有”
' 现在要改成 同时判断编辑框_全文 里的内容 是否包含 编辑框_关键词1  编辑框_关键词2 编辑框_关键词3 编辑框_关键词4 里的关键词，例如 包含编辑框3内的关键词，编辑框_关键词对应框.内容=“3” 编辑框_关键词几里发现关键词就把编辑框_关键词对应框.内容 改成数字几。

' 本人小白，修改完麻烦上传一下源码，谢谢各位指点
index ＝ 0
加入成员 (关键词arr, 编辑框_关键词1.内容)
加入成员 (关键词arr, 编辑框_关键词2.内容)
加入成员 (关键词arr, 编辑框_关键词3.内容)
加入成员 (关键词arr, 编辑框_关键词4.内容)
txt ＝ 编辑框_全文.内容

.计次循环首 (取数组成员数 (关键词arr), i)
    分割 ＝ 分割文本 (关键词arr , “|”, )
    .计次循环首 (取数组成员数 (分割), ii)
        .如果真 (分割 [ii] ＝ “”)
            到循环尾 ()
        .如果真结束
        .如果真 (寻找文本 (txt, 分割 [ii], , 假) ≠ -1)
            index ＝ i
            调试输出 (index)
        .如果真结束




    .计次循环尾 ()



.计次循环尾 ()

.判断开始 (index ＞ 0)
    编辑框_关键词对应框.内容 ＝ 到文本 (index)
    信息框 (“有  ”, 0, , )
.默认
    信息框 (“无  ”, 0, , )
.判断结束

偶是小小菜鸟

000-2.e (5.93 KB, 下载次数: 5)

2024-5-14 22:32 上传

点击文件名下载附件




补充内容 (2024-5-14 22:35):
这里记录的是最后出现的 如果要记录全部的话 自己改一下就好了   测试是 1  1 4

pxzhuai01

偶是小小菜鸟 发表于 2024-5-14 22:32
补充内容 (2024-5-14 22:35):
这里记录的是最后出现的 如果要记录全部的话 自己改一下就好了   测试是 ...

你上传的源码打不开呢，打开失败

偶是小小菜鸟

  

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

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

' 现在的代码是，判断编辑框_全文里的内容是否包含 标记框_关键词1里的关键词，如果包含，提示“有”，注意无论包含几个关键词只提示一次“有”
' 现在要改成 同时判断编辑框_全文 里的内容 是否包含 编辑框_关键词1  编辑框_关键词2 编辑框_关键词3 编辑框_关键词4 里的关键词，例如 包含编辑框3内的关键词，编辑框_关键词对应框.内容=“3” 编辑框_关键词几里发现关键词就把编辑框_关键词对应框.内容 改成数字几。
' 本人小白，修改完麻烦上传一下源码，谢谢各位指点
index ＝ 0
加入成员 (关键词arr, 编辑框_关键词1.内容)
加入成员 (关键词arr, 编辑框_关键词2.内容)
加入成员 (关键词arr, 编辑框_关键词3.内容)
加入成员 (关键词arr, 编辑框_关键词4.内容)
txt ＝ 编辑框_全文.内容
计次循环首 (取数组成员数 (关键词arr), i)
分割 ＝ 分割文本 (关键词arr [i], “|”, )
计次循环首 (取数组成员数 (分割), ii)
如果真 (分割 [ii] ＝ “”)
到循环尾 ()
如果真 (寻找文本 (txt, 分割 [ii], , 假) ≠ -1)
index ＝ i
调试输出 (index)

计次循环尾 ()
计次循环尾 ()
判断 (index ＞ 0)
编辑框_关键词对应框.内容 ＝ 到文本 (index)
信息框 (“有  ”, 0, , )
信息框 (“无  ”, 0, , )

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 分割, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 x, 文本型<br /> .局部变量 关键词arr, 文本型, , "0"<br /> .局部变量 ii, 整数型<br /> .局部变量 index, 整数型<br /> .局部变量 txt, 文本型<br /> <br /> ' 现在的代码是，判断编辑框_全文里的内容是否包含 标记框_关键词1里的关键词，如果包含，提示“有”，注意无论包含几个关键词只提示一次“有”<br /> ' 现在要改成 同时判断编辑框_全文 里的内容 是否包含 编辑框_关键词1  编辑框_关键词2 编辑框_关键词3 编辑框_关键词4 里的关键词，例如 包含编辑框3内的关键词，编辑框_关键词对应框.内容=“3” 编辑框_关键词几里发现关键词就把编辑框_关键词对应框.内容 改成数字几。<br /> <br /> ' 本人小白，修改完麻烦上传一下源码，谢谢各位指点<br /> index ＝ 0<br /> 加入成员 (关键词arr, 编辑框_关键词1.内容)<br /> 加入成员 (关键词arr, 编辑框_关键词2.内容)<br /> 加入成员 (关键词arr, 编辑框_关键词3.内容)<br /> 加入成员 (关键词arr, 编辑框_关键词4.内容)<br /> txt ＝ 编辑框_全文.内容<br /> <br /> .计次循环首 (取数组成员数 (关键词arr), i)<br />     分割 ＝ 分割文本 (关键词arr <i>, “|”, )<br />     .计次循环首 (取数组成员数 (分割), ii)<br />         .如果真 (分割 [ii] ＝ “”)<br />             到循环尾 ()<br />         .如果真结束<br />         .如果真 (寻找文本 (txt, 分割 [ii], , 假) ≠ -1)<br />             index ＝ i<br />             调试输出 (index)<br />         .如果真结束<br /> <br /> <br /> <br /> <br />     .计次循环尾 ()<br /> <br /> <br /> <br /> .计次循环尾 ()<br /> <br /> .判断开始 (index ＞ 0)<br />     编辑框_关键词对应框.内容 ＝ 到文本 (index)<br />     信息框 (“有  ”, 0, , )<br /> .默认<br />     信息框 (“无  ”, 0, , )<br /> .判断结束