Delphi 正则表达式之TPerlRegEx 类的属性与方法(4): Replace

最新推荐文章于 2019-07-06 21:24:03 发布

最新推荐文章于 2019-07-06 21:24:03 发布 · 86 阅读

本文通过一个具体的示例展示了如何使用Perl正则表达式进行字符串的查找与替换操作。包括了ReplaceAll函数与Replace函数的区别及用法，适用于需要进行批量字符串替换的场景。

// Replace
var
  reg: TPerlRegEx;
begin
  reg := TPerlRegEx.Create(nil);

  reg.RegEx   := 'ab';
  reg.Replacement := '◆';

  reg.Subject := 'ababab';
  reg.ReplaceAll;
  ShowMessage(reg.Subject); //返回: ◆◆◆


  reg.Subject := 'ababab';
 //下面四行程序, 相当于 reg.ReplaceAll;
while reg.MatchAgain do
begin
    reg.Replace;
end;

  ShowMessage(reg.Subject); //返回: ◆◆◆

  FreeAndNil(reg);
end;
{
  ReplaceAll 函数返回的是 Boolean;
  Replace 函数返回的是 Replacement 的值, 当然是不能赋值的, 它仅仅是返回值.
}