日本xxxx18视频在线观看-日本xxxx1819-日本xxxwww在线观看-日本xxx-日本xx-日本www在线视频

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

一些經(jīng)常會(huì)用到的vbscript檢測函數(shù)
tercel
2011年4月6日 22:40 本文熱度 3231
'----------------------------------------------------------------------------------------------------
' Function Name : Length
' Function Desc : 返回字符串的實(shí)際長度, 一個(gè)漢字算2個(gè)長度
'----------------------------------------------------------------------------------------------------
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 : 判斷輸入是否是有效的長日期格式 - "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)成熟度和易用性得到了國內(nèi)大量中小企業(yè)的青睞。
點(diǎn)晴PMS碼頭管理系統(tǒng)主要針對(duì)港口碼頭集裝箱與散貨日常運(yùn)作、調(diào)度、堆場、車隊(duì)、財(cái)務(wù)費(fèi)用、相關(guān)報(bào)表等業(yè)務(wù)管理，結(jié)合碼頭的業(yè)務(wù)特點(diǎn)，圍繞調(diào)度、堆場作業(yè)而開發(fā)的。集技術(shù)的先進(jìn)性、管理的有效性于一體，是物流碼頭及其他港口類企業(yè)的高效ERP管理信息系統(tǒng)。
點(diǎn)晴WMS倉儲(chǔ)管理系統(tǒng)提供了貨物產(chǎn)品管理,銷售管理,采購管理,倉儲(chǔ)管理,倉庫管理,保質(zhì)期管理,貨位管理,庫位管理,生產(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

主站蜘蛛池模板： 国产区激情区精品视频区一99 | 免费观看一区二区三区 | 国产精品成人免费视频网站 | 国产精品极品美女自在线观看 | a级日本乱理伦片免费观看 免费国产人成网站在线播放 | 国产熟女一区二 | 日本亚洲欧美阿v天堂在线观看 | 99在线精品免费视 | 日韩精品三区 | 韩国精品视频一区二区在线播放 | 国产a不卡片精品免费观看 精品国产免费第一区二区 国产亚洲精品bt天堂 | 欧美无砖专区一中文字幕 | 日本一区午 | 国产黑色丝袜视频在线 | 精品尤物导航 | 国产免费aⅴ一区二区三区 精品一区两区视频在线观看 | 国产va免费视频一区二区三区 | 国产欧美高清视频 | 日本一区二区三区成人免费观 | 国产亚洲欧洲国产综合一区 | 国产suv精品一区二区88 | 区亚洲二区三区 | 国产女手机 | 欧美日韩国产一 | 国产二三| 女性高爱潮免费有 | 国精产品一二二线 | 国产精品极品美女自在线 | 三级韩国三级日产三级 | 日韩午夜顶级在线观看 | 疯狂的激情欧美 | 国产妇女aaaaaa免费视频 | 在线精品国产一区二区三区 | 欧美日本国产综合在线 | 国产精品天干天干在线观看 | 国产精品日韩精品在线观看 | 国产色片大全在线观看 | 欧美人妖aa1片 | 国产在线综合网 | 日本三级香港三级人妇99 | 另类专区国产在 |