'==================================
'Creator: Eric_1991
'Date: 2014/1/3
'==================================
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'des: use RegExp to match target string
'param : targetStr type:str
'return True || False
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function IsRegMatch(patrn, targetStr)
Dim regEx
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = False
IsRegMatch = regEx.Test(targetStr)
Set regEx = Nothing
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'des: parse the const value
'param : targetStr type:str
'return string
'eg input:[username] output:username
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function parseConstantStr(ByVal targetStr)
targetStr = Trim(targetStr)
targetStr = Replace(targetStr,"[" , "")
targetStr = Replace(targetStr, "]" ,"")
parseConstantStr = Trim(targetStr)
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'des: parse the variable value
'param : targetStr type:str
'return string
'eg input:[${username}] output:username
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function parseVariableStr(ByVal targetStr)
targetStr = Trim(targetStr)
targetStr = Replace(targetStr,"[${" , "")
targetStr = Replace(targetStr, "}]" ,"")
parseVariableStr = Trim(targetStr)
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'des: parse the output value
'param : targetStr type:str
'return string
'eg input:[@{username}] output:username
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function parseOutputVarStr(ByVal targetStr)
targetStr = Trim(targetStr)
targetStr = Replace(targetStr,"[@{" , "")
targetStr = Replace(targetStr, "}]" ,"")
parseOutputVarStr = Trim(targetStr)
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'des: use to get input varStr type
'param : targetStr type:str
'return const || var || output || nomatch
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function getInputType(ByVal targetStr)
Dim partrn_const_str, partrn_var_str, partrn_output_str
partrn_const_str = "^(\[)(\w+)(\])$"
partrn_var_str = "^(\[\$\{)(\w+)(\}\])$"
partrn_output_str = "^(\[\@\{)(\w+)(\}\])$"
targetStr = Trim(targetStr)
If(IsRegMatch(partrn_const_str, targetStr)) Then
getInputType = "const"
ElseIf(IsRegMatch(partrn_var_str, targetStr)) Then
getInputType = "var"
ElseIf(IsRegMatch(partrn_output_str, targetStr)) Then
getInputType = "output"
Else
getInputType = "nomatch"
End If
End Function
解析QTP框架中的参数变量
最新推荐文章于 2017-06-27 08:30:23 发布