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

正则表达式并非一门专用语言，但它可用于在一个文件或字符里查找和替代文本的一种标准。许多程序中都使用了正则表达式，但是作为我常用的编程工具之一的delphi却没有直接提供对正则表达式的支持。郁闷之下，在网上进行了一番搜索研究之后，找到了以下几种在delphi中使用正则表达式的方法。

为了清楚的说明问题，我们以下面的例子来描述：：

已知网址： http：//www.xcolor.cn/page1.htm

求：链接中的文件名

： page1.htm

2。下载最新版的“ Microsoft（R）Windows（R）脚本”你可以在以下地址找到下载

3。 安装Microsoft（R）Windows（R）脚本Visual Basic（R）脚本版（VBScript。）版本5.6，

JScript（R）5.6版，Windows脚本组件，

Windows脚本主机5.6，

Windows脚本运行时版本5.6。

4。在delphi中导入msscript.ocx，生成tscriptControl控件

5.使用以下代码调用tscriptControl

过程tform1.button2Click（发件人：tobject）;

var

答：Olevariant；

开始

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

结尾;函数tform1.callFunction（const functionName：string;

const参数：olevariant）：olevariant;

var

Sarray：Psafearray；

开始

尝试

//转化为安全数组

sarray：= psafearray（tvardata（params）.varray）;

//调用函数

结果：= scriptControl1.run（functionName，sarray）;

除了

在E：例外

开始

结尾;

结尾;

结尾;

1。下载并安装最新版的“ Microsoft（R）Windows（R）脚本”

2。regexp包含在vbscript.dll中所以我们必须先注册regsvr32 vbscript.dll

3.在delphi中引入“ Microsoft vbscript Priorder表达式”

4. tregexp控件

过程tform1.button1Click（发件人：tobject）;

var

MACHS：iMatchCollection;

火柴：比赛；

subsatch：isubMatches;

I，J：Integer;

开始

Regexp1.global：= true;

Regexp1.pattern：='/w+/。/w+（？！。）';

regexp1.ignorecase：= true;

马赫斯：= regexp1.execute（'http://www.xcolor.cn/dd/page1.htm'）as

iMatchCollection;

对于i：= 0到马赫。计数-1做

开始

匹配：= machs.item [i]作为匹配；

submatch：= matchs.submatches as isubMatches;

memo1.lines.Add（MatchS.Value）;

// for J：= 0 to submatch.Count -1做

// memo1.lines.Add（subbatch.item [j]）

结尾;

结尾;