//貪婪匹配
var
reg: TPerlRegEx;
begin
reg := TPerlRegEx.Create(nil);
reg.Subject := '<html><head><title>標題</title></head><body>內容</body></Html>';
reg.RegEx := '<.*>'; //將會全部匹配, 因為兩頭分別是: < 和 >
reg.Replacement := '◆';
reg.ReplaceAll;
ShowMessage(reg.Subject); //返回: ◆
FreeAndNil(reg);
end;
//非貪婪匹配
var
reg: TPerlRegEx;
begin
reg := TPerlRegEx.Create(nil);
reg.Subject := '<html><head><title>標題</title></head><body>內容</body></Html>';
reg.RegEx := '<.*?>'; // *? 是非貪婪匹配方法之一, 將匹配每組 <>
reg.Replacement := '◆';
reg.ReplaceAll;
ShowMessage(reg.Subject); //返回: ◆◆◆標題◆◆◆內容◆◆
FreeAndNil(reg);
end;
//更多貪婪與非貪婪匹配對照:
貪婪匹配 非貪婪匹配 描述 ? ?? 0 個或 1 個 + +? 1 個或多個 * *? 0 個或多個 {n} {n}? n 個 {n,m} {n,m}? n - m 個 {n,} {n,}? n 個或多個
