[已解决]正则问题 - 零宽度负预测先行断言一例

爱疯

1. 
   
2. Sub Test()
   
3.     Dim regex As Object, matchs As Object, match As Object
   
4.     Dim x As String, y As String, z As String
   
5.     x = "100斤苹果 100元,30斤梨 60元,5斤香蕉 8.5元"
   
6. '    y = "\d+\.?\d*(?=斤)"
   
7.     y = "\d+\.?\d*(?!斤)"
   
8.     Set regex = CreateObject("VBScript.RegExp")
   
9.     With regex
   
10.         .Global = True
    
11.         .Pattern = y
    
12.         Set matchs = .Execute(x)
    
13.         Debug.Print "值", "位置", "长度"
    
14.         For Each match In matchs
    
15.             Debug.Print match.Value, match.firstindex, match.Length
    
16.             z = z & match
    
17.         Next
    
18.     End With
    
19.     '    Debug.Print z
    
20. End Sub
    

复制代码

只启用第1个y的赋值句，能理解，返回：
值            位置          长度
100            0             3
30             12            2
5              21            1


但如果只启用第2个y的赋值句，就不理解了。我预想会得到3个的价格数字。可实际却是：
值            位置          长度
10             0             2
100            7             3
3              12            1
60             17            2
8.5            26            3



请问：只启用第2个y的赋值句，为什么会得到如上结果。谢谢！

最佳答案

月排行榜 / 总排行榜

liuguansky

2012-2-24 15:57

....已经说了，０匹配?!斤。这个匹配不占位置的[也就是说不会显示为匹配结果，只是用于判断]。

正如(?=exp)
匹配的结果中是不含exp的

跳转到最佳答案楼层

liuguansky

y = "\d+\.?\d*(?![斤\d])"
这样试试
因为数字也可以匹配到（?!斤）

liuguansky

另外　小数的话建议是
\d+((\.\d+)|(\d*))

爱疯

[斤\d]

含义：从汉字"斤"和一个数字，两者之中任选之一？

liuts

1. "\d+\.?\d*(?!斤|\d)"

复制代码

爱疯

谢谢花花lius！
学习了两位的解决方法，和更保险的写法。

我理解：
1. 零宽度正预测先行断言(?=exp)：匹配结果后是exp
所以，(?=斤)表示匹配结果后是斤
2.零宽度负预测先行断言(?!exp)：匹配结果后不是exp
同理，(?!斤)应该表示匹配结果后不是斤
那么，x第一次被匹配的时候，为什么匹配的是10，而不是100？

liuguansky

....已经说了，０匹配?!斤。这个匹配不占位置的[也就是说不会显示为匹配结果，只是用于判断]。

正如(?=exp)
匹配的结果中是不含exp的

liuts

它认定,0和!斤相符,所以0前面的10被匹配到啦

爱疯

liuguansky 发表于 2012-2-24 15:57
....已经说了，０匹配?!斤。这个匹配不占位置的[也就是说不会显示为匹配结果，只是用于判断]。

正如(?= ...

我理解你这句话。
x第一次被匹配时，我认为也可以这样：

匹配数字100，斤匹配?!斤。这个匹配不占位置的[也就是说不会显示为匹配结果，只是用于判断]。

为什么第一次被匹配值不是100？

爱疯

liuts 发表于 2012-2-24 16:01
它认定,0和!斤相符,所以0前面的10被匹配到啦

它为什么认定这是唯一的匹配方式呢？