Delphi正则表达式使⽤⽅法（TPerlRegEx）
⽬前主流的delphi下的正则表达式，应该是 PerlRegEx 。
安装⽅法（我使⽤的delphi版本是 delphi2007）:
1、先把解压的 TPerlRegEx ⽂件夹放在 Delphi 的根⽬录下的 Imports ⽬录中。
2、⽬前最新 For Win32 的版本是可以在 Delphi7，Delphi 2006，Delphi 2007，Delphi 2009 下使⽤。
我⽤的是2007，于是就打开了PerlRegExD2007.dpk ，在 Project Manager 窗⼝中的 PerlRegExD2007.bpl 上点击右键，执⾏ Install。这时
在 Tool Palette 的列表中已经有了 TPerlRegEx，在 JGsoft 组。
3、Tools -> Options -> Environment Options -> Delphi Options -> Library-Win32 -> Library path ->
添加路径：$(BDS)\Imports\TPerlRegEx （注：就是刚才放置的路径）。
4、打开delphi根⽬录下 Imports\TPerlRegEx\pcre ，把 pcre3.dll ⽂件复制到 C:\WINDOWS\system32 ⽂件夹下，这个⽂件夹⾥是windows 系统存放 dll ⽂
件的⼤本营。如果不复制pcre3.dll，在应⽤ TPerlRegEx 正则的时候，系统提⽰出错。
5、⽤delphi打开 Imports\TPerlRegEx ⽬录下的 pcre.pas ⽂件，到 //{$DEFINE PCRE_STATICLINK} ，把之前的注释 // 删除；
到 {$DEFINE PCRE_LINKDLL} ，把它注释掉，即改为 //{$DEFINE PCRE_LINKDLL} 。注意：这点⾮常重要，如果不这样改的话，在软件开发完成后，分
发到其他电脑上的时候，软件就会提⽰“缺少pcre3.dll错误”。这样修改的原因，是把正则直接封包到 exe ⽂件⾥，⽽不需要链
replaceall()接 pcre3.dll 了；封包进 exe，付
出的代价是软件增⼤了 100KB 左右的⼤⼩，当然⽐起必须携带 pcre3.dll来说，这是有意义的付出。
6、可以使⽤了! 直接 uses PerlRegEx 或从 Tool Palette 添加都可以。 TPerlRegEx 安装设置完成后，就可以舒⼼地使⽤了，⼀些简单的使⽤⽅法如下：
//查是否存在
var
reg: TPerlRegEx;
begin
reg := TPerlRegEx.Create(nil);
reg.Subject := 'CodeGear Delphi 2007 for Win32';
reg.RegEx := '\d';
if reg.Match then
ShowMessage('到了')
else
ShowMessage('没到');
FreeAndNil(reg);
end;
View Code
//替换⼀般字符串
var
reg: TPerlRegEx;
begin
reg := TPerlRegEx.Create(nil);
reg.Subject := '我爱DELPHI, 但Delphi不爱我!';
reg.RegEx := 'Delphi';
reg.Replacement := '◆';
reg.ReplaceAll;
ShowMessage(reg.Subject); //返回: 我爱DELPHI, 但◆不爱我!
FreeAndNil(reg);
end;
View Code
//分别显⽰到的每⼀个和总数
var
reg: TPerlRegEx;
num: Integer; //⽤ num 来计数
begin
reg := TPerlRegEx.Create(nil); reg.Subject := 'CodeGear Delphi 2007 for Win32';
reg.RegEx := '\d'; num := 0;
while reg.MatchAgain do//MatchAgain 是下⼀个
begin
ShowMessage(reg.MatchedExpression); //将分别显⽰: 2 0 0 7 3 2
Inc(num);
end;
ShowMessage(IntToStr(num)); //6 FreeAndNil(reg);
end;
View Code
//⽬标字符串的位置与长度
var
reg: TPerlRegEx;
begin
reg := TPerlRegEx.Create(nil); reg.Subject := 'CodeGear Delphi 2007 for Win32';
reg.RegEx := 'Delphi'; while reg.MatchAgain do//很明显: 本例只能到⼀个结果begin
ShowMessage(reg.MatchedExpression); //到的字符串: Delphi
ShowMessage(IntToStr(reg.MatchedExpressionOffset)); //它所在的位置: 10
ShowMessage(IntToStr(reg.MatchedExpressionLength)); //它的长度: 6
end; FreeAndNil(reg);
end;
View Code
// Matchedexpression_r 与Subexpression_rs[0]
var
reg: TPerlRegEx;
begin
reg := TPerlRegEx.Create(nil);
reg.Subject := 'CodeGear Delphi 2007';
reg.RegEx := 'Delphi';
while reg.MatchAgain do
begin
ShowMessage(reg.Matchedexpression_r); //Delphi; 这是匹配到的内容
ShowMessage(reg.Subexpression_rs[0]); //Delphi; 也可以这样显⽰匹配到的内容end;
{
Subexpression_rs 是⼀个数组:
Subexpression_rs[1] 储存第 1 个表达式匹配的内容;
Subexpression_rs[2] 储存第 2 个表达式匹配的内容;
Subexpression_rs[n] 储存第 n 个表达式匹配的内容;
Subexpression_rs[0] 储存整个表达式匹配的内容;
Matchedexpression_r 表⽰的不过是 Subexpression_rs[0].
}
FreeAndNil(reg);
end;
View Code
//提取⼦表达式匹配到的内容
var
reg: TPerlRegEx;
begin
reg := TPerlRegEx.Create(nil);
reg.Subject := 'abc A1111 BB222 CCC33 DDDD4';
reg.RegEx :='\b([A-D]+)([1-4]+)\b'; //这个表达式有两个⼦表达式构成
while reg.MatchAgain do
begin
ShowMessage(reg.Subexpression_rs[0]); //将分别显⽰: A1111 BB222 CCC33DDDD4 ShowMessage(reg.Subexpression_rs[1]); //将分别显⽰: A BB CCC DDDD
ShowMessage(reg.Subexpression_rs[2]); //将分别显⽰: 1111 222 33 4
{另外:
reg.Subexpression_rCount 是⼦表达式的个数;
reg.Subexpression_rLengths[n] 是第 n 个表达式返回的字符串的长度;
reg.Subexpression_rOffsets[n] 是第 n 个表达式返回的字符串在源字符串中的位置 }
end;
FreeAndNil(reg);
end;
View Code
//⼦表达式不能超过 MAX_SUBexpression_rS = 99 个, MAX_SUBexpression_rS 是TPerlRegEx 的内置常数. //设定搜索范围: Start、Stop
var
reg: TPerlRegEx;
begin
reg := TPerlRegEx.Create(nil);
reg.Subject := 'ababab';
reg.RegEx := 'ab';
reg.Replacement := '◆';
reg.Start := 1;
reg.Stop := 2;
while reg.MatchAgain do
begin
reg.Replace;
end;
ShowMessage(reg.Subject); //返回: ◆abab
reg.Subject := 'ababab';
reg.Start := 3;
reg.Stop := 4;
while reg.MatchAgain do
begin
reg.Replace;
end;
ShowMessage(reg.Subject); //返回: ab◆ab
reg.Subject := 'ababab';
reg.Start := 5;
reg.Stop := 6;
while reg.MatchAgain do
begin
reg.Replace;
end;
ShowMessage(reg.Subject); //返回: abab◆
FreeAndNil(reg);
end;
View Code
// Replace
var
reg: TPerlRegEx;
begin
reg := TPerlRegEx.Create(nil);
reg.RegEx := 'ab';
reg.Replacement := '◆';
reg.Subject := 'ababab';
reg.ReplaceAll;
ShowMessage(reg.Subject); //返回: ◆◆◆
reg.Subject := 'ababab';
//下⾯四⾏程序, 相当于 reg.ReplaceAll;
while reg.MatchAgain do
begin
reg.Replace;
end;
ShowMessage(reg.Subject); //返回: ◆◆◆
FreeAndNil(reg);
end;
{
ReplaceAll 函数返回的是 Boolean;
Replace 函数返回的是 Replacement 的值, 当然是不能赋值的, 它仅仅是返回值.
}
View Code
// Compile、Study
var
reg: TPerlRegEx;
begin
reg := TPerlRegEx.Create(nil);
reg.RegEx := 'ab';
reg.Options := [preCaseLess];
reg.Compile; {编译表达式}
reg.Study; {Study ⽅法会检查是否编译, 如果没有编译则执⾏ Compile}
reg.Replacement := '◆';
reg.Subject := 'abAbaB';
reg.ReplaceAll;
ShowMessage(reg.Subject); {返回: ◆◆◆}
FreeAndNil(reg);
end;
{
编译表达式, 会加快执⾏速度、降低启动速度;
如果表达式⽐较复杂⽽⼜多次执⾏, 应该先编译;
编译内容包括表达式选项.
}
View Code
// EscapeRegExChars 函数可以⾃动为特殊字符加转义符号 \
var
reg: TPerlRegEx;
begin
reg := TPerlRegEx.Create(nil);
reg.Subject := 'C++Builer';
reg.RegEx :=reg.EscapeRegExChars('C+') + '{2}'; {相当于 'C\+{2}'}
reg.Replacement := '◆';
reg.ReplaceAll;
ShowMessage(reg.Subject); {返回: ◆Builer}
FreeAndNil(reg);
end;
View Code
//字符串分割: Split
var
reg: TPerlRegEx;
List: TStrings;
begin
List := TStringList.Create;
reg := TPerlRegEx.Create(nil);
reg.Subject := 'aaa,bbb,ccc,ddd';
reg.RegEx := ',';{这⾥可是运⾏相当复杂的分割符啊}
reg.Split(List,MaxInt); {第⼀个参数读⼊的是 Subject; 第⼆个参数是分成多少份} { 输⼊⼀个最⼤整数, 表⽰能分多少就分多少}
ShowMessage(List.Text);
{返回:
aaa
bbb
ccc
ddd
}
FreeAndNil(reg);
List.Free;
end;
View Code
//实例
procedure TForm1.Button2Click(Sender: TObject);
var
reg: TPerlRegEx;
num: Integer; //⽤ num 来计数
begin
reg := TPerlRegEx.Create(nil);
reg.Subject := ;//'abc A1111 BB222 CCC33 DDDD4';
reg.RegEx :=;//'\b([A-D]+)([1-4]+)\b'; //这个表达式有两个⼦表达式构成while reg.MatchAgain do//MatchAgain 是下⼀个
begin
Memo2.Lines.Add(reg.MatchedExpression);
Inc(num);
end;
FreeAndNil(reg);
end;
Function RegExStr(Subject,RegEx:string):Tstringlist;
var
reg: TPerlRegEx;
num: Integer; //⽤ num 来计数
Re:TStringList;
begin
Re:=TStringList.Create;
reg := TPerlRegEx.Create(nil);
try
reg.Subject := Subject;
reg.RegEx :=RegEx;
while reg.MatchAgain do
begin
Memo2.Lines.Add(reg.MatchedExpression);
Inc(num);
end;
Result:=Re;
finally
FreeAndNil(reg);
Re.Free;
end;
end;
View Code
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论