********************
'函數作用:根據條件真假返回選定值中的某個
'參數:blnCondition:條件變量,varResultTrue:條件為真時返回值,varResultFalse:條件為假時返回值
FunctionIIF(blnCondition,varResultTrue,varResultFalse)
IfCBool(blnCondition)Then
IIF=varResultTrue
Else
IIF=varResultFalse
EndIf
EndFunction
'********************
'函數作用:判斷某個字符串元素是否在給定枚舉中
'參數:sEle:待判斷的字符串,sArray:指定枚舉
'舉例:根據擴展名判斷是否圖片文件:InArray(strFileExt,"jpg,gif,bmp,png")
FunctionInArray(sEle,sArray)
DimaArray
Dimi
aArray=Split(sArray,",")
Fori=0ToUBound(aArray)
IfTrim(sEle)=Trim(aArray(i))Then
InArray=True
ExitFunction
EndIf
Next
InArray=False
EndFunction
'********************
'函數作用:判斷某個字符串是否符合正則表達式
'參數:strString:字符串,strPattern:正則表達式
FunctiondoReTest(strString,strPattern)
DimoRE
SetoRE=NewRegExp
oRE.Pattern=strPattern
oRE.IgnoreCase=True
doReTest=oRE.Test(strString)
SetoRE=Nothing
EndFunction
'********************
'函數作用:正則提取
'參數:string:字符串,patrn:正則表達式
'返回:逗號分割的結果數組集成
FunctiondoReExec(strng,patrn)
DimregEx,Match,Matches,RetStr'創建變量。
SetregEx=NewRegExp'創建正則表達式。
regEx.Pattern=patrn'設置模式。
regEx.IgnoreCase=True'設置為不區分大小寫。
regEx.Global=True'設置全局適用。
SetMatches=regEx.Execute(strng)'執行搜索。