首页 › Delphi/Pascal论坛 › DELPHI正则表达式

普成 發表於 2019-6-23 20:47:00

DELPHI正则表达式

<p>DELPHI正则表达式</p>
<p>1）下载源码</p>
<p>官方网站:&nbsp;http://www.regular-expressions.info/delphi.html<br>
&nbsp;&nbsp;&nbsp;&nbsp;直接下载:&nbsp;http://www.regular-expressions.info/download/TPerlRegEx.zip&nbsp;&nbsp;&nbsp;</p>
<p>2）改编译开关</p>
<p>&nbsp;pcre.pas 文件，到&nbsp;{$DEFINE&nbsp;PCRE_LINKDLL}&nbsp;，把它注释掉，即改为&nbsp;//{$DEFINE&nbsp;PCRE_LINKDLL}&nbsp;。注意：这点非常重要，如果不这样改的话，在软件开发完成后，</p>
<p>分发到其他电脑上的时候，软件就会提示“缺少pcre3.dll错误”。这样修改的原因，是把正则直接封包到&nbsp;exe&nbsp;文件里，而不需要链接&nbsp;pcre3.dll&nbsp;了；封包进&nbsp;exe，</p>
<p>付出的代价是软件增大了&nbsp;100KB&nbsp;左右的大小，当然比起必须携带&nbsp;pcre3.dll来说，这是有意义的付出。</p>
<p>3）代码演示</p>
<div class="cnblogs_Highlighter">
<pre class="brush:csharp;gutter:true;">//查找是否存在
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;
</pre>
</div>
<p>　　</p>
<div class="cnblogs_Highlighter">
<pre class="brush:csharp;gutter:true;">//替换一般字符串
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;
</pre>
</div>
<p>　　</p>
<div class="cnblogs_Highlighter">
<pre class="brush:csharp;gutter:true;">//分别显示找到的每一个和总数
var
reg: TPerlRegEx;
num: Integer; //用 num 来计数
begin
reg := TPerlRegEx.Create(nil);<br>reg.Subject := 'CodeGear Delphi 2007 for Win32';
reg.RegEx   := '\d';<br>num := 0;
while reg.MatchAgain do//MatchAgain 是下一个
begin
    ShowMessage(reg.MatchedExpression); //将分别显示: 2 0 0 7 3 2
    Inc(num);
end;
    ShowMessage(IntToStr(num)); //6FreeAndNil(reg);
end;
</pre>
</div>
<div class="cnblogs_Highlighter">
<pre class="brush:csharp;gutter:true;">//目标字符串的位置与长度
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;
// Matchedexpression_r 与Subexpression_rs
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); //Delphi; 也可以这样显示匹配到的内容
end;
{
Subexpression_rs 是一个数组:
Subexpression_rs 储存第 1 个表达式匹配的内容;
Subexpression_rs 储存第 2 个表达式匹配的内容;
Subexpression_rs 储存第 n 个表达式匹配的内容;
Subexpression_rs 储存整个表达式匹配的内容;
Matchedexpression_r 表示的不过是 Subexpression_rs.
}
FreeAndNil(reg);
end;
//提取子表达式匹配到的内容
var
reg: TPerlRegEx;
begin
reg := TPerlRegEx.Create(nil);
reg.Subject := 'abc A1111 BB222 CCC33 DDDD4';
reg.RegEx   :='\b(+)(+)\b'; //这个表达式有两个子表达式构成
while reg.MatchAgain do
begin
   ShowMessage(reg.Subexpression_rs); //将分别显示: A1111 BB222 CCC33DDDD4
   ShowMessage(reg.Subexpression_rs); //将分别显示: A BB CCC DDDD
   ShowMessage(reg.Subexpression_rs); //将分别显示: 1111 222 33 4
   {另外:
   reg.Subexpression_rCount   是子表达式的个数;
   reg.Subexpression_rLengths 是第 n 个表达式返回的字符串的长度;
   reg.Subexpression_rOffsets 是第 n 个表达式返回的字符串在源字符串中的位置
    }
end;
FreeAndNil(reg);
end;
//子表达式不能超过 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;

// 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 的值, 当然是不能赋值的, 它仅仅是返回值.
}

// Compile、Study
var
reg: TPerlRegEx;
begin
reg := TPerlRegEx.Create(nil);
reg.RegEx   := 'ab';
reg.Options := ;
reg.Compile; {编译表达式}
reg.Study; {Study 方法会检查是否编译, 如果没有编译则执行 Compile}
reg.Replacement := '◆';
reg.Subject := 'abAbaB';
reg.ReplaceAll;
ShowMessage(reg.Subject); {返回: ◆◆◆}
FreeAndNil(reg);
end;
{
编译表达式, 会加快执行速度、降低启动速度;
如果表达式比较复杂而又多次执行, 应该先编译;
编译内容包括表达式选项.
}
// 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;
//字符串分割: 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;
DEMO：
#!/usr/bin/perl

use strict;
use warnings;

my @array;
open(my $fh, "&lt;", "file3")
or die "Failed to open file: $!\n";
while(&lt;$fh&gt;) {
    chomp;
    push @array, $_;
}
close $fh;

foreach my $line(@array)
{
    if($line =~ /.*(--).*logged in\((.*)\).*/gi)
    {
       print $1,",", $2,"\n";
    }

}
</pre>
</div>
<p>　　</p>
<p>　　</p>
<p>&nbsp;</p>

</div>
<div id="MySignature" role="contentinfo">
    <p>本文来自博客园，作者：{咏南中间件}，转载请注明原文链接：https://www.cnblogs.com/hnxxcxg/p/11074294.html</p><br><br>
来源：https://www.cnblogs.com/hnxxcxg/p/11074294.html

查看完整版本: DELPHI正则表达式