味味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