Delphi 正则表达式语法(9): 临界匹配 - 也叫"预搜索"与"反向预搜索"-优快云博客

本文通过四个实际案例展示了如何使用正则表达式进行精确匹配与替换操作，包括匹配指定版本的Delphi软件名称及数值，并介绍了前瞻(?=)、否定前瞻(?!)、回溯(?<=)与否定回溯(?<!)等高级用法。

//匹配右边
var
reg: TPerlRegEx;
begin
reg := TPerlRegEx.Create(nil);

reg.Subject := 'Delphi 6; Delphi 7; Delphi 2007; Delphi Net';
reg.RegEx := 'Delphi (?=2007)'; // ?=
reg.Replacement := '◆';
reg.ReplaceAll;

ShowMessage(reg.Subject); //返回: Delphi 6; Delphi 7; ◆2007; Delphi Net

FreeAndNil(reg);
end;

//不匹配右边
var
reg: TPerlRegEx;
begin
reg := TPerlRegEx.Create(nil);

reg.Subject := 'Delphi 6; Delphi 7; Delphi 2007; Delphi Net';
reg.RegEx := 'Delphi (?!2007)'; // ?!
reg.Replacement := '◆';
reg.ReplaceAll;

ShowMessage(reg.Subject); //返回: ◆6; ◆7; Delphi 2007; ◆Net

FreeAndNil(reg);
end;

//匹配左边
var
reg: TPerlRegEx;
begin
reg := TPerlRegEx.Create(nil);

reg.Subject := '111, 222, ￥333, ￥444';
reg.RegEx := '(?<=￥)/d{3}'; // ?<=
reg.Replacement := '◆';
reg.ReplaceAll;

ShowMessage(reg.Subject); //返回: 111, 222, ￥◆, ￥◆

FreeAndNil(reg);
end;

//不匹配左边
var
reg: TPerlRegEx;
begin
reg := TPerlRegEx.Create(nil);

reg.Subject := '111, 222, ￥333, ￥444';
reg.RegEx := '(?<!￥)/d{3}'; // ?<!
reg.Replacement := '◆';
reg.ReplaceAll;

ShowMessage(reg.Subject); //返回: ◆, ◆, ￥333, ￥444
FreeAndNil(reg);
end;