How to Compare two XML files, when one file is Uploaded File and the Other is Exporte

[Ganta]

Hi Ankur,
This is my first Thread i am posting in this blog.
We are using QTP 9.5 Version in our Company with Microsoft Windows Server 2003.I am working with automation of Portal testing.
Now i have a problem and the problem is When an xml file is uploaded in the portal after traversing through some tabs in the portal i will export the file from the portal, i need to compare with the uploaded values and the Exported values from the portal.Since i am a beginner and because as i dont have much knowing of programming i am not able to find a code for this. Can u please help me on this?

Thanks
Ramakrishna

[venkatbatchu]

Hi,

Code:

Set Dc1 = CreateObject(”Msxml2.DOMDocument”) Dc1.load(”filepath”)’file 1 Set Dc2 = CreateObject(”Msxml2.DOMDocument”) Dc2.load(”filepath”)’file 2 Set List1= Dc1.DocumentElement.ChildNodes Set List2= Dc2.DocumentElement.ChildNodes If List1.length=List2.length Then’ msgbox “Put your required one" For i = 0 to List1.length-1 If List1.item(i).Text=List2.item(i).Text Then msgbox “Both are same" Else msgbox “Not same" End If Next End If

[venkatbatchu]

---

Please find the attached files and use these as xml files

[Ganta]

Hi Venkat,
Thanks for Replying. I used the same Quote for xml comparision, but in our portal there are some mandatory fields and automatically it creates XML tags when a file is exported.Now if a file is uploaded with invalid data for the field which is mandatory and if exported ,a tag is being generated with out a value .Now if i add a check point for xml comparision it must show the difference in the values.
If there is one difference between the uploaded and Exptoreted file, it is showing the difference. But it is not working fine when there are multiple differences present.

Code used in test case:---------

Code:

Dim description, filepath Set xmlDoc1 = CreateObject("Msxml2.DOMDocument") xmlDoc1.load("C:\Documents and Settings\Ramakrishna\QTP\Qtp Tests\EzLynx Portal\Test Data\Upload\Auto.xml") Set xmlDoc2 = CreateObject("Msxml2.DOMDocument") xmlDoc2.load("C:\Documents and Settings\Ramakrishna\QTP\Qtp Tests\EzLynx Portal\Test Data\ExportFile\App1.xml") Set ElemList1= xmlDoc1.DocumentElement.ChildNodes Set ElemList2= xmlDoc2.DocumentElement.ChildNodes If ElemList1.length=ElemList2.length Then Else For i = 0 to ElemList1.length-1 If ElemList1.item(i).Text=ElemList2.item(i).Text Then ' msgbox Reporter.ReportEvent micPass,"Checking for Child Elements","child element:"&i &" is same in both XML files" Else ' msgbox Reporter.ReportEvent micFail,"Checking for Child Elements","child element:"& i &" is not same in both the XML files, In XML file 1, The valueis: "& ElemList1.item(i).Text &" and In XML file 2, The valueis:"&ElemList2.item(i).Text ' msgbox ElemList1.item(i).nodeName

'======Checking for the Particular child for which there is a difference======

Code:

Set ElemChildList1 = ElemList1.item(i).ChildNodes Set ElemChildList2 = ElemList2.item(i).ChildNodes ' msgbox ElemChildList.length For J = 0 to ElemChildList1.length-1 If ElemChildList1.item(J).Text=ElemChildList2.item(J).Text Then Reporter.ReportEvent micPass,"Checking for Error Field","There is no Difference in the Files" Else Reporter.ReportEvent micFail,"Checking for Error Field","child element:"& ElemChildList1.item(J).nodeName&"is not same in both the XML files, In XML file 1, The value is:"&ElemChildList1.item(J).Text&"and In XML file 2, The value is:"&ElemChildList2.item(J).Text End If Next End If Next End If