使用VB的RegExp对象校验电子邮件地址的语法
编号：QA002518
建立日期: 2000年1月30日 最后修改日期：2000年1月30日
所属类别：
文章:
李海翻译自ZD Tips
现在，如果你的程序需要用户输入公司信息，你可能有一个字段用来输入电子邮件地址。毫无疑问，你需要验证地址，不仅仅是要包括@和点，而且剩下的字符只能是字母、数字和下划线（还可能是“-”或“.”)。最初，这看上去可能是令人畏惧的任务。特别是如果你只使用标准的Visual Basic字符串函数。幸运的是，VB的RegExp对象提供了一种更简单的方法。
如果你以前没有使用过RegExp对象，你需要下载VBScript 5.0 DLL，地址为：
http://www.microsoft.com/msdownload/vbscript/scripting.asp
一旦你安装了VBScript的 DLL, Microsoft VBScript Regular Expressions选项就出现在Visual Basic的参考（References）对话框中 。加入这个参考到你的工程中，你就可以自由第使用RegExp对象了。下面的代码将校验文本框Text1中的电子邮件地址。
Dim myReg As RegExp
Private Sub Form_Load()
Set myReg = New RegExp
myReg.IgnoreCase = True
myReg.Pattern = "^[\w-\.]+@\w+\.\w+$"
End Sub
Private Sub Text1_Validate(Cancel As Boolean)
Cancel = Not myReg.Test(Text1)
End Sub
这里，Pattern属性接受任意数目的出现在@前后的数字、下划线、字母、“-”或“.” 。
文章来源：ZD Tips。
| |
|
|
| |
|
|
