问答区实例 - 文本匹配包含关键字

火威网络

另外还可以通过SQLite 也是能实现的。

  

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
str	文本型
arr	文本型		0
keyWord	文本型

str ＝ “可以根据您的需要返回任意数值http我是一个字符串ftp这样可以的。https很厉害吧易语言助手提醒您”
keyWord ＝ “http|ftp|https|返回”
输出调试文本 (“-->” ＋ 到文本 (文本匹配包含关键字 (str, keyWord, arr)))
keyWord ＝ “我|很厉害|易|助手”
输出调试文本 (“-->” ＋ 到文本 (文本匹配包含关键字 (str, keyWord, arr)))
keyWord ＝ “a|b|c|d”
输出调试文本 (“-->” ＋ 到文本 (文本匹配包含关键字 (str, keyWord, arr)))
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
文本匹配包含关键字	逻辑型
参数名	类 型	参考	可空	数组	备 注
源文本	文本型
关键字	文本型				关键字1|关键字2|关键字3
返回包含关键字	文本型				返回找到的关键字

变量名	类 型	静态	数组	备 注
Reg	正则表达式类
i	整数型
arr	文本型		0

Reg.创建 (“(” ＋ 关键字 ＋ “)”, 源文本, )
清除数组 (返回包含关键字)
如果真 (是否为空 (返回包含关键字) ＝ 假)
计次循环首 (Reg.取匹配数量 (), i)
加入成员 (返回包含关键字, Reg.取匹配文本 (i))
计次循环尾 ()
返回 (Reg.取匹配数量 () ＞ 0)

.版本 2<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 str, 文本型<br /> .局部变量 arr, 文本型, , "0"<br /> .局部变量 keyWord, 文本型<br /> <br /> str ＝ “可以根据您的需要返回任意数值http我是一个字符串ftp这样可以的。https很厉害吧<a href="http://e.125.la/" rel="nofollow" target="_blank" class="relatedlink">易语言助手</a>提醒您”<br /> keyWord ＝ “http|ftp|https|返回”<br /> 输出调试文本 (“-->” ＋ 到文本 (文本匹配包含关键字 (str, keyWord, arr)))<br /> <br /> keyWord ＝ “我|很厉害|易|助手”<br /> 输出调试文本 (“-->” ＋ 到文本 (文本匹配包含关键字 (str, keyWord, arr)))<br /> <br /> keyWord ＝ “a|b|c|d”<br /> 输出调试文本 (“-->” ＋ 到文本 (文本匹配包含关键字 (str, keyWord, arr)))<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 文本匹配包含关键字, 逻辑型<br /> .参数 源文本, 文本型<br /> .参数 关键字, 文本型, , 关键字1|关键字2|关键字3<br /> .参数 返回包含关键字, 文本型, 可空 数组, 返回找到的关键字<br /> .局部变量 Reg, 正则表达式类<br /> .局部变量 i, 整数型<br /> .局部变量 arr, 文本型, , "0"<br /> <br /> Reg.创建 (“(” ＋ 关键字 ＋ “)”, 源文本, )<br /> 清除数组 (返回包含关键字)<br /> .如果真 (是否为空 (返回包含关键字) ＝ 假)<br />     .计次循环首 (Reg.取匹配数量 (), i)<br />         加入成员 (返回包含关键字, Reg.取匹配文本 (i))<br />     .计次循环尾 ()<br /> .如果真结束<br /> 返回 (Reg.取匹配数量 () ＞ 0)

ttggnn

感谢分享

sinewtec

        开源精神必须支持~

三克油

感谢分享

孤城已故

yzl666

谢谢分享

BIG牛肉面

谢谢分享来看看

深圳梦

感谢分享，很给力！~

kentfung

正则效率有点低，不知道还有没有更好的方案呢？