技术文章

常用的vbscript正则检测函数

作者:admin 日期:2012-04-13

字体大小: 小中大

ASP/Visual Basic代码

'----------------------------------------------------------
' Function Name : Length
' Function Desc : 返回字符串的实际长度, 一个汉字算2个长度
'---------------------------------------------------------
Public Function Length(sInput)
Dim oregExp
'建立正则表达式
Set oregExp = New RegExp
'设置模式
oregExp.Pattern = "[^\x00-\xff]"
'设置是否区分字符大小写
oregExp.IgnoreCase = True
'设置全局可用性
oregExp.Global = True
'执行搜索
Length = Len(oRegExp.Replace(sInput, "**"))
Set oregExp = Nothing
End Function
'-----------------------------------------------------------------
' Function Name : IsValidDate
' Function Desc : 判断输入是否是有效的短日期格式 - "YYYY-MM-DD"
'----------------------------------------------------------------
Public Function IsValidDate(sInput)
Dim oregExp
'建立正则表达式
Set oregExp = New RegExp
'设置模式
oregExp.Pattern = "^\d{4}-\d{2}-\d{2}$"
'设置是否区分字符大小写
oregExp.IgnoreCase = True
'设置全局可用性
oregExp.Global = True
'执行搜索
If oregExp.Test(sInput) Then
IsValidDate = IsDate(sInput)
Else
IsValidDate = False
End If
Set oregExp = Nothing
End Function
'-------------------------------------------------------------
' Function Name : IsValidTime
' Function Desc : 判断输入是否是有效的时间格式 - "HH:MM:SS"
'--------------------------------------------------------------
Public Function IsValidTime(sInput)
Dim oregExp
'建立正则表达式
Set oregExp = New RegExp
'设置模式
oregExp.Pattern = "^\d{2}:\d{2}:\d{2}$"
'设置是否区分字符大小写
oregExp.IgnoreCase = True
'设置全局可用性
oregExp.Global = True
'执行搜索
If oregExp.Test(sInput) Then
IsValidTime = IsDate(sInput)
Else
IsValidTime = False
End If
Set oregExp = Nothing
End Function
'---------------------------------------------------------
' Function Name : IsValidEmail
' Function Desc : 判断输入是否是有效的电子邮件
'---------------------------------------------------------
Public Function IsValidEmail(sInput)
Dim oregExp
'建立正则表达式
Set oregExp = New RegExp
'设置模式
oregExp.Pattern = "^\w+((-\w+)|(\.\w))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$"
'设置是否区分字符大小写
oregExp.IgnoreCase = True
'设置全局可用性
oregExp.Global = True
'执行搜索
IsValidEmail = oregExp.Test(sInput)
Set oregExp = Nothing
End Function
'------------------------------------------------------------
' Function Name : IsValidDatetime
' Function Desc : 判断输入是否是有效的长日期格式 - "YYYY-MM-DD HH:MM:SS"
'------------------------------------------------------------
Public Function IsValidDatetime(sInput)
Dim oregExp
'建立正则表达式
Set oregExp = New RegExp
'设置模式
oregExp.Pattern = "^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$"
'设置是否区分字符大小写
oregExp.IgnoreCase = True
'设置全局可用性
oregExp.Global = True
'执行搜索
If oregExp.Test(sInput) Then
IsValidDatetime = IsDate(sInput)
Else
IsValidDatetime = False
End If
Set oregExp = Nothing
End Function
'----------------------------------------------------------------
' Function Name : IsValidInteger
' Function Desc : 判断输入是否是一个整数
'----------------------------------------------------------------
Public Function IsValidInteger(sInput)
Dim oregExp
'建立正则表达式
Set oregExp = New RegExp
'设置模式
oregExp.Pattern = "^(-|\+)?\d+$"
'设置是否区分字符大小写
oregExp.IgnoreCase = True
'设置全局可用性
oregExp.Global = True
'执行搜索
IsValidInteger = oregExp.Test(sInput)
Set oregExp = Nothing
End Function
'-------------------------------------------------------------
' Function Name : IsValidPositiveInteger
' Function Desc : 判断输入是否是一个正整数
'-----------------------------------------------------------
Public Function IsValidPositiveInteger(sInput)
Dim oregExp
'建立正则表达式
Set oregExp = New RegExp
'设置模式
oregExp.Pattern = "^(\+)?\d+$"
'设置是否区分字符大小写
oregExp.IgnoreCase = True
'设置全局可用性
oregExp.Global = True
'执行搜索
IsValidPositiveInteger = oregExp.Test(sInput)
Set oregExp = Nothing
End Function
'-------------------------------------------------------------
' Function Name : IsValidNegativeInteger
' Function Desc : 判断输入是否是一个负整数
'-------------------------------------------------------------
Public Function IsValidNegativeInteger(sInput)
Dim oregExp
'建立正则表达式
Set oregExp = New RegExp
'设置模式
oregExp.Pattern = "^-\d+$"
'设置是否区分字符大小写
oregExp.IgnoreCase = True
'设置全局可用性
oregExp.Global = True
'执行搜索
IsValidNegativeInteger = oregExp.Test(sInput)
Set oregExp = Nothing
End Function
'-------------------------------------------------------
' Function Name : IsValidNumber
' Function Desc : 判断输入是否是一个数字
'------------------------------------------------------
Public Function IsValidNumber(sInput)
IsValidNumber = IsNumeric(sInput)
End Function
'----------------------------------------------------------
' Function Name : IsValidLetters
' Function Desc : 判断输入是否是一个由 A-Z / a-z 组成的字符串
'----------------------------------------------------------
Public Function IsValidLetters(sInput)
Dim oregExp
'建立正则表达式
Set oregExp = New RegExp
'设置模式
oregExp.Pattern = "^[a-zA-Z]+$"
'设置是否区分字符大小写
oregExp.IgnoreCase = True
'设置全局可用性
oregExp.Global = True
'执行搜索
IsValidLetters = oregExp.Test(sInput)
Set oregExp = Nothing
End Function
'----------------------------------------------------------
' Function Name : IsValidDigits
' Function Desc : 判断输入是否是一个由 0-9 组成的数字
'----------------------------------------------------------
Public Function IsValidDigits(sInput)
Dim oregExp
'建立正则表达式
Set oregExp = New RegExp
'设置模式
oregExp.Pattern = "^[1-9][0-9]*$"
'设置是否区分字符大小写
oregExp.IgnoreCase = True
'设置全局可用性
oregExp.Global = True
'执行搜索
IsValidDigits = oregExp.Test(sInput)
Set oregExp = Nothing
End Function
'--------------------------------------------------------------
' Function Name : IsValidAlphanumeric
' Function Desc : 判断输入是否是一个由 0-9 / A-Z / a-z 组成的字符串
'---------------------------------------------------------------
Public Function IsValidAlphanumeric(sInput)
Dim oregExp
'建立正则表达式
Set oregExp = New RegExp
'设置模式
oregExp.Pattern = "^[a-zA-Z0-9]+$"
'设置是否区分字符大小写
oregExp.IgnoreCase = True
'设置全局可用性
oregExp.Global = True
'执行搜索
IsValidAlphanumeric = oregExp.Test(sInput)
Set oregExp = Nothing
End Function
'-------------------------------------------------------------
' Function Name : IsValidString
' Function Desc : 判断输入是否是一个由 0-9 / A-Z / a-z / . / _ 组成的字符串
'-------------------------------------------------------------
Public Function IsValidString(sInput)
Dim oregExp
'建立正则表达式
Set oregExp = New RegExp
'设置模式
oregExp.Pattern = "^[a-zA-Z0-9\s.\-_]+$"
'设置是否区分字符大小写
oregExp.IgnoreCase = True
'设置全局可用性
oregExp.Global = True
'执行搜索
IsValidString = oregExp.Test(sInput)
Set oregExp = Nothing
End Function
'-----------------------------------------------------------------
' Function Name : IsValidPostalcode
' Function Desc : 判断输入是否是一个有效的邮政编码
'----------------------------------------------------------------
Public Function IsValidPostalcode(sInput)
Dim oregExp
'建立正则表达式
Set oregExp = New RegExp
'设置模式
oregExp.Pattern = "^\d{6}$"
'设置是否区分字符大小写
oregExp.IgnoreCase = True
'设置全局可用性
oregExp.Global = True
'执行搜索
IsValidPostalcode = oregExp.Test(sInput)
Set oregExp = Nothing
End Function
'-------------------------------------------------------------------
' Function Name : IsValidPhoneNo
' Function Desc : 判断输入是否是一个有效的电话号码
'-------------------------------------------------------------------
Public Function IsValidPhoneNo(sInput)
Dim oregExp
'建立正则表达式
Set oregExp = New RegExp
'设置模式
oregExp.Pattern = "(^0\d{2,3}\-[1-9]\d{2,7}$)|(^[1-9]\d{2,7}$)|(^$0[1-9]{2,3}$[1-9]\d{2,7}$)"
'设置是否区分字符大小写
oregExp.IgnoreCase = True
'设置全局可用性
oregExp.Global = True
'执行搜索
IsValidPhoneNo = oregExp.Test(sInput)
Set oregExp = Nothing
End Function
'--------------------------------------------------------------------
' Function Name : IsValidMobileNo
' Function Desc : 判断输入是否是一个有效的手机号码
'---------------------------------------------------------------------
Public Function IsValidMobileNo(sInput)
Dim oregExp
'建立正则表达式
Set oregExp = New RegExp
'设置模式
oregExp.Pattern = "^0?13\d{9}$"
'设置是否区分字符大小写
oregExp.IgnoreCase = True
'设置全局可用性
oregExp.Global = True
'执行搜索
IsValidMobileNo = oregExp.Test(sInput)
Set oregExp = Nothing
End Function

[本日志由 admin 于 2012-04-13 01:17 PM 更新]

上一篇: Asp编程常用的正则表达式

下一篇: 在b/s开发中经常用到的javaScript技术

文章来自: 本站原创

引用通告: 查看所有引用 | 我要引用此文章

Tags: asp

相关日志:

评论: 0 | 引用: 0 | 查看次数: 1855

发表评论

昵　称:	记住我的信息
密　码:	游客发言不需要密码.
邮　箱:	邮件地址支持Gravatar头像,邮箱地址不会公开.
网　址:	输入网址便于回访.
内　容:	正在加载编辑器...
验证码:	点击获取验证码
选　项:	禁止表情转换禁止自动转换链接禁止自动转换关键字

虽然发表评论不用注册，但是为了保护您的发言权，建议您注册帐号. 字数限制 1000 字 \| UBB代码开启 \| [img]标签关闭