否定环视如何才是匹配成功

hhjjpp

下面是一段很简单的正则代码，目的是测试Window是否有除98之外的字符，居然否定环视"Window(?!=98)"成功匹配了目标字符"Window98"，这是为什么呢？当然也能匹配"Window97"，将"Window97"和"Window98"一视同仁，这又有什么意义呢？

1. Sub test()
   
2. Dim re, mh, s$, k
   
3. s = "Window98"
   
4. With CreateObject("vbscript.regexp")
   
5. .Pattern = "Window(?!=98)"
   
6. Set mh = .Execute(s)
   
7. End With
   
8. For Each k In mh
   
9.     MsgBox k
   
10. Next
    
11. End Sub
    

复制代码

上述代码改自贴：
http://club.excelhome.net/thread-1128647-1-1.html

解0人

是不是匹配Window97，而不匹配Window98？
试试去掉“=”：.Pattern = "Window(?!98)"

hhjjpp

明白了!之后不能有等号，唉那贴
http://club.excelhome.net/thread-1128647-1-1.html
一会是!，一会又是!=

hhjjpp

但否定环视在下述代码出了问题，就是找出包含“10/”，但不包含任何除“10/”之外的斜杆表达（如11/、20/、qw/……）

1. Private Sub CommandButton1_Click()
   
2. Dim arr, reg, i&
   
3. arr = [a1].Resize([a65536].End(xlUp).Row)
   
4. Set reg = CreateObject("vbscript.regexp")
   
5. reg.Pattern = "(?!10)/.+"                                 '禁止"[^(?:10)]/.+"
   
6. For i = 1 To UBound(arr)
   
7. Set mh = reg.Execute(arr(i, 1))
   
8.     If Not reg.Test(arr(i, 1)) And InStr(arr(i, 1), "10/") Then MsgBox i & "行匹配成功"
   
9. Next
   
10. End Sub
    

复制代码

hhjjpp

解0人 发表于 2016-10-29 17:07
是不是匹配Window97，而不匹配Window98？
试试去掉“=”：.Pattern = "Window(?!98)"

但环视表达式只能在后吗?

4楼如何解决？

duquancai

hhjjpp 发表于 2016-10-29 17:17
但环视表达式只能在后吗?

4楼如何解决？

我回答一下，只是我个人理解，如果不对，请见谅！
一、首先，环视结构有如下4种：
(?<=Expression)
逆序肯定环视，表示所在位置左侧能够匹配Expression
(?<!Expression)
逆序否定环视，表示所在位置左侧不能匹配Expression
(?=Expression)
顺序肯定环视，表示所在位置右侧能够匹配Expression
(?!Expression)
顺序否定环视，表示所在位置右侧不能匹配Expression
注明：        VBScript中（不谈所谓的加强版，其实加强版也不好，个人认为。）只支持顺序环视结构，就是后面2种。这是题外话！！！
二、针对本问题来说：
1.目标文本："Window98"
2.正则表达式："Window(?!=98)"
根据环视结构定义，这个正则表达式："Window(?!=98)"   那么就是  顺序否定环视：
只拆分一下这个顺序否定环视结构为两部分，即是：(?!   和   =98) 注意，右半边小括号只是环视结构必须的构成部分；所以这两部分准确的是：(?!    )顺序否定环视结构以及 表达式   =98
特别注意有这么一句话：空的真正表达式总是会找到长度为0的匹配，例如，顺序肯定环视结构中正则表达如果为空即：  (?=)  总是会产生长度为0的匹配；那么顺序否定环视结构中正则表达如果为空即：  (?!)  总是匹配失败！
三、结合本案例：
1.目标文本："Window98"
2.正则表达式："Window(?!=98)"
通过上面分析：正则表达式:” =98”   因为目标文本中 根本不存在 “=98”这4个字符，故：顺序肯定环视结构："(?==98)" 总是匹配失败！反过来，顺序否定环视结构："(?!=98)"总是会产生长度为0的匹配。
因此就会出现：楼主所说的情况！！！

解0人

hhjjpp 发表于 2016-10-29 17:17
但环视表达式只能在后吗?

4楼如何解决？

如楼上所说，
逆序环视不被VBScript正则支持，所以(?<=Expression)的方式用不了
(?!exp)本身是匹配后面的，不能放到前面
对于10/开头的匹配，可以如下：

1. Dim arr, reg, i&
   
2. arr = [a1].Resize([a65536].End(xlUp).Row)
   
3. Set reg = CreateObject("vbscript.regexp")
   
4. reg.Global = True
   
5. 'reg.Pattern = "(?!10)/.+"                                 '禁止"[^(?:10)]/.+"
   
6. reg.Pattern = "10/\d{2}\s(.+?台)"
   
7. For i = 1 To UBound(arr)
   
8. Set mh = reg.Execute(arr(i, 1))
   
9. If reg.test(arr(i, 1)) Then
   
10.     Debug.Print "第" & i & "行："
    
11.     For Each m In mh
    
12.         Debug.Print m
    
13.         For Each mm In m.submatches
    
14.         Debug.Print "      " & mm
    
15.         Next
    
16.     Next
    
17.     Debug.Print
    
18. End If
    
19. Next

复制代码