如何在Delphi中使用php模式Regex

大多数时候，当我寻找Regex模式时，我会从一些php代码中获得它，然后我需要"tralate"到Delphi。Delphi中的大问题是php转义在Delphi中不起作用，但如果你在大多数时候忽略它们，一切都会好起来。但在下一个例子中不是这样，如果你从模式中删除/x，函数preg_match_all不会输出任何值。

这是php:中的代码

 $pattern = "/'n".
     "'s(counters?''([^)]*''))|'n".
     "'A(counters?''([^)]*''))|'n".
     "'s(['"']) ( (?:[^'"']|''''['"'])+ )(?<!'''')''3|'n".
     "'A(['"']) ( (?:[^'"']|''''['"'])+ )(?<!'''')''5|'n" .
     "'s([^'s'"']+)|'n" .
     "'A([^'s'"']+)'n".
     "/xi";
    preg_match_all($pattern, '"File " counter(File)', $matches, PREG_SET_ORDER);

这是输出：

array (size=2)
  0 => 
    array (size=7)
      0 => string '"File "' (length=7)
      1 => string '' (length=0)
      2 => string '' (length=0)
      3 => string '' (length=0)
      4 => string '' (length=0)
      5 => string '"' (length=1)
      6 => string 'File ' (length=5)
 1 => 
    array (size=2)
      0 => string ' counter(File)' (length=14)

这就是我在Delphi:中所做的

 type
 TMatches = Array of Array of String;
 var
   matches: TMatches;
 pattern :=  '/'n'+
   ''s(counters?''([^)]*''))|'n'+
   ''A(counters?''([^)]*''))|'n'+
   ''s(['"'']) ( (?:[^'"'']|''''['"''])+ )(?<!'''')''3|'n'+
   ''A(['"'']) ( (?:[^'"'']|''''['"''])+ )(?<!'''')''5|'n'+
   ''s([^'s'"'']+)|'n'+
   ''A([^'s'"'']+)'n'+
   '/xi';
   RegExMatchAll(pattern,'"Page " counter(page)',matches);

函数RegExMatchAll我从这里得到它，在大多数情况下都有效：

    procedure RegExMatchAll(Pattern: String; Subject: String; out Matches: TMatches);
    var D, sD: integer; RegEx: TRegEx; RegGroupColl: TGroupCollection; RegColl: TMatchCollection;
    begin
      RegEx := TRegEx.Create(Pattern);
      RegColl := RegEx.Matches(Subject);
      SetLength(Matches, RegColl.Count); // Numero de coincidencias [array [X]]
      for D := 0 to RegColl.Count - 1 do
      begin
         RegGroupColl := RegColl.Item[D].Groups;
         SetLength(Matches[D], RegGroupColl.Count); // Numero de grupos [array [D][sD]]
         for sD := 0 to RegGroupColl.Count - 1 do Matches[D][sD] := RegGroupColl.Item[sD].Value;
      end;
    end;

此外，我将''n更改为#13#10，这并不重要，matches数组为空。我知道这是一个困难的模式正则表达式，但如果我们最终能够解决这个问题，那将是非常棒的，有很多php正则表达式代码，如果我们能够知道如何在Delphi中使用它，这将对Delphi开发人员非常好。