كيفية استخدام التعبيرات العادية في دلفي

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

： ： ： ：

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

： ：链接中的文件名

： ： Page1.htm

2. 下载最新版的 "برنامج النصي Microsoft (R) Windows (R)" 你可以在以下地址找到下载

3. 安装 Microsoft (R) Windows (R) ScriptVisual Basic (R) Script Edition (VBSCript.) الإصدار 5.6 ،

Jscript (R) الإصدار 5.6 ، مكونات Windows Script ،

مضيف Windows Script 5.6 ،

إصدار وقت تشغيل Windows Script 5.6. 将被安装到你的系统中

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

5. 使用以下代码调用 tscriptcontrol

الإجراء tform1.button2Click (المرسل: tobject) ؛

var

ج: الأولوية.

يبدأ

memo2.lines.loadfromfile ('test.vbs') ؛ scriptControl1.Language: = 'vbscript' ؛

ScriptControl1.AddCode (سلسلة (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 Params: Olevariant): Olevariant ؛

var

ساراي: 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 العادية"

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

الإجراء tform1.button1click (المرسل: tobject) ؛

var

ماش: imatchcollection ؛

المباريات: المباراة ؛

الانخفاض الفرعي: isubmatches.

أنا ، ي: عدد صحيح ؛

يبدأ

regexp1.global: = true ؛

regexp1.pattern: = '/w+/./w+(؟!.)' ؛

regexp1.ignorecase: = true ؛

Machs: = regexp1.execute ('http://www.xcolor.cn/dd/page1.htm') as

ImatchCollection ؛

لأني: = 0 إلى machs.count - 1 افعل

يبدأ

المباريات: = machs.item [i] كما تطابق ؛

submatch: = matchs.submatches كما isubmatches ؛

memo1.lines.add (Matchs.value) ؛

// لـ J: = 0 إلى submatch.count -1 do

// memo1.lines.add (submatch.item [j])

نهاية؛

نهاية؛