NET RegEx Block in Text finden

	Anderer Code in Varianten

    PROCEDURE EineProzedur@1234567();
    VAR
      Variable1@8888888888 : Integer;
      Variable2@9999999999 : Code[20];
    BEGIN
      IF Variable1 > 0 THEN
        EXIT;
      IF NOT Variable2 = 'TEST'  THEN  
        EXIT;
      END;
    END;
	
	Auch anderer Code in Varianten

PROCEDURE (.*?)@.*?;\r(.*?\n\s{4}END;)\r

    Private Function FindProcedure(TextToFind As String) As Dictionary(Of String, String)
        Dim ReturnDict As New Dictionary(Of String, String)
        Dim pattern As String = "PROCEDURE (.*?)@.*?;\r(.*?\n\s{4}END;)\r"  
        Dim RegEx1 As New RegularExpressions.Regex(pattern, RegularExpressions.RegexOptions.IgnoreCase Or RegularExpressions.RegexOptions.Singleline)
        Dim matches As MatchCollection = Regex.Matches(TextToFind, pattern)
        For Each match As Match In matches
            ReturnDict.Add(match.Groups(0).Value, match.Groups(1).Value)
        Next
        Return ReturnDict
    End Function