vba积极向前看太贪心了

Question

我正在使用Access VBA来解析带有正则表达式的字符串.这是我的正则表达式函数:

Function regexSearch(pattern As String, source As String) As String

Dim re As RegExp
Dim matches As MatchCollection
Dim match As match


Set re = New RegExp
re.IgnoreCase = True

re.pattern = pattern
Set matches = re.Execute(source)


    If matches.Count > 0 Then
        regexSearch = matches(0).Value
    Else
        regexSearch = ""
    End If


End Function

当我测试它时:

regexSearch("^.+(?=[ _-]+mp)", "153 - MP 13.61 to MP 17.65")

我期待得到:

153

因为它和第一个'MP'实例之间的唯一字符是前瞻中指定的类中的字符.

但我的实际回报值是:

153 - MP 13.61 to

为什么它会达到第二个"MP"？

Answer 1

因为.+默认是贪心的.的.+,直到遇到一个换行符炭,或结束输入每个字符吃掉.当发生这种情况时,它会回溯到最后一个MP(在您的情况下是第二个).

你想要的是匹配ungreedy.这可以通过放置完成?后.+:

regexSearch("^.+?(?=[ _-]+MP)", "153 - MP 13.61 to MP 17.65")