如何在Delphi中使用正则表达式
2006-02-04 13:47:53 来源:WEB开发网
核心提示: 正则表达式最早是由数学家Stephen Kleene于1956年提
正则表达式最早是由数学家Stephen Kleene于1956年提出,他是在对自然语言的递增研究成果的基础上提出来的。具有完整语法的正则表达式使用 在字符的格式匹配方面上,后来被应用到熔融信息技术领域。 正则表达式并非一门专用语言,但它可用于在一个文件或字符里查找和替代文本的一种标准。许多程序中都使用了正则表达式,但是作为我常用的编程工具之一的Delphi却没有直接提供对正则表达式的支持。郁闷之下,在网上进行了一番搜索研究之后,找到了以下几种在Delphi中使用正则表达式的方法。 为了清楚的说明问题,我们以下面的例子来描述: 已知网址:http://www.xcolor.cn/page1.htm 求:链接中的文件名 正确答案为:page1.htm 方法一 使用微软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) ScriptVisual 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; |
|
赞助商链接