INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Jobs

Xml VB6 Multiple Node Problem

Xml VB6 Multiple Node Problem

(OP)
This is the abreviated xml
'*************************

<Pool Type="XX" Available="Y">
<Dividend Id="629" Amount="12.8000">
<DivResult No="1" RNo="2"/>
</Dividend>
<Dividend Id="6291" Amount="13.8000">
<DivResult No="1" RNo="4"/>
</Dividend>
</Pool>

VB6 Code.... working ok

Set oxmlNodeList = xmldoc.selectNodes("//Pool")

For intNode = 0 To oxmlNodeList.length - 1
For intAttr = 0 To oxmlNodeList(intNode).Attributes.length - 1
List2.AddItem oxmlNodeList(intNode).Attributes.getNamedItem("Type").Text
Next
'*** This is where i need to get NO & Rno ie Pick up both DivResults
'Ie I need some child code of some sort ??????
'eg List2.AddItem XX,12.80,1,2
' List2.AddItem XX,13.80,1,4

Next


NOT THIS *********
Using this i can get all the info BUT i cannot associate it with the Header //Pool

Set oxmlNodeList = xmldoc.selectNodes("//Pool/Dividend")

For intNode = 0 To oxmlNodeList.length - 1
For intAttr = 0 To oxmlNodeList(intNode).Attributes.length - 1
List2.AddItem oxmlNodeList(intNode).Attributes.getNamedItem("Id").Text
List2.AddItem oxmlNodeList(intNode).Attributes.getNamedItem("Amount").Text
Next
Next


Really appreciate any help

Regards Kennedymr2

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members!

Resources

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close