加强版正则表达式，邮箱，手机号防呆好用得不得了

正则表达式是什么？

简单的说就是，用一小段简单的各种字符的组合，即叫做 正则表达式，去实现复杂的： 字符串匹配，查找你到你所需要的内容，以便后期提取出来你所要的内容。

这个听起来很简单，但是很多现实的应用中，所要处理的字符串有千千万万种，各种复杂的字符，而且每个人的需求有无穷尽种，需要提取出的内容也是无穷多。而如果手动处理，写普通的if else语句去一点点判断字符串是否相等，则是无法实现的。

而用正则，就可以实现如此多的，繁杂的，极度复杂的，各种需求。

首先来两段代码。

* 判断邮箱名称是否有效
cPattern="^([A-Za-z0-9_\-\.])+\@([A-Za-z0-9_\-\.])+\.([A-Za-z]{2,4})$"
Regex = Createobject("NewXing.RegExp")
?Regex.Test("abc@abc.com",cPattern)
*--判断手机号输入是否有效
cPattern="^1(3[0-9]|5[0-3,5-9]|7[1-3,5-8]|8[0-9])\d{8}$"
Regex = Createobject("NewXing.RegExp")
?Regex.Test("18910011001",cPattern)

本组件用的是DEELX 正则引擎封装的com组件。所以VFP可用，其它语言也都可以用。

特点： 1、完全兼容VBScript.RegExp 正则组件的各种属性与方法 2、支持与 Perl 兼容的正则表达式语法。 3、支持 Ignorecase, Singleline, Multiline… 等常见匹配模式。 4、支持命名分组，条件表达式，递归表达式，零宽断言…等多种高级特性。

一、NewXing.RegExp 对象

提示：IgnoreCase、Singleline、Global、Multiline、RightToLeft、Extended 这几个属性可用flags参数来设置(后面会讲到)，也可以说这几个属性是多余的，只是为了兼容VBScript.RegExp 正则的语法而增加了。

二、NewXing.MatchCollection 对象

MatchCollection 是集合对象，包含有关匹配字符串的信息，该对象包含每个成功匹配的 Match 对象。

三、NewXing.Match 对象

Match 是成功匹配的对象。

四、NewXing.SubMatches 对象

SubMatches 得到当次匹配到的所有“分组”结果集合。

五、最后说一下NewXing.RegExp 对象的4个方法的相关参数与作用。

语法：

1. Execute

Execute (sourceString As String, [pattern As String], [flags As String], [start As Long] = -1) As MatchCollection

1. Replace

Replace (sourceString As String, replaceVar As String, [pattern As String], [flags As String], [start As Long] = -1, [times As Long] = -1) As String

1. Test

Test (sourceString As String, [pattern As String], [flags As String], [start As Long] = -1) As Boolean

1. Split

Split (sourceString As String, [pattern As String], [flags As String], [start As Long] = -1, [times As Long] = -1) As Object