sol8-1.vbs

来自「Apress - Managing Enterprise Systems Wit」· VBS 代码 · 共 15 行

Dim objRegExp, strAddress

 'create a new instance of the regexp object
 Set objRegExp = New RegExp
 'set case matching off
 objRegExp.IgnoreCase = True
 'set pattern
 objRegExp.Pattern = "\w+(\.\w+)?@\w+(\.\w+)+" 

 strAddress= InputBox("Enter an E-mail address")
 'check if address is valid
 If Not objRegExp.Test(strAddress) Then 
   MsgBox "Not a valid E-mail address"
 End If