Delphi中使用RegExpr单元进行匹配与替换操作

      在Delphi本身不支持正则表达式，但是有许多第三方软件提供了相关组件，通常的有TPerlRegEx和RegExpr，可以在http://RegExpStudio.com中下载此模块，使用时无需安装只要在工程的路径中的search项指定即可（Projects->Options的Directories/Conditions的search项）

     下面为设计的窗体：

   

其中匹配和替换的代码如下

//匹配

procedure TForm1.Button1Click(Sender: TObject);
var
  Rgr: TRegExpr;
begin
  Rgr := TRegExpr.Create;
  Rgr.Expression := ':(\S+),';   //输入333 :1,  :3,  输出333 "1"  "3"

  Edit2.Text := Rgr.Replace(Edit1.Text, '"$1"', True);  //最后一个参数必须指定为True,否则不按组匹配，会得到333 "$1"  "$1" 

  Rgr.Free;
end;

//替换,将:xxx,替换为"xxx"

procedure TForm1.Button2Click(Sender: TObject);
var
  Rgr: TRegExpr;
begin
  Rgr := TRegExpr.Create;
  Rgr.Expression := ':(\S+),';  //输入333 :1,  :3,  输出   1   3
  try
    if Rgr.Exec(Edit1.Text) then
      repeat
        Edit2.Text :=Edit2.Text+'   '+Rgr.Match[1];  //Match[1]改为Match[0]后输出   :1   :3
      until not Rgr.ExecNext;
  finally
    Rgr.Free;
  end;
end;

end.

问题1：

如果我想匹配 AAA  :B,  :"C",  :D,  :"E",  然后将:B, :D,替换为:"B", :"D",  该如何实现呢？

 

解决方法： 

1.字符中的:B, 和:D, ，可以用'(:)(\w+)(,)'，共分为三个组，分别为$1,$2,$3;

2.替换用Rgr.Replace(Edit1.Text, '$1"$2"$3', True);

这样又会产生新的问题，即对于汉字无法替换，如AAA  :B,  :"C",  :我们,  :"E",  应用上面的规则只能替换为

AAA  :"B",  :"C",  :我们,  :"E",所以此处替换规则应该是

(1)以:号开始  

(2)以,号结束

(3)中间为非"号的字符

新的匹配规则为 用'(:)([^"]+)(,)'代码为：

procedure TForm1.Button2Click(Sender: TObject);
var
   Rgr: TRegExpr;
begin
   Edit2.Text := '';
   Rgr := TRegExpr.Create;
   //Rgr.Expression :='(:)(\w+)(,)';       //不能匹配汉字
   Rgr.Expression := '(:)([^"]+)(,)';    //(:)对应$1  (\S+)对应$2   (,)对应$3
   Edit2.Text := Rgr.Replace(Edit1.Text, '$1"$2"$3', True);
   Rgr.Free;
end;

 

问题2：

不分大小写的匹配,  该如何实现呢？比如我想匹配aAA或aAa

  

 

解决方法：

可用 Rgr.Expression := '(?i)(aA)';  //(?i)表示不区分大小写