如何用一个正则公式实现通过特证词匹配但是取值时排除特征词

tosome

请问各位老师，如何只用一次真个匹配，就可以实现在正则匹配时，既通过特证词取我想要的相邻的值时，又可以在正则取值时不会附带出现这个特证词。

写了几个正则匹配的代码，不过感觉2个正则甚至3、4个正则同时用真是太啰嗦，自己看代码看的也晕，求助各位老师

如果在一段复杂的文本中，有个特证词     “AHAHA” , 跟我想要的内容   “吃饭了吗”

举例如下：

阿13萨德分2342asdfwqer34123阿萨德fqwer4123沙发
AHAHA
吃饭了吗
阿234请2温23柔22我健23康23
持续4就马上到2请问

请问各位老师，怎么可以用一个正则公式就能求得这个 “吃饭了吗”，谢谢啦。
我自己的公式写的太啰嗦了，写完回头自己都不想看了

随，风飘...

见下图
[吃饭了吗]
========

1. Sub test22()
   
2. Dim str As String, k
   
3. str = "阿13萨德分2342asdfwqer34123阿萨德fqwer4123沙发AHAHA吃饭了吗阿234请2温23柔22我健23康23持续4就马上到2请问"
   
4. Dim rgex As Object
   
5. Set rgex = CreateObject("VBScript.RegExp")
   
6. With rgex
   
7. .Global = True
   
8. .IgnoreCase = True
   
9. .Pattern = "[吃饭了吗]"
   
10. Set k = .Execute(str)
    
11. End With
    
12. End Sub

复制代码

wanghan519

没验证，但其他语言里的正则都支持前向肯定，(?<=AHAHA).*表示匹配前面是AHAHA但不包括AHAHA

wanghan519

抱歉，我错了，Excel不支持前向肯定，且中文unicode好像只支持单字，用分组试试吧，Execute的结果是数组，在里面再找

tspliu

.Pattern="AHAHA(吃饭了吗)"

tosome

谢谢各位老师的帮助，真是太好啦