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

1. 编写一个脚本文件(test.vbs)，里面包含要使用的正则表达式函数

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;

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);

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有