VBA 正则表达式 正向预查的返回结果为什么还包含条件？

明明朗

基础数据如附件图1，因为不同颜色，不同部位的同类涂料单价基本一样，所以通过正则表达式和字典提取不同类的涂料和单价，想要通过正则表达式获取项目描述的结果是“色”字和“于”字之间的内容。
VBA代码中的正则表达式搜索条件如下：

Str = Cells(i, 2).Value & "@"           '文本结尾加上@，作为筛选结尾的条件
.Pattern = "(?=色).+?(?=[于@])"         '有“于”字的，获取“色”字到“于”字之间的内容；无“于”字的，获取“色”字后的内容

运行后结果如附件图2，把“色”字显示了出来。文件详附件。请问是什么原因？

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim reg As New RegExp
   
5.   With reg
   
6.     .Global = True
   
7.     .Pattern = "色([^于]+)"
   
8.   End With
   
9.   With Worksheets("sheet1")
   
10.     r = .Cells(.Rows.Count, 2).End(xlUp).Row
    
11.     arr = .Range("b3:f" & r)
    
12.     ReDim brr(1 To UBound(arr), 1 To 3)
    
13.     m = 0
    
14.     For i = 1 To UBound(arr)
    
15.       If Len(arr(i, 1)) <> 0 Then
    
16.         Set mh = reg.Execute(arr(i, 1))
    
17.         m = m + 1
    
18.         brr(m, 1) = m
    
19.         brr(m, 2) = mh(0).SubMatches(0)
    
20.         brr(m, 3) = arr(i, 4)
    
21.       End If
    
22.     Next
    
23.   End With
    
24.   With Worksheets("sheet2")
    
25.     .UsedRange.Offset(1, 0).Clear
    
26.     .Range("a2").Resize(m, 3) = brr
    
27.   End With
    
28. End Sub
    

复制代码

chxw68

仅供参考。

八月十五

1. .Pattern = "(?!.*色).+?(?=[于@])"

复制代码

sluojianfei

反过来提最简单，想提第几个就提第几个，代码如下：


Sub test()
    Set reg = CreateObject("vbscript.regexp")
    reg.Global = True
    reg.Pattern = "色(.*?)于"
    st = "米白多色多彩漆于墙面"
    Set mar = reg.Execute(st)
    resultstr = mar(0).SubMatches(0)
   
End Sub

明明朗

chxw68 发表于 2019-11-12 17:09

学习了，代码简洁好多。

明明朗

八月十五 发表于 2019-11-12 17:14

谢谢，这个办法可行。但是原来我写的正向预查的方法，为什么会返回带有“色”字的字符串，这个我没想明白。。

明明朗

sluojianfei 发表于 2019-11-12 18:00
反过来提最简单，想提第几个就提第几个，代码如下：

嗯，这个方法确实方便。