********************
'函数作用:根据条件真假返回选定值中的某个
'参数: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)'执行搜索。