QTP中对用户自定义环境变量的XML操作的几个函数(2)_QuickTestPro

QTP中对用户自定义环境变量的XML操作的几个函数(2)

发表于：2012-07-25来源：Csdn作者：tulituqi点击数：标签：qtp

节点修改子节点的值 newVar.childNodes.item(0).nodeTypedValue = varname newVar.childNodes.item(1).nodeTypedValue = varvalue 添加节点 Set newEnv= Environ.appendChild(newVar) 保存xml objxm

节点

　　'修改子节点的值

　　newVar.childNodes.item(0).nodeTypedValue = varname

　　newVar.childNodes.item(1).nodeTypedValue = varvalue

　　'添加节点

　　Set newEnv= Environ.appendChild(newVar)

　　'保存xml

　　objxml.save filepath

　　End Function

　　Function updateVar(filepath,varname,varvalue) '已完成

　　Set objxml= CreateObject("MSXML.DOMDocument")

　　objxml.load filepath

　　Set Environ = objxml.lastChild '获得节点

　　allVar = Environ.childNodes.length '获得节点的子节点数量，即变量个数。

　　' Set dic = CreateObject("Scripting.Dictionary")

　　' For i=0 To allVar-1

　　' Set vars=Environ.childNodes.item(i) '获得节点

　　' var_name=vars.childNodes.item(0).nodeTypedValue

　　' var_value=vars.childNodes.item(1).nodeTypedValue

　　' dic.Add var_name,var_value

　　' Next

　　' If Not dic.Exists(varname) Then

　　' addVar filepath,varname,varvalue

　　' Exit Function

　　' End If

　　For i=0 To allVar-1

　　Set vars=Environ.childNodes.item(i) '获得节点

　　var_name=vars.childNodes.item(0).nodeTypedValue

　　If var_name=varname Then

　　vars.childNodes.item(1).nodeTypedValue = varvalue '更新变量值

　　Exit For

　　End If

　　'保存xml

　　objxml.save filepath

　　End Function

　　Function delVar(filepath,varname) '已完成

　　Set objxml= CreateObject("MSXML.DOMDocument")

　　objxml.load filepath

　　Set Environ = objxml.lastChild '获得节点

　　allVar = Environ.childNodes.length '获得节点的子节点数量，即变量个数。

　　If allVar=1 Then

　　Exit Function

　　End If

　　For i=0 To allVar-1

　　Set vars=Environ.childNodes.item(i) '获得节点

　　var_name=vars.childNodes.item(0).nodeTypedValue

　　If var_name=varname Then

　　Environ.removeChild(vars) '删除节点

　　Exit For

　　End If

　　'保存xml

　　objxml.save filepath

　　End Function

　　filepath="C:/UserDedinedEnvironment.xml"

　　Set dics = GetVars(filepath)

　　addVar filepath,"tttt","aaaa"

　　Set dics = GetVars(filepath)

　　updateVar filepath,"tttt","55555555"

　　Set dics = GetVars(filepath)

　　delVar filepath,"tttt"

　　Set dics = GetVars(filepath)

　　xx=1

　　Function GetVars(filepath) '已完成

　　Set objxml= CreateObject("MSXML.DOMDocument")

　　objxml.load filepath

　　Set Environ = objxml.lastChild '获得节点

　　Set dic = CreateObject("Scripting.Dictionary")

　　allVar = Environ.childNodes.length '获得节点的子节点数量，即变量个数。

　　For i=0 To allVar-1

　　Set vars=Environ.childNodes.item(i) '获得节点

　　var_name=vars.childNodes.item(0).nodeTypedValue

　　var_value=vars.childNodes.item(1).nodeTypedValue

　　dic.Add var_name,var_value

　　Set GetVars = dic '返回dictionary的环境变量列表

　　Set dic = Nothing

　　End Function

　　Function addVar(filepath,varname,varvalue) '已完成

　　Set objxml= CreateObject("MSXML.DOMDocument")

　　objxml.load filepath

　　Set Environ = objxml.lastChild '获得节点

　　Set dic = CreateObject("Scripting.Dictionary")

　　allVar = Environ.childNodes.length '获得节点的子节点数量，即变量个数。

　　For i=0 To allVar-1

　　Set vars=Environ.childNodes.item(i) '获得节点

　　var_name=vars.childNodes.item(0).nodeTypedValue

　　var_value=vars.childNodes.item(1).nodeTypedValue

　　dic.Add var_name,var_value

　　If dic.Exists(varname) Then

　　updateVar filepath,varname,varvalue

　　Exit Function

　　End If

原文转自：http://www.ltesting.net

软件测试 > 测试技术 > 软件测试工具 > Mercury软件测试工具 > QuickTestPro >