如何在Delphi中使用正则表达式

正则表达式最早是由数学家Stephen Kleene于1956年提出，他是在对自然语言的递增研究成果的基础上提出来的。具有完整语法的正则表达式使用  在字符的格式匹配方面上，后来被应用到熔融信息技术领域。
    正 则表达式并非一门专用语言，但它可用于在一个文件或字符里查找和替代文本的一种标准。许多程序中都使用了正则表达式,但是作为我常用的编程工具之一的 Delphi却没有直接提供对正则表达式的支持。郁闷之下，在网上进行了一番搜索研究之后，找到了以下几种在Delphi中使用正则表达式的方法。

 

 

方法一 使用微软ScriptControl控件 1. 编写一个脚本文件(test.vbs)，里面包含要使用的正则表达式函数
function GetUrlFile(Url)      Set RegObject = New RegExp      With RegObject      .Pattern = "/w+/./w+(?!.)"      .IgnoreCase = True      .Global = True      End With      Set matchs =   RegObject.Execute(Url)      If matchs.Count > 0 Then          For Each mach in matchs               GetUrlFile=mach.value          Next      End If      Set RegObject = nothing end function
2. 下载最新版的"Microsoft(r) Windows(r) Script" 你可以在以下地址找到 下载
3 . 安装Microsoft(r) Windows(r) Script Visual Basic(r) Script Edition (VBScript.) Version 5.6, JScript(r) Version 5.6, Windows Script Components, Windows Script Host 5.6, Windows Script Runtime Version 5.6.将被安装到你的系统中
4 .在Delphi中导入MsScript.ocx ,生成TScriptControl控件
5.使用以下代码调用TScriptControl
procedure TForm1.Button2Click(Sender: TObject); var a: OleVariant; begin memo2.Lines.LoadFromFile('test.vbs'); ScriptControl1.Language := 'Vbscript'; ScriptControl1.AddCode(string(memo2.Text)); a := VarArrayCreate([0, 0], varVariant); a[0] := 'http://www.xolor.cn/page1.htm'; memo1.Lines.Add(CallFunction('GetUrlFile', a)); end; function TForm1.CallFunction(const FunctionName: string; const Params: oleVariant): OleVariant; var Sarray: PSafeArray; begin try // 转化为安全数组 Sarray := PSafeArray(TVarData(Params).VArray); // 调用函数 Result := ScriptControl1.Run(FunctionName, Sarray); except on E: Exception do begin end; end; end;
方法二 使用微软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;