摘要:
//查找是否存在 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)
推荐(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)
推荐(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)
推荐(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-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)
编辑
摘要:
//贪婪匹配 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)
推荐(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)
推荐(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)
推荐(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)
推荐(0)
编辑