delphi正则表达式验证操作.doc

一、工具选择在 Delphi 中使用正则表达式, 目前 PerlRegEx 应该是首选, 准备彻底而细致地研究它.官方网站: /delphi.html直接下载: /download/TPerlRegEx.zip二、安装方法:1、先把解压的 TPerlRegEx 文件夹放一个合适的地方, 我放在了 Delphi 的 Imports 目录中.2、目前最新 For Win32 的版本是对 Delphi 2006 的, 2007 也能用. 打开 PerlRegExD2006.dpk, 提示缺少资源文件, 没关系; 在 Project Manager 窗口中的 PerlRegExD2006.bpl 上点击右键, 执行 Install; 这时在 Tool Palette 的列表中已经有了 TPerlRegEx, 在 JGsoft 组.3、Tools - Options - Environment Options - Delphi Options - Library-Win32 - Library path - 添加路径: .ImportsTPerlRegEx4、可以使用了! 直接 uses PerlRegEx 或从 Tool Palette 添加都可以. 如果不喜欢 Tool Palette 的添加方式可以省略第二步.三、使用方法PerlRegEx提供了TPerlRegEx类。主要用法是：RegEx : TPerlRegEx;.RegEx := TPerlRegEx;try RegEx.Subject := 要匹配的正文; RegEx.RegEx := 正则表达式; if RegEx.Match then .finally RegEx.freeend;如果要多次匹配并做一些处理，可以:Matched : boolean;.RegEx.Match;while RegEx.FoundMatch dobegin . RegEx.MatchAgain;end;如果要替换匹配到的内容，可以RegEx.Subject := 要匹配的正文;RegEx.RegEx := 正则表达式;RegEx.Replace := 替换的字符串if RegEx.Match then RegEx.ReplaceAll; /结果在RegEx.subject或者 if RegEx.Match then Result := RegEx.Replacement;匹配到的字符串放在RegEx.MatchedExpression中，长度在RegEx.MatchedExpressionLength中，上一次匹配的结束位置在RegEx.Stop中匹配到的子串放在RegEx.SubExpressions中，子串个数在RegEx.SubExpressionCount中。如果正则式很复杂而且常用，可创建一个生存期相对长的TPerlRegEx实例设置好RegEx属性后，使用.Study方法对正则表达式进行预处理据帮助文档说，文档资料会大大提高效率详情可参考文档。有一点文档上没有提到（又或者我看漏了），在第一次匹配之后，如果没有重新赋值subject，下一次匹配无论用Match或者MatchAgain，都是从上次的结束位置开始。所以如果要重新开始匹配，应先把RegEx.Start := 0;四、正则单元程序代码unit UnitRegEx;interfaceuses PerlRegEx;function CheckEmail(EmailAddr: string): Boolean;function CheckStrOrNumber(Str: string): Boolean;var PerlRegEx: TPerlRegEx;implementation/Email电子邮箱检测function CheckEmail(EmailAddr: string): Boolean;begin PerlRegEx := TPerlRegEx.Create(nil); PerlRegEx.Subject := EmailAddr; PerlRegEx.RegEx := w+(-+.w+)*w+(-.w+)*.w+(-.w+)*; Result := PerlRegEx.Match;end;/字符、数字检测function CheckStrOrNumber(Str: string): Boolean;begin PerlRegEx := TPerlRegEx.Create(nil); PerlRegEx.Subject := Str; PerlRegEx.RegEx := A-Za-z0-9+$; Result := PerlRegEx.Match;end;end.五、使用实例程序代码procedure TFrmRegister.btnNextClick(Sender: TObject);begin try if not CheckStrOrNumber(edtUser.Text) then begin Application.MessageBox(PChar(请您正确输入用户名。), 系统提示, 64); edtUser.SetFocus; edtUser.SelText; Exit; end else if not CheckEmail(edtEmail.Text) then begin Application.MessageBox(PChar(请您正确输入常用的电子邮箱。), 系统提示, 64); edtEmail.SetFocus; edtEmail.SelText; Exit; end; except on E: Exception do Application.MessageBox(PChar(E.Message), 系统提示, 64) end;end;六、常用正则表式正则表达式用于字符串处理、表单验证等场合，实用高效。现将一些常用的表达式收集于此，以备不时之需。匹配中文字符的正则表达式： u4e00-u9fa5评注：匹配中文还真是个头疼的事，有了这个表达式就好办了匹配双字节字符(包括汉字在内)：x00-xff评注：可以用来计算字符串的长度（一个双字节字符长度计2，ASCII字符计1）匹配空白行的正则表达式：ns*r评注：可以用来删除空白行匹配HTML标记的正则表达式：*.*?|评注：网上流传的版本太糟糕，上面这个也仅仅能匹配部分，对于复杂的嵌套标记依旧无能为力匹配首尾空白字符的正则表达式：s*|s*$评注：可以用来删除行首行尾的空白字符(包括空格、制表符、换页符等等)，非常有用的表达式匹配Email地址的正则表达式：w+(-+.w+)*w+(-.w+)*.w+(-.w+)*评注：表单验证时很实用匹配网址URL的正则表达式：a-zA-z+:/s*评注：网上流传的版本功能很有限，上面这个基本可以满足需求匹配帐号是否合法(字母开头，允许5-16字节，允许字母数字下划线)：a-zA-Za-zA-Z0-9_4,15$评注：表单验证时很实用匹配国内电话号码：d3-d8|d4-d7评注：匹配形式如或配腾讯QQ号：1-90-94,评注：腾讯QQ号从10000开始匹配中国邮政编码：1-9d5(?!d)评注：中国邮政编码为6位数字匹配身份证：d15|d18评注：中国的身份证为15位或18位匹配ip地址：d+.d+.d+.d+评注：提取ip地址时有用。匹配特定数字：1-9d*$ /匹配正整数-1-9d*$ /匹配负整数-?1-9d*$ /匹配整数1-9d*|0$ /匹配非负整数（正整数 + 0）-1-9d*|0$ /匹配非正整数（负整数 + 0）1-9d*.d*|0.d*1-9d*$ /匹配正浮点数-(1-9d*.d*|0.d*1-9d*)$ /匹配负浮点数-?(1-9d*.d*|0.d*1-9d*|0?.0+|0)$ /匹配浮点数1-9d*.d*|0.d*1-9d*|0?.0+|0$ /匹配非负浮点数（正浮点数 + 0）(-(1-9d*.d*|0.d*1-9d*)|0?.0+|0$/匹配非正浮点数（负浮点数 + 0）评注：处理大量数据时有用，具体应用时注意修正。匹配特定字符串：A-Za-z+$/匹配由26个英文字母组成的字符串A-Z+$/匹配由26个英文字母的大写组成的字符串a-z+$/匹配由26个英文字母的小写组成的字符串A-Za-z0-9+$/匹配由数字和26个英文字母组成的字符串w+$/匹配由数字、26个英文字母或者下划线组成的字符串评注：最基本也是最常用的一些表达式。-试验:删除http所有标签varreg: TPerlRegEx;str:string;beginstr:=memo1.Text; /有等内容reg := TPerlRegEx.Create(nil);reg.Subject := memo1.Text; reg.RegEx := +();while reg.MatchAgain dobegin str:=StringReplace(str,reg.SubExpressions0,rfReplaceAll); /删除HTTP标签end;ShowMessage(str); FreeAndNil(reg);end;结果:正确!日期时间判断正则表达式这里是判断YYYY-MM-DD这种格式的(16-9|2-9d)d2)-(0?13578|102)-(0?1-9|12d|301)|(16-9|2-9d)d2)-(0?13456789|1012)-(0?1-9|12d|30)|(16-9|2-9d)d2)-0?2-(0?1-9|1d|20-8)|(16-9|2-9d)(048|2468048|1357926)|(16|2468048|357926)00)-0?2-29-)$下面的是加了时间验证的(16-9|2-9d)d2)-(0?13578|102)-(0?1-9|12d|301)|(16-9|2-9d)d2)-(0?13456789|1012)-(0?1-9|12d|30)|(16-9|2-9d)d2)-0?2-(0?1-9|1d|20-8)|(16-9|2-9d)(048|2468048|1357926)|(16|2468048|357926)00)-0?2-29-) (20|21|22|23|0-1?d):0-5?d:0-5?d$日期和时间表达式：(16-9|2-9d)d2)-(0?13578|102)-(0?1-9|12d|301)|(16-9|2-9d)d2)-(0?13456789|1012)-(0?1-9|12d|30)|(16-9|2-9d)d2)-0?2-(0?1-9|1d|20-8)|(16-9|2-9d)(048|2468048|1357926)|(16|2468048|357926)00)-0?2-29-) (20|21|22|23|0-1?d):0-5?d:0-5?d|(16-9|2-9d)d2)-(0?13578|102)-(0?1-9|12d|301)|(16-9|2-9d)d2)-(0?13456789|1012)-(0?1-9|12d|30)|(16-9|2-9d)d2)-0?2-(0?1-9|1d|20-8)|(16-9|2-9d)(048|2468048|1357926)|(16|2468048|357926)00)-0?2-29-);日期的正则表达式,YYYY-MM-DD YYYY/MM/DD YYYY.MM.DD(?:(?:(?:(?:16-9|2-9d)?(?:048|2468048|1357926)|(?:(?:16|2468048|357926)00)(/|-|.)(?:0?21(?:29)$)|(?:(?:16-9|2-9d)?d2)(/|-|.)(?:(?:(?:0?13578|102)2(?:31)|(?:(?:0?1,3-9|10-2)2(29|30)|(?:(?:0?1-9)|(?:10-2)2(?:0?1-9|1d|20-8)$string regex =(d2(02468048)|(1357926)-/s?(0?13578)|(102)-/s?(0?1-9)|(1-20-9)|(301)|(0?469)|(11)-/s?(0?1-9)|(1-20-9)|(30)|(0?2-/s?(0?1-9)|(1-20-9)|(d2(024681235679)|(1357901345789)-/s?(0?13578)|(102)-/s?(0?1-9)|(1-20-9)|(301)|(0?469)|(11)-/s?(0?1-9)|(1-20-9)|(30)|(0?2-/s?(0?1-9)|(10-9)|(20-8);/日期部分 regex +=(s(0?0-9)|(1-20-3):(0-5?0-9)(s)|(:(0-5?0-9)?$;/时间部分Delphi中正则表达式入门在 Delphi 中使用正则表达式, 目前 PerlRegEx 应该是首选, 准备彻底而细 致地研究它.官方网站: /delphi.html直接下载: http:/www.regular- /download/TPerlRegEx.zip安装方法:1、先把解压的 TPerlRegEx 文件夹放一个合适的地方, 我放在了 Delphi 的 Imports 目录中.2、目前最新 For Win32 的版本是对 Delphi 2006 的, 2007 也能用.打开 PerlRegExD2006.dpk, 提示缺少资源文件, 没关系;在 Project Manager 窗口中的 PerlRegExD2006.bpl 上点击右键, 执行 Install;这时在 Tool Palette 的列表中已经有了 TPerlRegEx, 在 JGsoft 组.3、Tools - Options - Environment Options - Delphi Options - Library-Win32 - Library path -添加路径: .ImportsTPerlRegEx4、可以使用了! 直接 uses PerlRegEx 或从 Tool Palette 添加都可以.如果不喜欢 Tool Palette 的添加方式可以省略第二步.计划的学习步骤: 1、正则语法; 2、TPerlRegEx 功能./先测试一下:usesPerlRegEx; /uses 正则表达式单元procedure TForm1.FormCreate(Sender: TObject);varreg: TPerlRegEx; /声明正则表达式变量beginreg := TPerlRegEx.Create(nil); /建立reg.Subject := sSsS;/这是要替换的源字符串reg.RegEx := s; /这是表达式, 在这里是准备替换掉的子串reg.Replacement := ;/要替换成的新串reg.ReplaceAll; /执行全部替换 -ShowMessage(reg.Subject); /返回替换结果: SSFreeAndNil(reg); /或 reg.Freeend;Delphi中正则表达式语法(1) 关于大小写与中文时间:2012-12-20 万一/替换一般字符串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;begin reg := TPerlRegEx.Create(nil); reg.Subject := 我爱DELPHI, 但Delphi不爱我!; reg.RegEx := Delphi; reg.Replacement := ; reg.Options := preCaseLess; /不区分大小的设定, 默认是区分的 reg.ReplaceAll; ShowMessage(reg.Subject); /返回: 我爱, 但不爱我! FreeAndNil(reg);end;/试试中文替换var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := 我爱DELPHI, 但Delphi不爱我!; reg.RegEx := 我; reg.Replacement := ; reg.ReplaceAll; ShowMessage(reg.Subject); /返回: 爱DELPHI, 但Delphi不爱! FreeAndNil(reg);end;/如果不区分大小写, 竟然也不区分中文字了var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := 我爱DELPHI, 但Delphi不爱我!; reg.RegEx := 我; reg.Replacement := ; reg.Options := preCaseLess; /也设定不区分大小 reg.ReplaceAll; ShowMessage(reg.Subject); /返回: DELPHI, Delphi! FreeAndNil(reg);end;/我测试了不同的汉字, 除了乱以外,没有规律; 所有如果操作汉字暂时不要指定 preCaseLessDelphi中正则表达式语法(2) 或者与重复时间:2012-12-20 万一/ | 号的使用, | 是或者的意思var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := CodeGear Delphi 2007; reg.RegEx := e|Delphi|0; /使用了 | 记号 reg.Replacement := ; reg.ReplaceAll; ShowMessage(reg.Subject); /返回: CodGar 27 FreeAndNil(reg);end;/ + 的使用, + 是重复 1 个或多个var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := a aa aaa aaaa ab abb abbba a呀a; reg.RegEx := ab+; /使用了 + 记号, 这里是允许 a 后面有 1 个或 多个 b reg.Replacement := ; reg.ReplaceAll; ShowMessage(reg.Subject); /返回: a aa aaa aaaa a a呀a FreeAndNil(reg);end;/ * 的使用, * 是重复 0 个或多个var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := a aa aaa aaaa ab abb abbba a呀a; reg.RegEx := ab*; /使用了 * 记号, 这里是允许 a 后面有多个或者 没有 b reg.Replacement := ; reg.ReplaceAll; ShowMessage(reg.Subject); /返回: 呀 FreeAndNil(reg);end;/ ? 的使用, ? 是重复 0 个或 1 个var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := a aa aaa aaaa ab abb abbba a呀a; reg.RegEx := a?; /使用了 ? 记号 reg.Replacement := ; reg.ReplaceAll; ShowMessage(reg.Subject); /返回: b bb bbb 呀 FreeAndNil(reg);end;/大括号的使用, 指定重复数var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := a aa aaa aaaa ab abb abbba a呀a; reg.RegEx := a3; /这里指定重复 3 次 reg.Replacement := ; reg.ReplaceAll; ShowMessage(reg.Subject); /返回: a aa a ab abb abbba a呀 a FreeAndNil(reg);end;/大括号的使用var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := a aa aaa aaaa ab abb abbba a呀a; reg.RegEx := a2,4; /这里指定重复 2-4 次 reg.Replacement := ; reg.ReplaceAll; ShowMessage(reg.Subject); /返回: a ab abb abbba a呀a FreeAndNil(reg);end;/大括号的使用var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := a aa aaa aaaa ab abb abbba a呀a; reg.RegEx := a1,; /n 个或多个, 这里是 1 个或多个 reg.Replacement := ; reg.ReplaceAll; ShowMessage(reg.Subject); /返回: b bb bbb 呀 FreeAndNil(reg);end;/上面这个 1, 和 + 是等效的;/还有 0,1 与 ? 是等效的;/0, 和 * 是等效的Delphi中正则表达式语法(3) 匹配范围时间:2012-12-20 万一/ A-Z: 匹配所有大写字母var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := CodeGear Delphi 2007 for Win32; reg.RegEx := A-Z; reg.Replacement := ; reg.ReplaceAll; ShowMessage(reg.Subject); /返回: odeear elphi 2007 for in32 FreeAndNil(reg);end;/ a-z: 匹配所有小写字母var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := CodeGear Delphi 2007 for Win32; reg.RegEx := a-z; reg.Replacement := ; reg.ReplaceAll; ShowMessage(reg.Subject); /返回: CG D 2007 W32 FreeAndNil(reg);end;/ 0-9: 匹配所有数字var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := CodeGear Delphi 2007 for Win32; reg.RegEx := 0-9; reg.Replacement := ; reg.ReplaceAll; ShowMessage(reg.Subject); /返回: CodeGear Delphi for Win FreeAndNil(reg);end;/匹配几个范围var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := CodeGear Delphi 2007 for Win32; reg.RegEx := C-Do-p0-2; /大写字母: C-D; 小写字母: o-p; 数字 : 0-2 reg.Replacement := ; reg.ReplaceAll; ShowMessage(reg.Subject); /返回: deGear elhi 7 fr Win3 FreeAndNil(reg);end;/匹配 中的所有var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := CodeGear Delphi 2007 for Win32; reg.RegEx := Ci2; /大写字母: C; 小写字母: i; 数字: 2 reg.Replacement := ; reg.ReplaceAll; ShowMessage(reg.Subject); /返回: odeGear Delph 007 for W n3 FreeAndNil(reg);end;/ 排除 中的所有var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := CodeGear Delphi 2007 for Win32; reg.RegEx := Ci0-2; /这里排除了大写字母: C; 小写字母: i; 数字: 0-2 reg.Replacement := ; reg.ReplaceAll; ShowMessage(reg.Subject); /返回: Ci 200i2 FreeAndNil(reg);end;Delphi中正则表达式语法(4) 常用转义字符与时间:2012-12-20 万一/ d 匹配所有数字, 相当于 0-9var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := 期待Delphi 2008 for Win32！; reg.RegEx := d; reg.Replacement := ; reg.ReplaceAll; ShowMessage(reg.Subject); /返回: 期待Delphi for Win！ FreeAndNil(reg);end; / D 匹配所有非数字, 相当于 0-9var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := 期待Delphi 2008 for Win32！; reg.RegEx := D; reg.Replacement := ; reg.ReplaceAll; ShowMessage(reg.Subject); /返回: 200832 FreeAndNil(reg);end; / w 匹配字母、数字与下划线_, 相当于 A-Za-z0-9_var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := 期待Delphi 2008 for Win32！; reg.RegEx := w; reg.Replacement := ; reg.ReplaceAll; ShowMessage(reg.Subject); /返回: 期待 ！ FreeAndNil(reg);end; / W 匹配非字母、数字与下划线_, 相当于 A-Za-z0-9_var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := 期待Delphi 2008 for Win32！; reg.RegEx := W; reg.Replacement := ; reg.ReplaceAll; ShowMessage(reg.Subject); /返回: Delphi2008forWin32 FreeAndNil(reg);end; / s 匹配任何空白, 包括空格、制表、换页等, 相当于 fnrtvvar reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := 期待Delphi 2008 for Win32！; reg.RegEx := s; reg.Replacement := ; reg.ReplaceAll; ShowMessage(reg.Subject); /返回: 期待Delphi2008forWin32！ FreeAndNil(reg);end; f : 换页符 n : 换行符 r : 回车符 t : 制表符(Tab) v : 垂直制表符 / S 匹配任何非空白, 相当于 fnrtv / var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := 期待Delphi 2008 for Win32！; reg.RegEx := S; reg.Replacement := ; reg.ReplaceAll; ShowMessage(reg.Subject); /返回: FreeAndNil(reg);end; / x 匹配十六进制的 ASCIIvar reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := CodeGear Delphi; reg.RegEx := x61; / a 的 ASCII 值是 97, 也就是十六进制的 61 reg.Replacement := ; reg.ReplaceAll; ShowMessage(reg.Subject); /返回: CodeGer Delphi FreeAndNil(reg);end; /非常遗憾 TPerlRegEx 不能使用 u 或 U 匹配 Unicode 字符! / . 匹配除换行符以外的任何字符var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := 期待 + #10 + Delphi 2008 for Win32！; /#10是换行符 reg.RegEx := .; reg.Replacement := ; reg.ReplaceAll; ShowMessage(reg.Subject); 返回: FreeAndNil(reg);end;Delphi中正则表达式语法(5) 边界时间:2012-12-20 万一/ b 单词边界var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := Delphi Delphi2007 MyDelphi; reg.RegEx := bDelphib; /前后边界 reg.Replacement := ; reg.ReplaceAll; ShowMessage(reg.Subject); /返回: Delphi2007 MyDelphi FreeAndNil(reg);end; / b 单词边界: 左边界var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := Delphi Delphi2007 MyDelphi; reg.RegEx := bDelphi; /左边界 reg.Replacement := ; reg.ReplaceAll; ShowMessage(reg.Subject); /返回: 2007 MyDelphi FreeAndNil(reg);end; / b 单词边界: 右边界var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := Delphi Delphi2007 MyDelphi; reg.RegEx := Delphib; /右边界 reg.Replacement := ; reg.ReplaceAll; ShowMessage(reg.Subject); /返回: Delphi2007 My FreeAndNil(reg);end; / B 非单词边界var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := Delphi MyDelphi2007 MyDelphi; reg.RegEx := BDelphiB; /现在只有 MyDelphi2007 中的 Delphi 属于非单词边界 reg.Replacement := ; reg.ReplaceAll; ShowMessage(reg.Subject); /返回: Delphi My2007 MyDelphi FreeAndNil(reg);end; / 行首var reg: TPerlRegEx;begin reg := TPerlRegEx.Cr