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)代码演示

  1. //查找是否存在
  2. var
  3. reg: TPerlRegEx;
  4. begin
  5. reg := TPerlRegEx.Create(nil);
  6. reg.Subject := 'CodeGear Delphi 2007 for Win32';
  7. reg.RegEx := '\d';
  8. if reg.Match then
  9. ShowMessage('找到了')
  10. else
  11. ShowMessage('没找到');
  12. FreeAndNil(reg);
  13. end;

  

  1. //替换一般字符串
  2. var
  3. reg: TPerlRegEx;
  4. begin
  5. reg := TPerlRegEx.Create(nil);
  6. reg.Subject := '我爱DELPHI, 但Delphi不爱我!';
  7. reg.RegEx := 'Delphi';
  8. reg.Replacement := '◆';
  9. reg.ReplaceAll;
  10. ShowMessage(reg.Subject); //返回: 我爱DELPHI, 但◆不爱我!
  11. FreeAndNil(reg);
  12. end;

  

  1. //分别显示找到的每一个和总数
  2. var
  3. reg: TPerlRegEx;
  4. num: Integer; //用 num 来计数
  5. begin
  6. reg := TPerlRegEx.Create(nil);
    reg.Subject := 'CodeGear Delphi 2007 for Win32';
  7. reg.RegEx := '\d';
    num := 0;
  8. while reg.MatchAgain do //MatchAgain 是下一个
  9. begin
  10. ShowMessage(reg.MatchedExpression); //将分别显示: 2 0 0 7 3 2
  11. Inc(num);
  12. end;
  13. ShowMessage(IntToStr(num)); //6 FreeAndNil(reg);
  14. end;
  1. //目标字符串的位置与长度
  2. var
  3. reg: TPerlRegEx;
  4. begin
  5. reg := TPerlRegEx.Create(nil); reg.Subject := 'CodeGear Delphi 2007 for Win32';
  6. reg.RegEx := 'Delphi'; while reg.MatchAgain do //很明显: 本例只能找到一个结果
  7. begin
  8. ShowMessage(reg.MatchedExpression); //找到的字符串: Delphi
  9. ShowMessage(IntToStr(reg.MatchedExpressionOffset)); //它所在的位置: 10
  10. ShowMessage(IntToStr(reg.MatchedExpressionLength)); //它的长度: 6
  11. end; FreeAndNil(reg);
  12. end;
  13. // Matchedexpression_r 与Subexpression_rs[0]
  14. var
  15. reg: TPerlRegEx;
  16. begin
  17. reg := TPerlRegEx.Create(nil);
  18. reg.Subject := 'CodeGear Delphi 2007';
  19. reg.RegEx := 'Delphi';
  20. while reg.MatchAgain do
  21. begin
  22. ShowMessage(reg.Matchedexpression_r); //Delphi; 这是匹配到的内容
  23. ShowMessage(reg.Subexpression_rs[0]); //Delphi; 也可以这样显示匹配到的内容
  24. end;
  25. {
  26. Subexpression_rs 是一个数组:
  27. Subexpression_rs[1] 储存第 1 个表达式匹配的内容;
  28. Subexpression_rs[2] 储存第 2 个表达式匹配的内容;
  29. Subexpression_rs[n] 储存第 n 个表达式匹配的内容;
  30. Subexpression_rs[0] 储存整个表达式匹配的内容;
  31. Matchedexpression_r 表示的不过是 Subexpression_rs[0].
  32. }
  33. FreeAndNil(reg);
  34. end;
  35. //提取子表达式匹配到的内容
  36. var
  37. reg: TPerlRegEx;
  38. begin
  39. reg := TPerlRegEx.Create(nil);
  40. reg.Subject := 'abc A1111 BB222 CCC33 DDDD4';
  41. reg.RegEx :='\b([A-D]+)([1-4]+)\b'; //这个表达式有两个子表达式构成
  42. while reg.MatchAgain do
  43. begin
  44. ShowMessage(reg.Subexpression_rs[0]); //将分别显示: A1111 BB222 CCC33DDDD4
  45. ShowMessage(reg.Subexpression_rs[1]); //将分别显示: A BB CCC DDDD
  46. ShowMessage(reg.Subexpression_rs[2]); //将分别显示: 1111 222 33 4
  47. {另外:
  48. reg.Subexpression_rCount 是子表达式的个数;
  49. reg.Subexpression_rLengths[n] 是第 n 个表达式返回的字符串的长度;
  50. reg.Subexpression_rOffsets[n] 是第 n 个表达式返回的字符串在源字符串中的位置
  51. }
  52. end;
  53. FreeAndNil(reg);
  54. end;
  55. //子表达式不能超过 MAX_SUBexpression_rS = 99 个, MAX_SUBexpression_rS 是TPerlRegEx 的内置常数.
  56. //设定搜索范围: Start、Stop
  57. var
  58. reg: TPerlRegEx;
  59. begin
  60. reg := TPerlRegEx.Create(nil);
  61. reg.Subject := 'ababab';
  62. reg.RegEx := 'ab';
  63. reg.Replacement := '◆';
  64. reg.Start := 1;
  65. reg.Stop := 2;
  66. while reg.MatchAgain do
  67. begin
  68. reg.Replace;
  69. end;
  70. ShowMessage(reg.Subject); //返回: ◆abab
  71.  
  72. reg.Subject := 'ababab';
  73. reg.Start := 3;
  74. reg.Stop := 4;
  75. while reg.MatchAgain do
  76. begin
  77. reg.Replace;
  78. end;
  79. ShowMessage(reg.Subject); //返回: ab◆ab
  80.  
  81. reg.Subject := 'ababab';
  82. reg.Start := 5;
  83. reg.Stop := 6;
  84. while reg.MatchAgain do
  85. begin
  86. reg.Replace;
  87. end;
  88. ShowMessage(reg.Subject); //返回: abab◆
  89. FreeAndNil(reg);
  90. end;
  91.  
  92. // Replace
  93. var
  94. reg: TPerlRegEx;
  95. begin
  96. reg := TPerlRegEx.Create(nil);
  97. reg.RegEx := 'ab';
  98. reg.Replacement := '◆';
  99. reg.Subject := 'ababab';
  100. reg.ReplaceAll;
  101. ShowMessage(reg.Subject); //返回: ◆◆◆
  102.  
  103. reg.Subject := 'ababab';
  104. //下面四行程序, 相当于 reg.ReplaceAll;
  105. while reg.MatchAgain do
  106. begin
  107. reg.Replace;
  108. end;
  109. ShowMessage(reg.Subject); //返回: ◆◆◆
  110. FreeAndNil(reg);
  111. end;
  112. {
  113. ReplaceAll 函数返回的是 Boolean;
  114. Replace 函数返回的是 Replacement 的值, 当然是不能赋值的, 它仅仅是返回值.
  115. }
  116.  
  117. // Compile、Study
  118. var
  119. reg: TPerlRegEx;
  120. begin
  121. reg := TPerlRegEx.Create(nil);
  122. reg.RegEx := 'ab';
  123. reg.Options := [preCaseLess];
  124. reg.Compile; {编译表达式}
  125. reg.Study; {Study 方法会检查是否编译, 如果没有编译则执行 Compile}
  126. reg.Replacement := '◆';
  127. reg.Subject := 'abAbaB';
  128. reg.ReplaceAll;
  129. ShowMessage(reg.Subject); {返回: ◆◆◆}
  130. FreeAndNil(reg);
  131. end;
  132. {
  133. 编译表达式, 会加快执行速度、降低启动速度;
  134. 如果表达式比较复杂而又多次执行, 应该先编译;
  135. 编译内容包括表达式选项.
  136. }
  137. // EscapeRegExChars 函数可以自动为特殊字符加转义符号 \
  138. var
  139. reg: TPerlRegEx;
  140. begin
  141. reg := TPerlRegEx.Create(nil);
  142. reg.Subject := 'C++Builer';
  143. reg.RegEx :=reg.EscapeRegExChars('C+') + '{2}'; {相当于 'C\+{2}'}
  144. reg.Replacement := '◆';
  145. reg.ReplaceAll;
  146. ShowMessage(reg.Subject); {返回: Builer}
  147. FreeAndNil(reg);
  148. end;
  149. //字符串分割: Split
  150. var
  151. reg: TPerlRegEx;
  152. List: TStrings;
  153. begin
  154. List := TStringList.Create;
  155. reg := TPerlRegEx.Create(nil);
  156. reg.Subject := 'aaa,bbb,ccc,ddd';
  157. reg.RegEx := ',';{这里可是运行相当复杂的分割符啊}
  158. reg.Split(List,MaxInt); {第一个参数读入的是 Subject; 第二个参数是分成多少份}
  159. { 输入一个最大整数, 表示能分多少就分多少}
  160. ShowMessage(List.Text);
  161. {返回:
  162. aaa
  163. bbb
  164. ccc
  165. ddd
  166. }
  167. FreeAndNil(reg);
  168. List.Free;
  169. end;
  170. DEMO
  171. #!/usr/bin/perl
  172.  
  173. use strict;
  174. use warnings;
  175.  
  176. my @array;
  177. open(my $fh, "<", "file3")
  178. or die "Failed to open file: $!\n";
  179. while(<$fh>) {
  180. chomp;
  181. push @array, $_;
  182. }
  183. close $fh;
  184.  
  185. foreach my $line(@array)
  186. {
  187. if($line =~ /.*([0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9]).*logged in\((.*)\).*/gi)
  188. {
  189. print $1,",", $2,"\n";
  190. }
  191.  
  192. }

  

  

