求助正则匹配

xmadmin1

我需要怎么改，才能实现（依次搜索编辑框1，有没有编辑框2这些词）


代码：

事件 按钮1.被单击()
        变量 结果 为 文本型()
        变量 个数 为 整数型
        变量 计次 为 整数型
        变量 内容 为 文本型
       
        结果 = 正则匹配(编辑框1.内容,编辑框2.内容)
        个数 = 取数组下标(结果,1)
        如果 个数 > 0 则
                变量循环首 计次 = 1 至 个数
                   内容 = 内容 & "\n" & 结果(计次 - 1)
                变量循环尾
                编辑框3.内容 = 内容
        否则
                编辑框3.内容 = "未找到匹配文本"
        结束 如果
       
       
结束 事件

哇哦

1. 事件 按钮1.被单击()
   
2.        
   
3.         变量 wb 为 文本型()
   
4.         变量  i 为 整数型
   
5.        
   
6.         wb = 分割文本(编辑框2.内容,"/n")
   
7.        
   
8.         判断循环首 i < 取数组成员数(wb)
   
9.                
   
10.                 如果 寻找文本(编辑框1.内容,wb(i),0) <> -1 则
    
11.                        
    
12.                         编辑框3.内容="已找到"
    
13.                        
    
14.                         退出 事件
    
15.                 结束 如果
    
16.                 i=i+1
    
17.         判断循环尾
    
18. 
    
19.         编辑框3.内容="未找到匹配文本"
    
20.        
    
21. 结束 事件

复制代码

hlswuwu

楼上正解

孙哥哥

        创建表达式("(爱)|(是)|(姐)|(间)",假,假) '
        开始匹配("阿里山扩大飞机我爱啊螺丝扣搭街坊立刻是埃里克的风景姐阿里山的空间发间隔")
        判断循环首 匹配下一个() = 真
                内容 = 取匹配文本() '取匹配到的文本
                位置 = 取匹配开始位置() '取匹配到的文本在文本中的开始位置
                结果 = 结果 & "\n" & "找到：" & 内容 & "---位置：" & 位置
                变量循环首 计次 = 1 至 取子匹配数量()
                        结果 = 结果 & "\n子匹配文本：" & 取子匹配文本(计次)
                变量循环尾
        判断循环尾
        编辑框3.内容 = 结果