正则表达式的匹配处理

正则表达式的匹配处理

由于毕业课题的原因，近日研究了异构数据的采集复制，其中涉及正则表达式的匹配问题，现将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对象。

注意：该算法只提供单行文本的匹配校验，多行文本校验，参考此方法也可方便实现！