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
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;
主菜单->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;