正则表达式 - 匹配 BEGIN 和 END 之间的所有内容

Question

我正在尝试找出如何创建一个正则表达式来匹配过程块的第一个“BEGIN”和最后一个“END”之间的所有文本。

这是我要过滤的文本：

PROCEDURE MyFirstFunction()@12345
VAR
    TESTVAR@1 : Record 1;
    TESTVAR@2 : Record 2;
BEGIN
    // Here begins the code
    IF 1 = 1 THEN BEGIN
        IF 2 <> 1 THEN BEGIN
            MESSAGE('2 is not equal to 1');
        END;
        MESSAGE('1 is equal to 1');
    END;
END;

PROCEDURE MySecondFunction()@123456
VAR
    TESTVAR@1 : Record 1;
    TESTVAR@2 : Record 2;
BEGIN
    // Here begins the code
    IF 1 = 1 THEN BEGIN
        IF 2 <> 1 THEN BEGIN
            MESSAGE('2 is not equal to 1');
        END;
        MESSAGE('1 is equal to 1');
    END;
END;

PROCEDURE MyThirdFunction()@123457
VAR
    TESTVAR@1 : Record 1;
    TESTVAR@2 : Record 2;
BEGIN
    // Here begins the code
    IF 1 = 1 THEN BEGIN
        IF 2 <> 1 THEN BEGIN
            MESSAGE('2 is not equal to 1');
        END;
        MESSAGE('1 is equal to 1');
    END;
END;

我已经尝试过使用递归正则表达式，但这不起作用。

这是我处理的正则表达式：

BEGIN(((?!BEGIN|END;).)|(?R))*END;

但我只得到第一个函数的第二个开头。

这里是 regex101.com 的链接，用于测试正则表达式： https://regex101.com/r/ZoBm6h/1

Answer 1

我认为你想要的负前瞻逻辑是它应该贪婪地消耗BEGIN 之后的所有内容，直到到达最后一个END，前提是它也没有看到文本PROCEDURE，这意味着它是走得太远了，已经进入下一个程序块了。

BEGIN((?!PROCEDURE).)*END;

Demo

Answer 2

如果你想匹配所有块，你也可以使用这个Regex：

BEGIN((?!^(?!PROCEDURE)$).)*END