前端之家收集整理的这篇文章主要介绍了
QTP 解析外部的XML的环境变量文件，
前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
'说明 ： 此函数用于 生产出一个 XML 文件 中的 节点
'参数 ：
'varName : 标签的名字
'varValue 值
Public Function GetVarXML(varName,varValue)
GetVarXML = "<Variable>" & vbCrLf & _
"<Name>" & varName & "</Name>" & vbCrlF & _
"<Value>" & varValue & "</Value>" & vbCrlF & _
"</Variable>" & vbCrLf
End Function
'说明 ： 此函数用于写入一个xml 文件 到磁盘中
'参数 ：
'fileName : 文件的绝对路径（包含文件的文件名）
'varXML 值 文件的内容
Public Sub WriteStringToFile(fileName,varXML)
Dim fso,file
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile(fileName,True)
file.WriteLine(varXML)
file.Close
Set file = nothing
Set fso = nothing
End Sub
'定义一个strXML内容的变量
Dim strXML
'下面过程拼接节点到xml，并把内容保存在strXML这个变量中
strXML = "<Environment>" & vbCrLf
strXML = strXML & GetVarXML("FirstName","Tarun")
strXML = strXML & GetVarXML("LastName","Lalwani")
strXML = strXML & "</Environment>" & vbCrLf
'把strXML中的内容输出到 磁盘中生成xml文件
WriteStringToFile "c:\Testing.xml",strXML
'通过LoadFromFile 方法加载环境变量的xml
Environment.LoadFromFile "c:\Testing.xml"
'输出LastName 和 FirstName的对应的值
MsgBox Environment("LastName") & "," & Environment("FirstName")
