QTP 使用 XML

XML 是一种标记语言，旨在以人类和机器均可读取的格式存储数据。使用 XML，数据也可以轻松地在计算机和数据库系统之间交换。

示例 XML 及其关键元素如下所示 −

访问 XML

Const XMLDataFile = "C:\TestData.xml"
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.Async = False
xmlDoc.Load(XMLDataFile)

'获取节点（书籍）的数量
Set nodes = xmlDoc.SelectNodes("/bookstore/book")
Print "Total books: " & nodes.Length    ' Displays 2

' 获取所有标题
Set nodes = xmlDoc.SelectNodes("/Booklib/book/value/text()")

' 获取其值
For i = 0 To (nodes.Length - 1)
   Title = nodes(i).NodeValue
   Print "Title is" & (i + 1) & ": " & Title
Next

比较 XML

我们可以比较两个给定的 XML −

Dim xmlDoc1
Dim xmlDoc2

' 加载 XML 文件
Set xmlDoc1 = XMLUtil.CreateXMLFromFile ("C:\File1.xml")
Set xmlDoc2 = XMLUtil.CreateXMLFromFile ("C:\File2.xml")

'使用 XML 的比较方法检查它们是否等效
Comp = xmlDoc1.Compare (xmlDoc1, xmlDoc2)

'如果两个文件相同则返回 1
If Comp = 1 Then
   Msgbox "XML Files are the Same"
Else
   Msgbox "XML Files are Different"
End if