Delphi 正则表达式语法(3): 匹配范围

// [A-Z]: 匹配所有大写字母

var

  reg: TPerlRegEx;

begin

  reg := TPerlRegEx.Create(nil);



  reg.Subject := 'CodeGear Delphi 2007 for Win32';

  reg.RegEx   := '[A-Z]';

  reg.Replacement := '◆';

  reg.ReplaceAll;



  ShowMessage(reg.Subject); //返回: ◆ode◆ear ◆elphi 2007 for ◆in32



  FreeAndNil(reg);

end;


// [a-z]: 匹配所有小写字母

var

  reg: TPerlRegEx;

begin

  reg := TPerlRegEx.Create(nil);



  reg.Subject := 'CodeGear Delphi 2007 for Win32';

  reg.RegEx   := '[a-z]';

  reg.Replacement := '◆';

  reg.ReplaceAll;



  ShowMessage(reg.Subject); //返回: C◆◆◆G◆◆◆ D◆◆◆◆◆ 2007 ◆◆◆ W◆◆32



  FreeAndNil(reg);

end;


// [0-9]: 匹配所有数字

var

  reg: TPerlRegEx;

begin

  reg := TPerlRegEx.Create(nil);



  reg.Subject := 'CodeGear Delphi 2007 for Win32';

  reg.RegEx   := '[0-9]';

  reg.Replacement := '◆';

  reg.ReplaceAll;



  ShowMessage(reg.Subject); //返回: CodeGear Delphi ◆◆◆◆ for Win◆◆



  FreeAndNil(reg);

end;


//匹配几个范围

var

  reg: TPerlRegEx;

begin

  reg := TPerlRegEx.Create(nil);



  reg.Subject := 'CodeGear Delphi 2007 for Win32';

  reg.RegEx   := '[C-Do-p0-2]'; //大写字母: C-D; 小写字母: o-p; 数字: 0-2

  reg.Replacement := '◆';

  reg.ReplaceAll;



  ShowMessage(reg.Subject); //返回: ◆◆deGear ◆el◆hi ◆◆◆7 f◆r Win3◆



  FreeAndNil(reg);

end;


//匹配 [] 中的所有

var

  reg: TPerlRegEx;

begin

  reg := TPerlRegEx.Create(nil);



  reg.Subject := 'CodeGear Delphi 2007 for Win32';

  reg.RegEx   := '[Ci2]'; //大写字母: C; 小写字母: i; 数字: 2

  reg.Replacement := '◆';

  reg.ReplaceAll;



  ShowMessage(reg.Subject); //返回: ◆odeGear Delph◆ ◆007 for W◆n3◆



  FreeAndNil(reg);

end;


// ^ 排除 [] 中的所有

var

  reg: TPerlRegEx;

begin

  reg := TPerlRegEx.Create(nil);



  reg.Subject := 'CodeGear Delphi 2007 for Win32';

  reg.RegEx   := '[^Ci0-2]'; //这里排除了大写字母: C; 小写字母: i; 数字: 0-2

  reg.Replacement := '◆';

  reg.ReplaceAll;



  ShowMessage(reg.Subject); //返回: C◆◆◆◆◆◆◆◆◆◆◆◆◆i◆200◆◆◆◆◆◆◆i◆◆2



  FreeAndNil(reg);

end;

你可能感兴趣的:(Delphi)