DELPHI正则表达式的更多相关文章

  1. Delphi 正则表达式之TPerlRegEx 类的属性与方法(7): Split 函数

    Delphi 正则表达式之TPerlRegEx 类的属性与方法(7): Split 函数 //字符串分割: Split var   reg: TPerlRegEx;   List: TStrings; ...

  2. Delphi 正则表达式之TPerlRegEx 类的属性与方法(6): EscapeRegExChars 函数

    Delphi 正则表达式之TPerlRegEx 类的属性与方法(6): EscapeRegExChars 函数 // EscapeRegExChars 函数可以自动为特殊字符加转义符号 \ var   ...

  3. Delphi 正则表达式之TPerlRegEx 类的属性与方法(5): Compile、Study

    Delphi 正则表达式之TPerlRegEx 类的属性与方法(5): Compile.Study // Compile.Study var   reg: TPerlRegEx; begin   re ...

  4. Delphi 正则表达式之TPerlRegEx 类的属性与方法(4): Replace

    Delphi 正则表达式之TPerlRegEx 类的属性与方法(4): Replace // Replace var   reg: TPerlRegEx; begin   reg := TPerlRe ...

  5. Delphi 正则表达式之TPerlRegEx 类的属性与方法(3): Start、Stop

    Delphi 正则表达式之TPerlRegEx 类的属性与方法(3): Start.Stop //设定搜索范围: Start.Stop var   reg: TPerlRegEx; begin   r ...

  6. Delphi 正则表达式之TPerlRegEx 类的属性与方法(2): 关于子表达式

    Delphi 正则表达式之TPerlRegEx 类的属性与方法(2): 关于子表达式 // MatchedExpression 与 SubExpressions[0] var   reg: TPerl ...

  7. Delphi 正则表达式之TPerlRegEx 类的属性与方法(1): 查找

    Delphi 正则表达式之TPerlRegEx 类的属性与方法(1): 查找 //查找是否存在 var   reg: TPerlRegEx; begin   reg := TPerlRegEx.Cre ...

  8. Delphi 正则表达式语法(10): 选项

    Delphi 正则表达式语法(10): 选项 // preCaseLess: 不区分大小写, 相当于其他语言中的 i var   reg: TPerlRegEx; begin   reg := TPe ...

  9. Delphi 正则表达式语法(9): 临界匹配 - 也叫"预搜索"与"反向预搜索"

    Delphi 正则表达式语法(9): 临界匹配 - 也叫"预搜索"与"反向预搜索" //匹配右边 var   reg: TPerlRegEx; begin   ...

  10. Delphi 正则表达式语法(8): 引用子表达式 - 也叫反向引用

    Delphi 正则表达式语法(8): 引用子表达式 - 也叫反向引用 //准备: 我们先写一个搜索所有英文单词的表达式 var   reg: TPerlRegEx; begin   reg := TP ...

