regex - 如何使用Delphi TRegEx替换特定的捕获组？

Question

我正在尝试在 Delphi XE7 中使用 TRegex 在字符串中进行搜索和替换。

字符串看起来像这样“@FXXX(b, v,”，我想替换第二个整数值 v。例如: @F037(594,2027,-99,-99,0,0,0,0)

可能会变成 @F037(594,弗雷德,-99,-99,0,0,0,0)

我是 RegEx 的新手，但编写的这种模式似乎可以很好地找到匹配项并为“2027”(下面括号中的部分)识别正确的捕获组。这是:

@F\d{3}(\s*\d{1,5}\s*,\s*(\d{1,5})\s*,

我的问题是我无法弄清楚如何使用 Delphi TRegEx 实现仅替换捕获的组“2027”。我对 TMatch 和 TGroup 以及如何使用它们感到相当困惑。谁能建议一些示例代码？我还怀疑我不理解反向引用的概念。

这是我到目前为止所拥有的:

Uses
   RegularExpressions;

//The function that does the actual replacement
function TForm6.DoReplace(const Match: TMatch): string;
begin
  //This causes the whole match to be replaced.
  //@F037(594,2027,-99,-99,0,0,0,0) becomes  Fred-99,-99,0,0,0,0)
  //How to just replace the first matched group (ie 2027)?
  If Match.Success then
     Result := 'Fred';
end;


//Code to set off the regex replacement based on source text in Edit1 and put the result back into Memo1
//Edit1.text set to  @F037(594,2027,-99,-99,0,0,0,0)

procedure TForm6.Button1Click(Sender: TObject);

var
  regex: TRegEx;
  Pattern: string;
  Evaluator: TMatchEvaluator;

begin
  Memo1.Clear;
  Pattern := '@F\d{3}\(\s*\d{1,5}\s*,\s*(\d{1,5})\s*,';
  RegEx.Create(Pattern);
  Evaluator := DoReplace;
  Memo1.Lines.Add(RegEx.Replace(Edit1.Text, Pattern, Evaluator));
end;

Answer 1

当使用正则表达式替换时，整个匹配的内容将被替换。您可以访问整场比赛、捕获的组和命名的捕获组。

在 Delphi 中有两种不同的方法可以做到这一点。

您当前正在使用评估器，它是一个对象方法，包含要替换的内容的说明。在这个方法中，您可以访问整个比赛内容。结果将是替换字符串。如果普通正则表达式无法完成您想要在替换中执行的操作(例如增加数字、更改字符大小写)，则此方法非常有用

还有另一个重载 Replace 方法，它使用字符串作为替换。由于您想在这里进行基本的正则表达式替换，因此我建议使用它。在此字符串中，您可以反向引用匹配的模式($0 表示整个匹配，$Number 表示捕获的组，${Name} 表示命名捕获组)，还可以添加您想要的任何字符。

因此，您可以捕获要保留在组中的所有内容，然后按照 Wiktors 中的建议进行反向引用评论。当您进行单个替换时，我还建议使用类函数 TRegex.Replace 而不是创建正则表达式然后替换。

Memo1.Lines.Add(
  TRegex.Replace(
    Edit1.Text, 
    '(@F\d{3}\(\s*\d{1,5}\s*,\s*)\d{1,5}(\s*,)', 
    '$1Fred$2'));

PCRE 正则表达式还支持 \K (忽略之前匹配的所有内容)和前瞻，可用于准确捕获您想要替换的内容，例如

Memo1.Lines.Add(
  TRegex.Replace(
    Edit1.Text, 
    '@F\d{3}\(\s*\d{1,5}\s*,\s*\K\d{1,5}(?=\s*,)', 
    'Fred'));