XML Data read and extract output in an array

[SweetyChowdhury]

Hi All,

Please see the XML file format that I need to read and extract the value of a particular node (have multiple elements under it) in an array through QTP 11v.

Code:

<MasterData> <Version 1.0> <SerialNumer> 1111 </SerialNumber> <FirstData> <Item 1> <Item 2> <FAT>...</FAT> <THIN>...</THIN> <TOOL> <VersionNumber>1</VersionNumber> <Type>0</Type> <ListNumber>0</ListNumber> </TOOL> <BOOK> <Reason>0</Reason> <Number>1</Number> <Load>0</Load> </BOOK> </FirstData> <SecondData> <Item 1> <Item 2> </SecondData> </MasterData>

From the above XML file ,I need to get the element values under the node TOOL and BOOK into 2 separate arrays.
Can somebody please help on the same.

[basanth27]

does this help?

Code:

Set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\testme.txt",1) strFileText = objFileToRead.ReadAll() msgbox strFileText objFileToRead.Close Set objFileToRead = Nothing ToolNode = Split(Split(strFileText,"<TOOL>")(1),"</TOOL>")(0) msgbox ToolNode BookNode = Split(Split(strFileText,"<BOOK>")(1),"</BOOK>")(0) msgbox BookNode

[SweetyChowdhury]

Thanks Basanth for the above code. It defonatley gives me the element name and its value.
Just one more doubt how can remove the </ABC> for all the elements coming in the result.

[basanth27]

I do not get the </ABC> for the xml data you had provided. Can you please highlight it?

[SweetyChowdhury]

Thanks Basanth for the above code. It defonatley gives me the element name and its value.
Just one more doubt how can remove the </ABC> for all the elements coming in the result.

I do not get the </ABC> for the xml data you had provided. Can you please highlight it?

Sorry for the confusion. Now from the above code which you provided, I am getting the result as :
<Reason>0</Reason>
<Number>1</Number>
<Load>0</Load>

And I want my result to look as below :

<Reason>0
<Number>1
<Load>0

I hope that clarifies.
Thanks

[basanth27]

All good ?

Code:

Set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\testme.txt",1) strFileText = objFileToRead.ReadAll() objFileToRead.Close Set objFileToRead = Nothing ToolNode = Split(Trim(Split(Split(strFileText,"<TOOL>")(1),"</TOOL>")(0)),vbNewLine) BookNode = Split(Trim(Split(Split(strFileText,"<BOOK>")(1),"</BOOK>")(0)),vbNewLine) For intBCounter = Lbound(BookNode) to Ubound(BookNode) If Len(BookNode(intBCounter)) <> 0 Then msgbox Split(BookNode(intBCounter),"</")(0) End If Next For intTCounter = Lbound(ToolNode) to Ubound(ToolNode) If Len(ToolNode(intTCounter)) <> 0 Then msgbox Split(ToolNode(intTCounter),"</")(0) End If Next

Hopefully this helps, let me know if you need any clarifications.

[SweetyChowdhury]

It' perfect
Thanks a ton !!!

[basanth27]

Most Welcome

[tanyamrz]

Hi Sweety, for the deletion of xml data i was not able to reply to that post, instead of that iam replying the answer here

Code:

Set xmlDoc = CreateObject("Microsoft.XMLDOM") xmlDoc.Async = "False" xmlDoc.Load("C:\test.xml") Set colNodes=xmlDoc.selectNodes ("/Fileheaderproperty/type") For Each objNode in colNodes If instr(Ucase(objNode.text),"YES") Then xmlDoc.documentElement.removeChild (objNode) End If Next xmlDoc.Save "C:\test1.xml"

The Out put will be Like

Code:

- <Fileheaderproperty> - <type> <Car>2</Car> <parking>no</parking> <rent>560</rent> </type> - <type> <Car>3</Car> <parking>no</parking> <rent>750</rent> </type> - <type> <Car>5</Car> <parking>no</parking> <rent>260</rent> </type> </Fileheaderproperty>

Thanks
-Tanya

[SweetyChowdhury]

Thanks Tanya for the above code.