Delphi 正则表达式之TPerlRegEx 类的属性与方法(3): Start、Stop

正则替换范围

最新推荐文章于 2025-10-13 15:51:27 发布

最新推荐文章于 2025-10-13 15:51:27 发布 · 92 阅读

本文介绍了一个使用正则表达式进行指定范围内字符串替换的例子。通过设置起始和结束位置，可以精确控制替换操作的作用范围，这对于文本处理任务非常有用。

//设定搜索范围: Start、Stop
var
  reg: TPerlRegEx;
begin
  reg := TPerlRegEx.Create(nil);

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

  reg.Start := 1;
  reg.Stop := 2;
while reg.MatchAgain do
begin
    reg.Replace;
end;
  ShowMessage(reg.Subject); //返回: ◆abab


  reg.Subject := 'ababab';
  reg.Start := 3;
  reg.Stop := 4;
while reg.MatchAgain do
begin
    reg.Replace;
end;
  ShowMessage(reg.Subject); //返回: ab◆ab


  reg.Subject := 'ababab';
  reg.Start := 5;
  reg.Stop := 6;
while reg.MatchAgain do
begin
    reg.Replace;
end;
  ShowMessage(reg.Subject); //返回: abab◆

  FreeAndNil(reg);
end;