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")