VbScript中的正則表達式？

Question

VbScript是否具有Regex的本機實現？我需要驗證舊的ASP應用程序的電子郵件地址。

任何指針都會很棒。

Answer 1

這個例子是AlexCuse從LessThanDot

Function ValidEmail(ByVal emailAddress) 

'this function will use regular expressions to check an ' 
'email address for validity ' 

'instantiate regex object container, output boolean ' 
Dim objRegEx, retVal 

'using late binding, vbscript reference is not required ' 
Set objRegEx = CreateObject("VBScript.RegExp") 

'.pattern -looks for a valid email address ' 
With objRegEx 
     .Pattern = "^\b[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,4}\b$" 
     .IgnoreCase = True 
End With 

retVal = objRegEx.Test(emailAddress) 

'get rid of RegEx object ' 
Set objRegEx = Nothing 

ValidEmail = retVal 

End Function 

Answer 2

是的，它肯定不會。 Here's Microsoft's documention。

Answer 3

像其他人說的，是的。我只想把你放在devguru vbscript文檔中，我發現它們往往是獲得快速vbscript答案的好地方。這是Regexp對象的部分。

Answer 4

VBScript有一個內置的RegExp對象，它是Microsoft的JavaScript正則表達式的實現。我的網站上有一個article about the VBScript RegExp object，它解釋瞭如何使用它。

Answer 5

由於上面的答案這裏是VB6我想我會在VBScript中添加一個這裏（因爲那是什麼的問題是要求）： -

Option Explicit 

Function GetEmailValidator() 

    Set GetEmailValidator = New RegExp 

    GetEmailValidator.Pattern = "^((?:[A-Z0-9_%+-]+\.?)+)@((?:[A-Z0-9-]+\.)+[A-Z]{2,4})$" 

    GetEmailValidator.IgnoreCase = True 

End Function 

Dim EmailValidator : Set EmailValidator = GetEmailValidator() 

現在一些測試： -

Response.Write EmailValidator.Test("") = False 
Response.Write EmailValidator.Test(" ") = False 
Response.Write EmailValidator.Test("somebody@domain.co.uk") = True 
Response.Write EmailValidator.Test("someone@domain.com") = True 
Response.Write EmailValidator.Test("some.body@domain.co.uk") = True 
Response.Write EmailValidator.Test("broken@domain..co.uk") = False 
Response.Write EmailValidator.Test("@oops.co.uk") = False 
Response.Write EmailValidator.Test("name") = False 
Response.Write EmailValidator.Test("name@uk") = False 
Response.Write EmailValidator.Test("name@uk") = False 
Response.Write EmailValidator.Test("name@domain.abcde") = False