程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi中正則表達式語法(5) 邊界

Delphi中正則表達式語法(5) 邊界

編輯:Delphi
// \b 單詞邊界
var
  reg: TPerlRegEx;
begin
  reg := TPerlRegEx.Create(nil);
 
  reg.Subject := 'Delphi Delphi2007 MyDelphi'; 
  reg.RegEx   := '\bDelphi\b'; //前後邊界
  reg.Replacement := '◆';
  reg.ReplaceAll;
 
  ShowMessage(reg.Subject); //返回: ◆ Delphi2007 MyDelphi
 
  FreeAndNil(reg);
end;
 
// \b 單詞邊界: 左邊界
var
  reg: TPerlRegEx;
begin
  reg := TPerlRegEx.Create(nil);
 
  reg.Subject := 'Delphi Delphi2007 MyDelphi'; 
  reg.RegEx   := '\bDelphi'; //左邊界
  reg.Replacement := '◆';
  reg.ReplaceAll;
 
  ShowMessage(reg.Subject); //返回: ◆ ◆2007 MyDelphi
 
  FreeAndNil(reg);
end;
 
// \b 單詞邊界: 右邊界
var
  reg: TPerlRegEx;
begin
  reg := TPerlRegEx.Create(nil);
 
  reg.Subject := 'Delphi Delphi2007 MyDelphi'; 
  reg.RegEx   := 'Delphi\b'; //右邊界
  reg.Replacement := '◆';
  reg.ReplaceAll;
 
  ShowMessage(reg.Subject); //返回: ◆ Delphi2007 My◆
 
  FreeAndNil(reg);
end;
 
// \B 非單詞邊界
var
  reg: TPerlRegEx;
begin
  reg := TPerlRegEx.Create(nil);
 
  reg.Subject := 'Delphi MyDelphi2007 MyDelphi';
  reg.RegEx   := '\BDelphi\B'; //現在只有 MyDelphi2007 中的 Delphi 屬於非單詞邊界
  reg.Replacement := '◆';
  reg.ReplaceAll;
 
  ShowMessage(reg.Subject); //返回: Delphi My◆2007 MyDelphi
 
  FreeAndNil(reg);
end;
 
// ^ 行首
var
  reg: TPerlRegEx;
begin
  reg := TPerlRegEx.Create(nil);
 
  reg.Subject := 'Delphi Delphi2007 MyDelphi';
  reg.RegEx   := '^Del'; //匹配在行首的 Del
  reg.Replacement := '◆';
  reg.ReplaceAll;
 
  ShowMessage(reg.Subject); //返回: ◆phi Delphi2007 MyDelphi
 
  FreeAndNil(reg);
end;
 
// \A 也標記行首
var
  reg: TPerlRegEx;
begin
  reg := TPerlRegEx.Create(nil);
 
  reg.Subject := 'Delphi Delphi2007 MyDelphi';
  reg.RegEx   := '\ADel'; //匹配在行首的 Del
  reg.Replacement := '◆';
  reg.ReplaceAll;
 
  ShowMessage(reg.Subject); //返回: ◆phi Delphi2007 MyDelphi
 
  FreeAndNil(reg);
end;
 
// $ 行尾
// www.bianceng.cn
var
  reg: TPerlRegEx;
begin
  reg := TPerlRegEx.Create(nil);
 
  reg.Subject := 'Delphi Delphi2007 MyDelphi'; 
  reg.RegEx   := 'phi$'; //匹配在行尾的 phi
  reg.Replacement := '◆';
  reg.ReplaceAll;
 
  ShowMessage(reg.Subject); //返回: Delphi Delphi2007 MyDel◆
 
  FreeAndNil(reg);
end;
 
// \Z 也標記行尾
var
  reg: TPerlRegEx;
begin
  reg := TPerlRegEx.Create(nil);
 
  reg.Subject := 'Delphi Delphi2007 MyDelphi';
  reg.RegEx   := 'phi\Z'; //匹配在行尾的 phi
  reg.Replacement := '◆';
  reg.ReplaceAll;
 
  ShowMessage(reg.Subject); //返回: Delphi Delphi2007 MyDel◆
 
  FreeAndNil(reg);
end;
 
// 測試時, \Z 不區分大小寫; \A 區分
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved