getting xml file

[baran121]

hi i have a problem after getting data from xml.

there is two example as attact which i use for my software, first one i get data completely. second one is i can get some data not all.

first XML file

http://www.mediafire.com/?4ndb6l6dddgbn93

second XML file

http://www.mediafire.com/?b3914kuuidjnk39

could you help me please?

main code to get data from xml ;

Set oparser = CreateObject("msxml2.domdocument")
bRet = oparser.loadXML(str_xml)

If bRet Then
Set celem1 = oparser.documentElement.selectNodes("//DueDate")
Set celem2 = oparser.documentElement.selectNodes("//Chassis")
Set celem3 = oparser.documentElement.selectNodes("//PartNumber")
Set celem4 = oparser.documentElement.selectNodes("//PartDescription")
Set celem5 = oparser.documentElement.selectNodes("//Quantity")
Set celem6 = oparser.documentElement.selectNodes("//VehicleCode")
Set celem7 = oparser.documentElement.selectNodes("//PartNote")
Set celem8 = oparser.documentElement.selectNodes("//Note")
Set celem9 = oparser.documentElement.selectNodes("//ShipTo")
Set celem10 = oparser.documentElement.selectNodes("//Plan")


For i = 0 To celem1.Length - 1


next

 

[dilettante]

Are you sure this isn't VBScript?

If so try forum329 instead.

 

[baran121]

i use this in my visual basic 6 project.

 

[MakeItSo]

Hi there!

1.) Many of us have IT restrictions that don't allow the download of such attachments. Please post some relative portions of the respective XML

2.) Specify which data of the second file you're getting and which not

3.) you're missing and End If

4.) What would you like to do within your For loop?

5.) Are your celem dimmed as IXMLNode or as IXMLElement?

Cheers,
MakeItSo

“Knowledge is power. Information is liberating. Education is the premise of progress, in every society, in every family.” (Kofi Annan)
Oppose SOPA, PIPA, ACTA; measures to curb freedom of information under whatever name whatsoever.

 

[baran121]

hi there i solved problem
there is the code

Set celemi1 = oparser.documentElement.selectNodes("//DueDate")
Set celemi2 = oparser.documentElement.selectNodes("//Chassis")
Set celemi3 = oparser.documentElement.selectNodes("//VehicleCode")
Set celemi4 = oparser.documentElement.selectNodes("//Note")
Set celemi5 = oparser.documentElement.selectNodes("//ShipTo")

Set celemj1 = oparser.documentElement.selectNodes("//PartNumber")
Set celemj2 = oparser.documentElement.selectNodes("//PartDescription")
Set celemj3 = oparser.documentElement.selectNodes("//Quantity")
Set celemj4 = oparser.documentElement.selectNodes("//PartNote")

For i = 0 To celemi2.Length - 1 'xxxxxx
For j = 0 To celemj1.Length - 1 'yyyyyy

next
next

Set celemi1 = Nothing
Set celemi2 = Nothing
Set celemi3 = Nothing
Set celemi4 = Nothing
Set celemi5 = Nothing

Set celemj1 = Nothing
Set celemj2 = Nothing
Set celemj3 = Nothing
Set celemj4 = Nothing

End If