日韩欧美国产精品免费一二-日韩欧美国产精品亚洲二区-日韩欧美国产精品专区-日韩欧美国产另-日韩欧美国产免费看-日韩欧美国产免费看清风阁

LOGO OA教程 ERP教程 模切知識(shí)交流 PMS教程 CRM教程 開發(fā)文檔 其他文檔  
 
版主

一些經(jīng)常會(huì)用到的vbscript檢測(cè)函數(shù)
tercel
2011年4月6日 22:40 本文熱度 3149
'----------------------------------------------------------------------------------------------------
' Function Name : Length
' Function Desc : 返回字符串的實(shí)際長(zhǎng)度, 一個(gè)漢字算2個(gè)長(zhǎng)度
'----------------------------------------------------------------------------------------------------
Public Function Length(sInput)

Dim oRegExp

'建立正則表達(dá)式
Set oRegExp = New RegExp

'設(shè)置模式
oRegExp.Pattern = "[^\x00-\xff]"
'設(shè)置是否區(qū)分字符大小寫
oRegExp.IgnoreCase = True
'設(shè)置全局可用性
oRegExp.Global = True

'執(zhí)行搜索
Length = Len(oRegExp.Replace(sInput, "**"))

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidDate
' Function Desc : 判斷輸入是否是有效的短日期格式 - "YYYY-MM-DD"
'----------------------------------------------------------------------------------------------------
Public Function IsValidDate(sInput)

Dim oRegExp

'建立正則表達(dá)式
Set oRegExp = New RegExp

'設(shè)置模式
oRegExp.Pattern = "^\d{4}-\d{2}-\d{2}$"
'設(shè)置是否區(qū)分字符大小寫
oRegExp.IgnoreCase = True
'設(shè)置全局可用性
oRegExp.Global = True

'執(zhí)行搜索
If oRegExp.Test(sInput) Then
IsValidDate = IsDate(sInput)
Else
IsValidDate = False
End If

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidTime
' Function Desc : 判斷輸入是否是有效的時(shí)間格式 - "HH:MM:SS"
'----------------------------------------------------------------------------------------------------
Public Function IsValidTime(sInput)

Dim oRegExp

'建立正則表達(dá)式
Set oRegExp = New RegExp

'設(shè)置模式
oRegExp.Pattern = "^\d{2}:\d{2}:\d{2}$"
'設(shè)置是否區(qū)分字符大小寫
oRegExp.IgnoreCase = True
'設(shè)置全局可用性
oRegExp.Global = True

'執(zhí)行搜索
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

'建立正則表達(dá)式
Set oRegExp = New RegExp

'設(shè)置模式
oRegExp.Pattern = "^\w+((-\w+)|(\.\w))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$"
'設(shè)置是否區(qū)分字符大小寫
oRegExp.IgnoreCase = True
'設(shè)置全局可用性
oRegExp.Global = True

'執(zhí)行搜索
IsValidEmail = oRegExp.Test(sInput)

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidDatetime
' Function Desc : 判斷輸入是否是有效的長(zhǎng)日期格式 - "YYYY-MM-DD HH:MM:SS"
'----------------------------------------------------------------------------------------------------
Public Function IsValidDatetime(sInput)

Dim oRegExp

'建立正則表達(dá)式
Set oRegExp = New RegExp

'設(shè)置模式
oRegExp.Pattern = "^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$"
'設(shè)置是否區(qū)分字符大小寫
oRegExp.IgnoreCase = True
'設(shè)置全局可用性
oRegExp.Global = True

'執(zhí)行搜索
If oRegExp.Test(sInput) Then
IsValidDatetime = IsDate(sInput)
Else
IsValidDatetime = False
End If

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidInteger
' Function Desc : 判斷輸入是否是一個(gè)整數(shù)
'----------------------------------------------------------------------------------------------------
Public Function IsValidInteger(sInput)

Dim oRegExp

'建立正則表達(dá)式
Set oRegExp = New RegExp

'設(shè)置模式
oRegExp.Pattern = "^(-|\+)?\d+$"
'設(shè)置是否區(qū)分字符大小寫
oRegExp.IgnoreCase = True
'設(shè)置全局可用性
oRegExp.Global = True

'執(zhí)行搜索
IsValidInteger = oRegExp.Test(sInput)

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidPositiveInteger
' Function Desc : 判斷輸入是否是一個(gè)正整數(shù)
'----------------------------------------------------------------------------------------------------
Public Function IsValidPositiveInteger(sInput)

Dim oRegExp

