上一页 1 ··· 195 196 197 198 199 200 201 202 203 ··· 215 下一页
摘要: // MatchedExpression 与 SubExpressions[0] var reg: TPerlRegEx; begin reg := TPerlRegEx.Create(nil); reg.Subject := 'CodeGear Delphi 2007'; reg.RegEx := 'Delphi'; while reg.MatchAgain do... 阅读全文
posted @ 2007-12-22 11:46 万一 阅读(7825) 评论(9) 推荐(0) 编辑
摘要: //查找是否存在 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 万一 阅读(13559) 评论(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 万一 阅读(7754) 评论(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 万一 阅读(6389) 评论(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 万一 阅读(6316) 评论(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 万一 阅读(9400) 评论(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 万一 阅读(8700) 评论(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 万一 阅读(7746) 评论(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 万一 阅读(13863) 评论(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 万一 阅读(11347) 评论(2) 推荐(0) 编辑
上一页 1 ··· 195 196 197 198 199 200 201 202 203 ··· 215 下一页