随机推荐

  1. Android状态栏和导航栏

    1.隐藏状态栏或导航栏 View decordView = getWindow().getDecorView(); /*SYSTEM_UI_FLAG_HIDE_NAVIGATION和SYSTEM_UI ...

  2. Linux ls命令参数详解 <转>

    下面是一个与 ls 一起使用的一些常用选项的简短列表.请记住,你可以通过阅读 ls 的说明书页(man ls)来获得选项的完整列表. -a – 全部(all).列举目录中的全部文件,包括隐藏文件(.f ...

  3. CentOS7下Yum安装Redis并配置主从

    原文 :https://blog.51cto.com/11134648/2158209 Redis简介: Redis 是完全开源免费的,遵守BSD协议,是一个高性能的key-value数据库.它通常被 ...

  4. TortoiseSVN “*/SendRpt.exe not found”?

  5. JDK源码那些事儿之并发ConcurrentHashMap上篇

    前面已经说明了HashMap以及红黑树的一些基本知识,对JDK8的HashMap也有了一定的了解,本篇就开始看看并发包下的ConcurrentHashMap,说实话,还是比较复杂的,笔者在这里也不会过 ...

  6. Ajax的简单例子——PHP

    PHP PHP是一种创建动态交互性站点的服务器端脚本语言 PHP能够生成动态页面内容 PHP能够创建.打开.读取.写入.删除以及关闭服务器上的文件 PHP能够接收表单数据 PHP能够发送并取回cook ...

  7. centos 下 sphinx安装和配置

    一.安装前提必备先安装工具 yum -y install make gcc g++ gcc-c++ libtool autoconf automake imake mysql-devel libxml ...

  8. 如何在C中定义多行宏定义?

    请参阅下面的示例,其中我将交换两个变量的值. do-while(0)结构很不错 #include <stdio.h> #define swap(x,y,T) do { \ T temp = ...

  9. 学习了武沛齐讲的Day10-完

    int       整形 int     将字符串转换为数字 x.bit_length()  ===== 当前数字的二进制,至少用n位表示 str       字符串 x.capitalize()== ...

  10. 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 ...