使用vb的regexp对象校验电子邮件地址的语法.txt

VB技巧问答10000例,是一个教程

现 在 ， 如 果 你 的 程 序 需 要 用 户 输 入 公 司 信 息 ， 你 可 能 有 一 个 字 段 用 来 输 入 电 子 邮 件 地 址 。 毫 无 疑 问 ， 你 需 要 验 证 地 址 ， 不 仅 仅 是 要 包 括 @和 点 ， 而 且 剩 下 的 字 符 只 能 是 字 母 、 数 字 和 下 划 线 （ 还 可 能 是 “ -” 或 “ .” )。 最 初 ， 这 看 上 去 可 能 是 令 人 畏 惧 的 任 务 。 特 别 是 如 果 你 只 使 用 标 准 的 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属 性 接 受 任 意 数 目 的 出 现 在 @前 后 的 数 字 、 下 划 线 、 字 母 、 “ -” 或 “ .” 。 
<END>