Delphi 正则表达式语法(5): 边界-白红宇

Delphi 正则表达式语法(5): 边界

阅读量：6891 次

发布时间：2019-06-27

本文共 2337 字，大约阅读时间需要 7 分钟。

// \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;         // $ 行尾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 区分

转载于:https://my.oschina.net/hermer/blog/319625

你可能感兴趣的文章

Exceeded maximum number of retries. Exceeded max scheduling attempts 3 for instance

查看>>