デルファイで正規表現の使用方法

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

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

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

求：链接中的文件名

正确答案为： page1.htm

2。

3。 安装Microsoft（R）Windows（R）ScriptVisual Basic（R）Script Edition（vbscript。）バージョン5.6、

JScript（R）バージョン5.6、Windowsスクリプトコンポーネント、

Windowsスクリプトホスト5.6、

Windowsスクリプトランタイムバージョン5.6。

4。

5. tscriptcontrol

手順tform1.button2click（sender：tobject）;

var

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

終わり; function tform1.callfunction（const functionname：string;

const params：olevariant）：olevariant;

var

サレイ：Psafearray;

始める

試す

//转化为安全数组

サレイ：= psafearray（tvardata（params）.varray）;

//调用函数

結果：= scriptcontrol1.run（functionname、sarray）;

を除外する

E：例外はそうします

始める

終わり;

終わり;

終わり;

1。

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

3.在delphi

4.使用以下代码调用tregexp控件

手順tform1.button1click（sender：tobject）;

var

マッハ：imatchcollection;

マッチ：マッチ;

サブマッチ：iSubMatches;

I、J：整数;

始める

regexp1.global：= true;

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

regexp1.ignorecase：= true;

マッハ：= regexp1.execute（ 'http://www.xcolor.cn/dd/page1.htm'）as

imatchCollection;

i：= 0 to machs.count -1 do

始める

マッチ：= machs.item [i] as match;

サブマッチ：= matchs.SubMatchesとしてiSubMatches。

memo1.lines.add（matchs.value）;

// j：= 0からsubmatch.count -1 do

// memo1.lines.add（submatch.item [j]）

終わり;

終わり;