在Delphi中使用正则表达式

//参考地址：http://www.wangchao.net.cn/bbsdetail_41190.html

 

一、微软RegExp

      1. 下载并安装最新版的"Microsoft(r) Windows(r) Script"
　　2. RegExp包含在vbscript.dll中所以我们必须先注册regsvr32 vbscript.dll
　　注(安装了Ie5后默认已经包含该控件)
　　3.在Delphi中引入"Microsoft VBScript Regular Expressions"
　　主菜单->Project->Import type library->在列表中选择"Microsoft VBScript Regular Expressions"
　　生成TRegExp控件
　　4.使用以下代码调用TRegExp控件

二、代码：

      procedure TForm1.Button1Click(Sender: TObject);
　　var
　　machs: IMatchCollection;
　　Matchs: Match;
　　submatch: ISubMatches;
　　i, j: integer;
　　begin
　　RegExp1.Global := true;
　　RegExp1.Pattern := '/w+/./w+(?!.)';
　　RegExp1.IgnoreCase := true;
　　machs := RegExp1.Execute('http://www.xcolor.cn/dd/page1.htm') as
　　IMatchCollection;
　　for i := 0 to machs.Count - 1 do
　　begin
　　Matchs := machs.Item[i] as Match;
　　submatch := Matchs.SubMatches as ISubMatches;
　　memo1.Lines.Add(matchs.Value);
　　//for j:=0 to submatch.Count -1 do
　　// memo1.Lines.Add(submatch.Item[j])
　　end;
　　end;