VbScript의 정규 표현식?

Question

VbScript에 Regex의 기본 구현이 있습니까? 이전 ASP 응용 프로그램에서 전자 메일 주소의 유효성을 검사해야합니다.

모든 포인터가 좋을 것입니다.

Answer 1

이 예제는 확실하지, 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

예에서 AlexCuse입니다. Here's Microsoft's documention.

Answer 3

다른 말로 표현하면 그렇다. 난 그냥 devguru vbscript 워드 프로세서에 넣어 싶었어, 나는 그들이 빠른 vbscript 답변을 얻을 수있는 좋은 장소 경향이 찾으십시오. 이 부분은 Regexp 개체의 섹션입니다.

Answer 4

VBScript에는 Microsoft의 JavaScript 정규식 구현 인 RegExp 개체가 기본 제공되어 있습니다. 내 웹 사이트에 article about the VBScript RegExp object이 있는데 사용 방법이 설명되어 있습니다. 상단 대답은 여기 VB6에 있기 때문에

Answer 5

나는 (그 문제가 요구하고 무엇 때문에) 내가 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