正则表达式的匹配处理
由于毕业课题的原因,近日研究了异构数据的采集复制,其中涉及正则表达式的匹配问题,现将Windows下Delphi的处理方法说明如下,希望有用!!
uses ComObj;
function RegExpMatch(str, pattern: string): boolean;
var regcheck, rcresult: Olevariant;
begin
regcheck := CreateOleObject('vbscript.RegExp');
regcheck.Global := True;
regcheck.Pattern := pattern;
regcheck.Ignorecase := True;
rcresult := regcheck.Execute(str);
result := (rcresult.count = 1) and (rcresult.item[0].value = str);
end;
其实,道理很简单,就是引用了Microsoft 的VBScript.dll(该文件一般在系统目录下可以找到,否则,在微软的网站上也可以下载到)中的RegExp对象。
注意:该算法只提供单行文本的匹配校验,多行文本校验,参考此方法也可方便实现!