Delphi 正則表達式語法(9): 臨界匹配 - 也叫"預搜索"與"反向預搜索"

//匹配右邊 varreg: TPerlRegEx; beginreg := 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 NetFreeAndNil(reg); end;

---

//不匹配右邊 varreg: TPerlRegEx; beginreg := 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; ◆NetFreeAndNil(reg); end;

---

//匹配左邊 varreg: TPerlRegEx; beginreg := 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;

---

//不匹配左邊 varreg: TPerlRegEx; beginreg := TPerlRegEx.Create(nil);reg.Subject := '111, 222, ￥333, ￥444';reg.RegEx? := '(?<!￥)\d{3}'; // ?<!reg.Replacement := '◆';reg.ReplaceAll;ShowMessage(reg.Subject); //返回: ◆, ◆, ￥333, ￥444FreeAndNil(reg); end;

---

轉載于:https://www.cnblogs.com/honeynm/p/4058716.html

總結

以上是生活随笔為你收集整理的Delphi 正则表达式语法(9): 临界匹配 - 也叫预搜索与反向预搜索的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。