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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!