DELPHI正则表达式
DELPHI正则表达式
1)下载源码
官方网站: http://www.regular-expressions.info/delphi.html
直接下载: http://www.regular-expressions.info/download/TPerlRegEx.zip
2)改编译开关
pcre.pas 文件,到 {$DEFINE PCRE_LINKDLL} ,把它注释掉,即改为 //{$DEFINE PCRE_LINKDLL} 。注意:这点非常重要,如果不这样改的话,在软件开发完成后,
分发到其他电脑上的时候,软件就会提示“缺少pcre3.dll错误”。这样修改的原因,是把正则直接封包到 exe 文件里,而不需要链接 pcre3.dll 了;封包进 exe,
付出的代价是软件增大了 100KB 左右的大小,当然比起必须携带 pcre3.dll来说,这是有意义的付出。
3)代码演示
- //查找是否存在
- 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;
- //替换一般字符串
- 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;
- //分别显示找到的每一个和总数
- 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;
- //目标字符串的位置与长度
- 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[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;
- //提取子表达式匹配到的内容
- 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;
- //子表达式不能超过 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 := [preCaseLess];
- 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, "<", "file3")
- or die "Failed to open file: $!\n";
- while(<$fh>) {
- chomp;
- push @array, $_;
- }
- close $fh;
- foreach my $line(@array)
- {
- if($line =~ /.*([0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9]).*logged in\((.*)\).*/gi)
- {
- print $1,",", $2,"\n";
- }
- }
DELPHI正则表达式的更多相关文章
- Delphi 正则表达式之TPerlRegEx 类的属性与方法(7): Split 函数
Delphi 正则表达式之TPerlRegEx 类的属性与方法(7): Split 函数 //字符串分割: Split var reg: TPerlRegEx; List: TStrings; ...
- Delphi 正则表达式之TPerlRegEx 类的属性与方法(6): EscapeRegExChars 函数
Delphi 正则表达式之TPerlRegEx 类的属性与方法(6): EscapeRegExChars 函数 // EscapeRegExChars 函数可以自动为特殊字符加转义符号 \ var ...
- Delphi 正则表达式之TPerlRegEx 类的属性与方法(5): Compile、Study
Delphi 正则表达式之TPerlRegEx 类的属性与方法(5): Compile.Study // Compile.Study var reg: TPerlRegEx; begin re ...
- Delphi 正则表达式之TPerlRegEx 类的属性与方法(4): Replace
Delphi 正则表达式之TPerlRegEx 类的属性与方法(4): Replace // Replace var reg: TPerlRegEx; begin reg := TPerlRe ...
- Delphi 正则表达式之TPerlRegEx 类的属性与方法(3): Start、Stop
Delphi 正则表达式之TPerlRegEx 类的属性与方法(3): Start.Stop //设定搜索范围: Start.Stop var reg: TPerlRegEx; begin r ...
- Delphi 正则表达式之TPerlRegEx 类的属性与方法(2): 关于子表达式
Delphi 正则表达式之TPerlRegEx 类的属性与方法(2): 关于子表达式 // MatchedExpression 与 SubExpressions[0] var reg: TPerl ...
- Delphi 正则表达式之TPerlRegEx 类的属性与方法(1): 查找
Delphi 正则表达式之TPerlRegEx 类的属性与方法(1): 查找 //查找是否存在 var reg: TPerlRegEx; begin reg := TPerlRegEx.Cre ...
- Delphi 正则表达式语法(10): 选项
Delphi 正则表达式语法(10): 选项 // preCaseLess: 不区分大小写, 相当于其他语言中的 i var reg: TPerlRegEx; begin reg := TPe ...
- Delphi 正则表达式语法(9): 临界匹配 - 也叫"预搜索"与"反向预搜索"
Delphi 正则表达式语法(9): 临界匹配 - 也叫"预搜索"与"反向预搜索" //匹配右边 var reg: TPerlRegEx; begin ...
- Delphi 正则表达式语法(8): 引用子表达式 - 也叫反向引用
Delphi 正则表达式语法(8): 引用子表达式 - 也叫反向引用 //准备: 我们先写一个搜索所有英文单词的表达式 var reg: TPerlRegEx; begin reg := TP ...
随机推荐
- Android状态栏和导航栏
1.隐藏状态栏或导航栏 View decordView = getWindow().getDecorView(); /*SYSTEM_UI_FLAG_HIDE_NAVIGATION和SYSTEM_UI ...
- Linux ls命令参数详解 <转>
下面是一个与 ls 一起使用的一些常用选项的简短列表.请记住,你可以通过阅读 ls 的说明书页(man ls)来获得选项的完整列表. -a – 全部(all).列举目录中的全部文件,包括隐藏文件(.f ...
- CentOS7下Yum安装Redis并配置主从
原文 :https://blog.51cto.com/11134648/2158209 Redis简介: Redis 是完全开源免费的,遵守BSD协议,是一个高性能的key-value数据库.它通常被 ...
- TortoiseSVN “*/SendRpt.exe not found”?
- JDK源码那些事儿之并发ConcurrentHashMap上篇
前面已经说明了HashMap以及红黑树的一些基本知识,对JDK8的HashMap也有了一定的了解,本篇就开始看看并发包下的ConcurrentHashMap,说实话,还是比较复杂的,笔者在这里也不会过 ...
- Ajax的简单例子——PHP
PHP PHP是一种创建动态交互性站点的服务器端脚本语言 PHP能够生成动态页面内容 PHP能够创建.打开.读取.写入.删除以及关闭服务器上的文件 PHP能够接收表单数据 PHP能够发送并取回cook ...
- centos 下 sphinx安装和配置
一.安装前提必备先安装工具 yum -y install make gcc g++ gcc-c++ libtool autoconf automake imake mysql-devel libxml ...
- 如何在C中定义多行宏定义?
请参阅下面的示例,其中我将交换两个变量的值. do-while(0)结构很不错 #include <stdio.h> #define swap(x,y,T) do { \ T temp = ...
- 学习了武沛齐讲的Day10-完
int 整形 int 将字符串转换为数字 x.bit_length() ===== 当前数字的二进制,至少用n位表示 str 字符串 x.capitalize()== ...
- How to Fix a Frozen Mac When Updating macOS
How to Fix a Frozen Mac When Updating macOS By Mike Tee – Posted on Sep 1, 2019 in Mac While macOS ...