如何在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]）

結尾;

結尾;