QTP XML के साथ कार्य करना

XML एक मार्कअप भाषा है जिसे प्रारूप में डेटा संग्रहीत करने के लिए डिज़ाइन किया गया है जो मानव और मशीन दोनों द्वारा पठनीय हो सकता है। XML का उपयोग करके, कंप्यूटर और डेटाबेस सिस्टम के बीच डेटा का आदान-प्रदान भी आसानी से किया जा सकता है।

नमूना XML और उनके प्रमुख तत्वों को नीचे दर्शाया गया है -

एक्सएमएल तक पहुंच

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

' Getting the number of Nodes (books)
Set nodes = xmlDoc.SelectNodes("/bookstore/book")
Print "Total books: " & nodes.Length    ' Displays 2

' get all titles
Set nodes = xmlDoc.SelectNodes("/Booklib/book/value/text()")

' get their values
For i = 0 To (nodes.Length - 1)
   Title = nodes(i).NodeValue
   Print "Title is" & (i + 1) & ": " & Title
Next

एक्सएमएल की तुलना

हम दो एक्सएमएल की तुलना कर सकते हैं -

Dim xmlDoc1
Dim xmlDoc2

' Load the XML Files
Set xmlDoc1 = XMLUtil.CreateXMLFromFile ("C:\File1.xml")
Set xmlDoc2 = XMLUtil.CreateXMLFromFile ("C:\File2.xml")

'Use the compare method of the XML to check if they are equivalent
Comp = xmlDoc1.Compare (xmlDoc1, xmlDoc2)

'Returns 1 if the two files are the same
If Comp = 1 Then
   Msgbox "XML Files are the Same"
Else
   Msgbox "XML Files are Different"
End if