'建立正則表達(dá)式
Set oRegExp = New RegExp

'設(shè)置模式
oRegExp.Pattern = "^(\+)?\d+$"
'設(shè)置是否區(qū)分字符大小寫
oRegExp.IgnoreCase = True
'設(shè)置全局可用性
oRegExp.Global = True

'執(zhí)行搜索
IsValidPositiveInteger = oRegExp.Test(sInput)

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidNegativeInteger
' Function Desc : 判斷輸入是否是一個(gè)負(fù)整數(shù)
'----------------------------------------------------------------------------------------------------
Public Function IsValidNegativeInteger(sInput)

Dim oRegExp

'建立正則表達(dá)式
Set oRegExp = New RegExp

'設(shè)置模式
oRegExp.Pattern = "^-\d+$"
'設(shè)置是否區(qū)分字符大小寫
oRegExp.IgnoreCase = True
'設(shè)置全局可用性
oRegExp.Global = True

'執(zhí)行搜索
IsValidNegativeInteger = oRegExp.Test(sInput)

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidNumber
' Function Desc : 判斷輸入是否是一個(gè)數(shù)字
'----------------------------------------------------------------------------------------------------
Public Function IsValidNumber(sInput)

IsValidNumber =  IsNumeric(sInput)

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidLetters
' Function Desc : 判斷輸入是否是一個(gè)由 A-Z / a-z 組成的字符串
'----------------------------------------------------------------------------------------------------
Public Function IsValidLetters(sInput)

Dim oRegExp

'建立正則表達(dá)式
Set oRegExp = New RegExp

'設(shè)置模式
oRegExp.Pattern = "^[a-zA-Z]+$"
'設(shè)置是否區(qū)分字符大小寫
oRegExp.IgnoreCase = True
'設(shè)置全局可用性
oRegExp.Global = True

'執(zhí)行搜索
IsValidLetters = oRegExp.Test(sInput)

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidDigits
' Function Desc : 判斷輸入是否是一個(gè)由 0-9 組成的數(shù)字
'----------------------------------------------------------------------------------------------------
Public Function IsValidDigits(sInput)

Dim oRegExp

'建立正則表達(dá)式
Set oRegExp = New RegExp

'設(shè)置模式
oRegExp.Pattern = "^[1-9][0-9]*$"
'設(shè)置是否區(qū)分字符大小寫
oRegExp.IgnoreCase = True
'設(shè)置全局可用性
oRegExp.Global = True

'執(zhí)行搜索
IsValidDigits = oRegExp.Test(sInput)

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidAlphanumeric
' Function Desc : 判斷輸入是否是一個(gè)由 0-9 / A-Z / a-z 組成的字符串
'----------------------------------------------------------------------------------------------------
Public Function IsValidAlphanumeric(sInput)

Dim oRegExp

'建立正則表達(dá)式
Set oRegExp = New RegExp

'設(shè)置模式
oRegExp.Pattern = "^[a-zA-Z0-9]+$"
'設(shè)置是否區(qū)分字符大小寫
oRegExp.IgnoreCase = True
'設(shè)置全局可用性
oRegExp.Global = True

'執(zhí)行搜索
IsValidAlphanumeric = oRegExp.Test(sInput)

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidString
' Function Desc : 判斷輸入是否是一個(gè)由 0-9 / A-Z / a-z / . / _ 組成的字符串
'----------------------------------------------------------------------------------------------------
Public Function IsValidString(sInput)

Dim oRegExp

'建立正則表達(dá)式
Set oRegExp = New RegExp

'設(shè)置模式
oRegExp.Pattern = "^[a-zA-Z0-9\s.\-_]+$"
'設(shè)置是否區(qū)分字符大小寫
oRegExp.IgnoreCase = True
'設(shè)置全局可用性
oRegExp.Global = True

'執(zhí)行搜索
IsValidString = oRegExp.Test(sInput)

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidPostalcode
' Function Desc : 判斷輸入是否是一個(gè)有效的郵政編碼
'----------------------------------------------------------------------------------------------------
Public Function IsValidPostalcode(sInput)

Dim oRegExp

'建立正則表達(dá)式
Set oRegExp = New RegExp

'設(shè)置模式
oRegExp.Pattern = "^\d{6}$"
'設(shè)置是否區(qū)分字符大小寫
oRegExp.IgnoreCase = True
'設(shè)置全局可用性
oRegExp.Global = True

'執(zhí)行搜索
IsValidPostalcode = oRegExp.Test(sInput)

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidPhoneNo
' Function Desc : 判斷輸入是否是一個(gè)有效的電話號(hào)碼
'----------------------------------------------------------------------------------------------------
Public Function IsValidPhoneNo(sInput)

