如果你以前没有使用过RegExp对象，你需要下载VBScript 5.0 DLL

度年如日1668

于 2012-12-14 10:00:33 发布

阅读量984

点赞数

本文介绍如何使用VBScript中的正则表达式来验证文本框中输入的电子邮件地址是否符合标准格式。首先需要下载并安装VBScript 5.0 DLL，然后设置正则表达式的模式以匹配有效的电子邮件地址。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

如果你以前没有使用过RegExp对象，你需要下载VBScript 5.0 DLL，地址为：
    http://www.microsoft.com/msdownload/vbscript/scripting.asp
    一旦你安装了VBScript的 DLL, Microsoft VBScript Regular Expressions选项就出现在Visual Basic的参考（References）对话框中
下面的代码将校验文本框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属性接受任意数目的出现在@前后的数字、下划线、字母、“-”或“.” 。