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

问题描述

VbScript是否具有Regex的本地实现？我需要在旧的ASP应用程序上验证电子邮件地址。

任何指针都很棒。

解决方案

此示例由AlexCuse从 LessThanDot

 函数ValidEmail（ByVal emailAddress）
 
'此函数将使用正则表达式来检查'
'电子邮件地址的有效性'
 
'实例化regex对象容器，输出布尔'
 Dim objRegEx，retVal 
 
'使用后期绑定，vbscript引用不是必需'
设置objRegEx = CreateObject（VBScript.RegExp）
 
'.pattern -looks为有效的电子邮件地址'
与objRegEx 
 .Pattern = ^ \b [A-Z0-9 ._％+  - ] + @ [A-Z0-9 .-] + \。[AZ] {2,4} \b $
 .IgnoreCase = True 
结束
 
 retVal = objRegEx.Test（emailAddres s）
 
'摆脱RegEx对象'
设置objRegEx =没有
 
 ValidEmail = retVal 
 
结束函数
  

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

Any pointers would be great.

解决方案

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 = "^\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

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