Dim oRegExp

'建立正則表達(dá)式
Set oRegExp = New RegExp

'設(shè)置模式
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}$)"
'設(shè)置是否區(qū)分字符大小寫
oRegExp.IgnoreCase = True
'設(shè)置全局可用性
oRegExp.Global = True

'執(zhí)行搜索
IsValidPhoneNo = oRegExp.Test(sInput)

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidMobileNo
' Function Desc : 判斷輸入是否是一個(gè)有效的手機(jī)號(hào)碼
'----------------------------------------------------------------------------------------------------
Public Function IsValidMobileNo(sInput)

Dim oRegExp

'建立正則表達(dá)式
Set oRegExp = New RegExp

'設(shè)置模式
oRegExp.Pattern = "^0?13\d{9}$"
'設(shè)置是否區(qū)分字符大小寫
oRegExp.IgnoreCase = True
'設(shè)置全局可用性
oRegExp.Global = True

'執(zhí)行搜索
IsValidMobileNo = oRegExp.Test(sInput)

Set oRegExp = Nothing

End Function
 

該文章在 2011/4/6 22:40:52 編輯過
關(guān)鍵字查詢
相關(guān)文章
正在查詢...
點(diǎn)晴ERP是一款針對(duì)中小制造業(yè)的專業(yè)生產(chǎn)管理軟件系統(tǒng),系統(tǒng)成熟度和易用性得到了國(guó)內(nèi)大量中小企業(yè)的青睞。
點(diǎn)晴PMS碼頭管理系統(tǒng)主要針對(duì)港口碼頭集裝箱與散貨日常運(yùn)作、調(diào)度、堆場(chǎng)、車隊(duì)、財(cái)務(wù)費(fèi)用、相關(guān)報(bào)表等業(yè)務(wù)管理，結(jié)合碼頭的業(yè)務(wù)特點(diǎn)，圍繞調(diào)度、堆場(chǎng)作業(yè)而開發(fā)的。集技術(shù)的先進(jìn)性、管理的有效性于一體，是物流碼頭及其他港口類企業(yè)的高效ERP管理信息系統(tǒng)。
點(diǎn)晴WMS倉(cāng)儲(chǔ)管理系統(tǒng)提供了貨物產(chǎn)品管理,銷售管理,采購(gòu)管理,倉(cāng)儲(chǔ)管理,倉(cāng)庫(kù)管理,保質(zhì)期管理,貨位管理,庫(kù)位管理,生產(chǎn)管理,WMS管理系統(tǒng),標(biāo)簽打印,條形碼,二維碼管理,批號(hào)管理軟件。
點(diǎn)晴免費(fèi)OA是一款軟件和通用服務(wù)都免費(fèi)，不限功能、不限時(shí)間、不限用戶的免費(fèi)OA協(xié)同辦公管理系統(tǒng)。
Copyright 2010-2025 ClickSun All Rights Reserved

主站蜘蛛池模板： 国产精品k频道首页在线观看 | 亚洲人成网站免费播放 | 99视频精品全部国产盗摄视频 | 精品+在线+国产手机 | 宅男噜噜噜一区二 | 区中文字幕 | a级国产乱理伦 | 欧美日韩不卡高清在线看 | 亚洲精品一区二区三区视频在线观 | 国产精品一区二区在线观看免费 | 精品日产卡一卡二卡三入口 | 97精品国产高清自在线看超 | 国产高清在线a视频 | 日本中文有 | 顶级欧美做| 免费的网 | 成年奭片免费观看 | 福利片免费视频在线观看 | 大卡三卡免费 | 国产精品v片在线观看不卡 国产亚洲精品午夜福利 | 最新热门电影电视剧免费在线观看 | 国产黄在线观看免费观看网站不卡 | 国产午夜免费高清视频 | 在线亚洲v日韩v | 国产在线愉拍视频 | 国语在线看免 | 国产亚洲精 | 亚洲天堂国产视频 | 亚洲欧美国产精品一区二区 | 亚洲性之站 | 亚洲精品在看在线观看高清 | 成年免费视频播放网站推荐 | 手机免费在线观看日韩电影 | 亚洲精品亚洲人 | 中文有码国产精品 | 日本免费在线看aⅴ | 久中文字幕中文字幕亚洲无线 | 成人三级视频在线观看不卡 | 国产精品亚洲欧美动漫卡通 | 国产午夜福| 国产乱伦免 |