摘要: //查找是否存在 var reg: TPerlRegEx; begin reg := TPerlRegEx.Create(nil); reg.Subject := 'CodeGear Delphi 2007 for Win32'; reg.RegEx := '\d'; if reg.Match then ShowMessage('找到了') else ... 阅读全文
posted @ 2007-12-21 17:30 万一 阅读(13573) 评论(8) 推荐(0) 编辑
摘要: // preCaseLess: 不区分大小写, 相当于其他语言中的 i var reg: TPerlRegEx; begin reg := TPerlRegEx.Create(nil); reg.Subject := 'abc ABC aBc'; reg.RegEx := 'abc'; reg.Replacement := '◆'; reg.Options := ... 阅读全文
posted @ 2007-12-21 16:44 万一 阅读(7774) 评论(3) 推荐(0) 编辑
摘要: //匹配右边 var reg: TPerlRegEx; begin reg := TPerlRegEx.Create(nil); reg.Subject := 'Delphi 6; Delphi 7; Delphi 2007; Delphi Net'; reg.RegEx := 'Delphi (?=2007)'; // ?= reg.Replacement := '◆... 阅读全文
posted @ 2007-12-21 16:43 万一 阅读(6399) 评论(9) 推荐(0) 编辑
摘要: //准备: 我们先写一个搜索所有英文单词的表达式var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := 'one two three four five six seven eight nine ten'; reg.RegEx := '\b[A-Za-z]+\b'; //这个表达式就可以找到所有的英文单... 阅读全文
posted @ 2007-12-21 16:42 万一 阅读(6322) 评论(0) 推荐(0) 编辑
摘要: // ? 号的意义是匹配 0-1 次, 如果需要匹配 ? 怎么办 var reg: TPerlRegEx; begin reg := TPerlRegEx.Create(nil); reg.Subject := '你好吗? 还行!'; reg.RegEx := '\?|!'; // 加转义用的 \ reg.Replacement := '◆'; reg.Replac... 阅读全文
posted @ 2007-12-21 15:39 万一 阅读(9413) 评论(0) 推荐(0) 编辑
摘要: //贪婪匹配 var reg: TPerlRegEx; begin reg := TPerlRegEx.Create(nil); reg.Subject := '标题内容'; reg.RegEx := ''; //将会全部匹配, 因为两头分别是: reg.Replacement := '◆'; reg.ReplaceAll; ShowMessage(reg.... 阅读全文
posted @ 2007-12-21 13:55 万一 阅读(8712) 评论(11) 推荐(1) 编辑
摘要: // \b 单词边界 var reg: TPerlRegEx; begin reg := TPerlRegEx.Create(nil); reg.Subject := 'Delphi Delphi2007 MyDelphi'; reg.RegEx := '\bDelphi\b'; //前后边界 reg.Replacement := '◆'; reg.Replace... 阅读全文
posted @ 2007-12-21 12:23 万一 阅读(7755) 评论(5) 推荐(0) 编辑
摘要: // \d 匹配所有数字, 相当于 [0-9] var reg: TPerlRegEx; begin reg := TPerlRegEx.Create(nil); reg.Subject := '期待Delphi 2008 for Win32!'; reg.RegEx := '\d'; reg.Replacement := '◆'; reg.ReplaceAll; ... 阅读全文
posted @ 2007-12-21 11:34 万一 阅读(13877) 评论(2) 推荐(0) 编辑
摘要: // [A-Z]: 匹配所有大写字母 var reg: TPerlRegEx; begin reg := TPerlRegEx.Create(nil); reg.Subject := 'CodeGear Delphi 2007 for Win32'; reg.RegEx := '[A-Z]'; reg.Replacement := '◆'; reg.ReplaceA... 阅读全文
posted @ 2007-12-21 10:56 万一 阅读(11361) 评论(2) 推荐(0) 编辑
摘要: // | 号的使用, | 是或者的意思 var reg: TPerlRegEx; begin reg := TPerlRegEx.Create(nil); reg.Subject := 'CodeGear Delphi 2007'; reg.RegEx := 'e|Delphi|0'; //使用了 | 记号 reg.Replacement := '◆'; reg.R... 阅读全文
posted @ 2007-12-21 03:04 万一 阅读(10745) 评论(1) 推荐(0) 编辑
摘要: //替换一般字符串 var reg: TPerlRegEx; begin reg := TPerlRegEx.Create(nil); reg.Subject := '我爱DELPHI, 但Delphi不爱我!'; reg.RegEx := 'Delphi'; reg.Replacement := '◆'; reg.ReplaceAll; ShowMessag... 阅读全文
posted @ 2007-12-21 02:46 万一 阅读(13501) 评论(8) 推荐(0) 编辑
摘要: 在 Delphi 中使用正则表达式, 目前 PerlRegEx 应该是首选, 准备彻底而细致地研究它. 官方网站: http://www.regular-expressions.info/delphi.html 直接下载: http://www.regular-expressions.info/download/TPerlRegEx.zip 安装方法: 1、先把解压的 TPerlRegEx... 阅读全文
posted @ 2007-12-21 00:56 万一 阅读(52703) 评论(69) 推荐(1) 编辑