VbScript 中的正则表达式? [英] Regular Expressions in VbScript?

问题描述

VbScript 是否有针对 Regex 的本机实现?我需要在旧的 ASP 应用程序上验证电子邮件地址.

Does VbScript have a native implementation for Regex? I need to validate e-mail addresses on an old ASP application.

任何指针都会很棒.

推荐答案

这个例子是 AlexCuse 来自 小于点

This example is by AlexCuse from 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 = "^[A-Z0-9._%+-]+@[A-Z0-9.-]+.[A-Z]{2,4}$" 
      .IgnoreCase = True 
End With 

retVal = objRegEx.Test(emailAddress) 

'get rid of RegEx object '
Set objRegEx = Nothing 

ValidEmail = retVal 

End Function

这篇关于VbScript 中的正则表达式?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！