VBA多级正则表达式或改进的模式？

Question

我在VB中处理正则表达式时遇到问题。 我的文字是：

可悲的是目前在多伦多主要火车站待定

我在Expresso中测试了我的正则表达式，并找到了适合我的正则表达式。 事情是：多伦多火车总站也只能是“多伦多”。 这是我的模式：

is sadly currently in (([A-Za-z]*)(\s|-)){1,3}(.|\s)*?undetermined

问题是在VB中处理正则表达式，因为我的模式给我这样的结果：

• 可悲的是目前在多伦多主要车站未定
  • 未定
    • 多伦多
    • 主要
    • 未定
  • 未定
    • 多伦多
    • 主要
    • 未定..

但是我无法通过VB访问“多伦多”和“主要”一词-我也不想“不确定”成为结果的一部分。 我尝试了match.item(0).submatches.item(0).submatches.item(0)但是如果我尝试match.item(0).submatches.item(0).submatches并声明存在该问题，VBA已经抛出了错误不是这样的对象-显然它不能处理某些“多级”正则表达式。 有没有一种方法可以改善我的模式，以便我只需要使用一个子匹配项，还是可以通过VBA使用多个子匹配项？

编辑：

GetDelay.Pattern = is sadly currently in (([A-Za-z]*)(\s|-)){1,3}(.|\s)*?undetermined"
GetDelay.IgnoreCase = True
GetDelay.Multiline = True
...
If GetDelay.TEst(MailBody) Then
        Set m = GetDelay.Execute(MailBody)
        If m.Item(0).SubMatches.Count > 0 Then
            OrtBody = m.Item(0).SubMatches.Item(0).SubMatches.Item(0) + " " + m.Item(0).SubMatches.Item(0).SubMatches.Item(1)  'Error 424 comes here - Object required
            If GetReason.TEst(AbweichungsmailBody) Then
                Set m = GetReason.Execute(AbweichungsmailBody)
                If m.Item(0).SubMatches.Count > 0 Then
                    Reason= m.Item(0).SubMatches.Item(0)
                Else
                    Reason= "Error!"
                End If
            Else
                Reason = "Keine Angabe gefunden!"
            End If
        Else
            thisfunction= False
        End If
    Else
        thisfunction= False
    End If

Answer 1

捕获重复子表达式（在您的情况下(([A-Za-z]*)(\\s|-)){1,3} ）中的结果在任何语言中都会变得棘手。 我建议以下是一种更简单的方法：

1）用一个简单的Regex匹配您感兴趣的全部部分：

GetDelay.Pattern = "is sadly currently in (.*?) undetermined"

2）一旦您匹配了感兴趣的部分，请执行进一步的分析以获得所需的内容。 您可以在此步骤中使用另一个RegEx，尽管我认为您可以只使用带有空格作为分隔符的Split() 。