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

原创 2004年09月02日 19:50:00
    正则表达式最早是由数学家Stephen Kleene于1956年提出,他是在对自然语言的递增研究成果的基础上提出来的。具有完整语法的正则表达式使用  在字符的格式匹配方面上,后来被应用到熔融信息技术领域。
    正则表达式并非一门专用语言,但它可用于在一个文件或字符里查找和替代文本的一种标准。许多程序中都使用了正则表达式,但是作为我常用的编程工具之一的Delphi却没有直接提供对正则表达式的支持。郁闷之下,在网上进行了一番搜索研究之后,找到了以下几种在Delphi中使用正则表达式的方法。
    为了清楚的说明问题,我们以下面的例子来描述:
    已知网址:http://www.xcolor.cn/page1.htm
    求:链接中的文件名
    正确答案为:page1.htm

方法一 使用微软ScriptControl控件

  1. 1. 编写一个脚本文件(test.vbs),里面包含要使用的正则表达式函数
function GetUrlFile(Url)
    Set RegObject = New RegExp
    With RegObject
    .Pattern = "/w+/./w+(?!.)"
    .IgnoreCase = True
    .Global = True
    End With
    Set matchs =  RegObject.Execute(Url)
    If matchs.Count > 0 Then
        For Each mach in matchs
            GetUrlFile=mach.value
        Next
    End If
    Set RegObject = nothing
end function

2. 下载最新版的"Microsoft(r) Windows(r) Script"

你可以在以下地址找到下载


3 . 安装Microsoft(r) Windows(r) Script

Visual Basic(r) Script Edition (VBScript.) Version 5.6,
JScript(r) Version 5.6, Windows Script Components,
Windows Script Host 5.6,
Windows Script Runtime Version 5.6.将被安装到你的系统中

4 .在Delphi中导入MsScript.ocx ,生成TScriptControl控件

5.使用以下代码调用TScriptControl

procedure TForm1.Button2Click(Sender: TObject);
var
a: OleVariant;
begin

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


end;

function TForm1.CallFunction(const FunctionName: string;
const Params: oleVariant): OleVariant;
var
Sarray: PSafeArray;
begin


try
// 转化为安全数组
Sarray := PSafeArray(TVarData(Params).VArray);
// 调用函数
Result := ScriptControl1.Run(FunctionName, Sarray);
except
on E: Exception do
begin
end;
end;

end;

 
方法二 使用微软RegExp
  1. 1. 下载并安装最新版的"Microsoft(r) Windows(r) Script"
  1. 2. RegExp包含在vbscript.dll中所以我们必须先注册regsvr32 vbscript.dll

注(安装了Ie5后默认已经包含该控件)

  1. 3.在Delphi中引入"Microsoft VBScript Regular Expressions"

主菜单->Project->Import type library->在列表中选择"Microsoft VBScript Regular Expressions"

生成TRegExp控件

  1. 4.使用以下代码调用TRegExp控件

procedure TForm1.Button1Click(Sender: TObject);
var

machs: IMatchCollection;
Matchs: Match;
submatch: ISubMatches;
i, j: integer;
begin
RegExp1.Global := true;
RegExp1.Pattern := '/w+/./w+(?!.)';
RegExp1.IgnoreCase := true;
machs := RegExp1.Execute('http://www.xcolor.cn/dd/page1.htm') as
IMatchCollection;
for i := 0 to machs.Count - 1 do
begin
Matchs := machs.Item[i] as Match;
submatch := Matchs.SubMatches as ISubMatches;
memo1.Lines.Add(matchs.Value);
//for j:=0 to submatch.Count -1 do
// memo1.Lines.Add(submatch.Item[j])
end;


end;

Delphi 中经常使用的正则表达式

在 Delphi 中使用正则表达式, 目前 PerlRegEx 应该是首选, 准备彻底而细致地研究它.  官方网站: http://www.regular-e xpressions.info/delp...
  • wozengcong
  • wozengcong
  • 2014年01月19日 16:18
  • 2307

Java正则表达式的基本用法

Java正则表达式主要有两个类:Pattern和Matcher。 Pattern表示正则表达式的编译形式。 Matcher表示执行匹配操作的引擎。 下面通过几个例子展示两个类的使用方法。 ...
  • zhangzeyuaaa
  • zhangzeyuaaa
  • 2016年01月12日 15:28
  • 3346

在SQL语句中使用正则表达式

MySQL利用REGEXP命令提供给用户扩展的正则表达式功能,REGEXP实现的功能类似UNIX上的GREP和SED的功能,并且REGEXP在进行模式匹配时是区分大小写的。熟悉并掌握REGEXP的功能...
  • jiuba5
  • jiuba5
  • 2015年12月30日 23:26
  • 2167

Delphi正则表达式使用方法(TPerlRegEx)

目前主流的delphi下的正则表达式,应该是 PerlRegEx 。       官方网站: http://www.regular-expressions.info/delphi.html  ...
  • my98800
  • my98800
  • 2016年11月09日 08:48
  • 363

Delphi 中经常使用的正则表达式

====================================================== 注:本文源代码点此下载 =============================...
  • javazhuanzai
  • javazhuanzai
  • 2012年01月15日 03:53
  • 189

Delphi 正则表达式控件(掩码编辑框MaskEdit)的使用方法

一、基础知识简介:                     掩码编辑框(MaskEdit)是一种特殊的编辑框。使用它可以设计出许多复杂的输入格式。在选用 MaskEdit之后,需要为它设计一个输入...
  • xiongmao000738
  • xiongmao000738
  • 2011年09月27日 21:01
  • 1013

在Delphi7中使用RegExpr类(正则表达式类)

在 Delphi 中是没有自带的正则表达式库的,在网上能找到的用于 Delphi 的正则表达式类大体上有两个,分别是 PerlRegEx 和 RegExpr。前者相当强大,但发布程序时需要带上他的一个...
  • god00
  • god00
  • 2011年09月09日 16:18
  • 783

delphi 正则表达式类 TRegExpr

  • 2017年12月14日 15:25
  • 113KB
  • 下载

TPerlRegEx〖Delphi下的正则表达式组件,含全部源码〗

  • 2014年11月18日 09:10
  • 114KB
  • 下载

TPerlRegEx[Delphi正则表达式]

  • 2010年11月01日 15:24
  • 108KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:如何在Delphi中使用正则表达式
举报原因:
原因补充:

(最多只允许输入30个字)