RegEx 匹配 VB.NET 选择大小写，不带其他大小写

Question

我正在寻找一个正则表达式，它将找到其中没有 Case Else 的 Select Case 语句。

这是我到目前为止所想到的，

(?sm)^\s*Select Case.*(?<!^\s*Case Else.*)End Select

除了可能有嵌套语句的情况之外，这个效果非常好。

在我尝试使用平衡组时，我想出了以下

Select Case(?>Select Case(?<DEPTH>)|End Select(?<-DEPTH>)|.?)*?(?(DEPTH)(?!))End Select

正确找到选择案例/结束选择的平衡组的方法，但我很难让它与 (?

下面是一些示例数据：

Select Case
 Case :
  Select Case
   Case : Something
  End Select
  Case Else : SomethingElse
End Select

在这种情况下，它应该只匹配内部 Select Case，因为外部有它的 Case Else

Select Case
 Case :
  Select Case
   Case : Something
   Case Else : SomethingElse
  End Select
End Select

应该匹配整个块，因为内部有 Else 但外部没有。

Select Case
 Case :
  Select Case
   Case : Something
   Case Else : SomethingElse
  End Select
  Case Else : SomethingElseOutter
End Select

不应匹配，因为内部和外部选择都有 Case Else

Answer 1

正则表达式

^[ \t]*Select[ ]Case.*\n                    # Start of 'Select Case' statement
(?>                                         # REPEAT as few as possible
    (?>[ \t]*)                              #   whitespace at beginning of line
    (?>                                     #   And
        (?<nested>Select[ ]Case)            #       there's a nested Select (+1 balancing group)
    |                                       #     Or
        (?(nested)                          #       If inside a nested statement
            (?<-nested>End[ ]Select)?       #           match 'End Select' (-1 balancing group)
        |                                   #       Else
            (?!Case[ ]Else)                 #           it can't match a 'Case Else'
        )                                   #
    )                                       #
    .*\n                                    #   Consume the whole line (go to next line)
)*?                                         # END REPEAT
(?(nested)(?!)|                             # If inside a nested statement, it can't match
[ \t]*End[ ]Select)                         # if outer statement, match the 'End Select'

一行：

^[ \t]*Select Case.*\n(?>(?>[ \t]*)(?>(?<nested>Select Case)|(?(nested)(?<-nested>End Select)?|(?!Case Else))).*\n)*?(?(nested)(?!)|[ \t]*End Select)

在 regexstorm.net 上测试

---

描述

正则表达式匹配 Select Case，然后尝试消耗尽可能少的行尽可能直到找到 End Select。对于每一行：

• 如果有嵌套的 Select Case，它会在 (?Select[ ]Case)
• (?(nested)< 中创建一个 Capture /code>true|false) 是一个 IF 子句：
  • 如果有nested的捕获（即在嵌套语句内），它可以在(?<-nested>End[ ]Select)?时减去捕获匹配（可选组）。
  • 或者，如果没有捕获（即在主语句中），则该行不应是 Else 语句 (?!Case[ ]Else)。

这是平衡组背后的逻辑。如果它与嵌套的 Select Case 匹配，则会创建一个新的捕获，如果它与 End Select 匹配，则会减去最后一个捕获。因此，仅在外部组中不会存储捕获。

我们在模式的末尾使用 (?(nested)(?!)|[ \t]*End[ ]Select)。如果有捕获，它会转到 (?!) （永远无法匹配），失败并回溯以继续消耗更多行。但如果没有捕获，它可以匹配 [ \t]*End[ ]Select （或回溯并消耗更多行）。

就是这样。

但请注意，如果有两个没有 Case Else 的 Select 语句嵌套在另一个语句中，则只有外部语句会匹配。如果您有兴趣匹配两者，请

(?=(previous pattern))

使用 Match.Groups(1) 来匹配文本。