味味A

• Delphi XE 是第一個Delphi內建regular expressions的版本。 (等好久了...)

 

• 在大部分的case中,只要use RegularExpressions unit 即可使用。

 

• RegularExpressions跟.net中system.text.regularexpressions 用法相似。

 

• Delphi XE2的Help範例個人覺得較陽春較難學習,這方面可以參考Regularexpressions msdn

 

• 支援的符號及用法說明 (因符號眾多,僅列重點常用)
  

官方網頁: http://docwiki.embarcadero.com/RADStudio/en/Regular_Expressions
msdn說明:http://msdn.microsoft.com/zh-tw/library/az24scfc.aspx 

• 做了一些範例:
  範例函數:replace,IsMatch,match,matches,split,Escape

uses RegularExpressions;

{replace:覆蓋指定條件的字串}
procedure TForm1.Button1Click(Sender: TObject);
var
 sStr: string;
 sPattern: string;
 sReplace: string;
begin
 { replace: 覆蓋符合條件的字串,為指定字串}
 sPattern := 'the';
 sStr := 'the email is the...';
 sReplace := 'The';
 ShowMessage(TRegEx.replace(sStr, sPattern, sReplace));
 // result => The email is the
end;

{IsMatch: 測試是否有符合條件的字串}
procedure TForm1.Button2Click(Sender: TObject);
var
 sStr : string;
 sPattern :string;
begin
 sPattern:='[A-Z]'; //規則=字串開頭是大寫英文字母
 sStr :='D121234567';

 if TRegEx.IsMatch(sStr, sPattern) then
 ShowMessage('match')
 else ShowMessage('not match');

 sStr :='9121234567';
 if TRegEx.IsMatch(sStr, sPattern) then
 ShowMessage('match')
 else ShowMessage('not match');
end;

{match: 可取出 符合規則的每個字串}
procedure TForm1.Button3Click(Sender: TObject);
var
 sStr: string;
 sPattern: string;
 m: TMatch;
begin
 { match: 可取出 符合規則的每個字串 }
 sPattern := '[A-Z]';
 sStr := 'A1B1C34567D';
 m := TRegEx.match(sStr, sPattern);
 while (m.Success) do begin
 ShowMessage('Found:' + m.Value + ' index:' + inttostr(m.Index));
 // 依序顯示A B C D 及位置
 m := m.NextMatch;
 end;
end;

{matchs: 可取出 符合規則的每個字串,match也可以,
 差別在執行 matches後已經將結果先存到TMatchCollection內 }
procedure TForm1.Button4Click(Sender: TObject);
var
 sStr: string;
 sPattern: string;
 matchs: TMatchCollection;
 m: TMatch;
 i: Integer;
begin
 sPattern := '[A-Z]';
 sStr := 'A1B1C34567D';

 matchs := TRegEx.Matches(sStr, sPattern);

 {兩種取出值的方法}
 Memo1.Lines.Add('[First method]----------');
 Memo1.Clear;
 for m in matchs do
 begin
 Memo1.Lines.Add(m.Value);
 end;

 Memo1.Lines.Add('[Second method]----------');
 for i := 0 to matchs.Count - 1 do
 begin
 Memo1.Lines.Add(matchs[i].Value);
 end;

end;

{Split: 指定分隔字元,取出分割後的字串 }
procedure TForm1.Button5Click(Sender: TObject);
var
 sStr: string;
 sPattern: string;
 AStr: TArray;
 sResult: string;
begin
 sPattern := '[;, ]'; // 遇到; 或, 或空白就分割
 sStr := 'John mary;Tom joe;charles,jessica';
 AStr := TRegEx.Split(sStr, sPattern);

 Memo1.Clear;
 for sResult in AStr do
 begin
 Memo1.Lines.Add(sResult); // 依序顯示 John mary Tom joe charles jessica
 end;
end;

{假設你正規化條件中有使用Escape 就必須用 Escape()包住去使用
 Escapes a minimal set of characters (\, *, +, ?, , {, [, (,), , ,., #, and white space)
 by replacing them with their escape codes.
 http://msdn.microsoft.com/en-us/library/system.text.regularexpressions.regex.escape.aspx}
procedure TForm1.Button6Click(Sender: TObject);
var
 sStr: string;
 sPattern: string;
 m: TMatch;
begin
 { 想找出 字串中被[]包住,傳回含[及]的字串
 正規化應該是寫這樣==> sPattern := '[(.*?)]';
 但[]是正規化的關鍵字,使用Escape('[') 拆散[]即可.
 }
 sStr := 'The animal [what kind?] was visible [by whom?] from the window.';

 sPattern := TRegEx.Escape('[') + '(.*?)]'; // 本應正確的正規化'[(.*?)]',但有[這個Escape

 m := TRegEx.match(sStr, sPattern);
 while (m.Success) do // 或用一句? if TRegEx.Match(txt, pattern).Success then
 begin
 ShowMessage('Found:' + m.Value + ' index:' + inttostr(m.Index));
 // 依序顯示A B C D 及位置
 m := m.NextMatch;
 end;
end;

參考網址:
http://www.cnblogs.com/del/archive/2011/03/28/1998100.html