解析QTP框架中的参数变量

'==================================
'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