Need a hand with XML, please [RSLVD]

[invitro]

Allright this is an easy one for all who have worked much with XML. I understand the structure, I think.. but I'm having issues with the syntax. I tried sniffing around this forum with no luck. The examples don't have what I'm looking for, are too complex, or I am generaly blind.

I have a file such as this one called Commands.xml

<FUNCTIONS>
<COMMAND>
 <WHOIS>
  <NAME Tag="Max">That is me</NAME> 
 </WHOIS>
</COMMAND>

All I want to do, is create a domDocument (done) and read the first element.. which is COMMAND. After that, I want to cycle through all the children of COMMAND incase there are more NAME elements.

My code:

'This is a type I have created
Private Type xmlCommandTree

    docFile As New DOMDocument30
    docParent As IXMLDOMElement
    docCommand As IXMLDOMElement
    docName As IXMLDOMElement
    

End Type
------------------------------------------
'Actuall function

   Dim xCommand As xmlCommandTree
    With xCommand
    
        .docFile.Load "\commands.xml"
        Set .docCommand = .docFile.firstChild
        Set .docParent = .docCommand.firstChild

        'Here I would put in a loop that cycles through all the children
        'However, when I run this piece of code it sais:
        'Object variable or With Block not set - Whats that mean?

  End With

Can someone give me a hand before all my hair turns gray.
Thanks

[MartinLiss]

I don't understand what you are doing with the UDT but you can do it this way.

Dim docFile As New DOMDocument30
Dim docParent As IXMLDOMNode
Dim docName As IXMLDOMNodeList
Dim intIndex As Integer
 
docFile.Load "C:\temp\test.xml"
Set docParent = docFile.documentElement.selectSingleNode("COMMAND")
Set docName = docParent.selectNodes("./WHOIS/NAME") ' The ./ says look starting at the current node
 
For intIndex = 0 To docName.length
    Debug.Print docName(intIndex).Text
Next
Set docParent = Nothing
Set docName = Nothing

[Chris H]

I have a program that manipulates a large XML file but it doesn't really care about what is in the file other than this snippet of code:

Set root = xmlDoc.selectSingleNode("/ZoneLabsSettings/ruleset/zones/restricted")
Set oNodeList = root.selectNodes("*")
 
For Index = 0 To (oNodeList.length - 1)
 
    Set NewNode = oNodeList.nextNode
    If InStr(NewNode.getAttribute("description"), Chr(232) & Chr(255)) Then
        root.removeChild NewNode
    End If
Next Index

It searches through the children of a node and deletes the ones that match with a certain two characters in their string.

[invitro]

the UDT is just straight outa my code. I put it there to make things easier.. but your code is totaly valid, and easier to read as well.

So what I dont understand then, is the NODE part.
I thought anything inside of <> was an element. Therefore, a statement like:

<test>
<test2>
</test2>
<test>

would be an ELEMENT inside of an ELEMENT. Therefore, I thought you could simply GET the ELEMNT of an ELEMNT. Could you please explain why use a node, and why my code woulden't work?

Thanks for the replies guys, great work.

[MartinLiss]

An element is a type of node and the element class inherits a bunch of stuff from the node class. I don't believe there is a lot of difference between the two and I have just always used nodes.

[invitro]

I see... wonder why my code block does not work?
O well, I will go try your method. Thanks again!

[invitro]

Ok I feel really dumb. My first example did infact work, however.... the filepath was pointing at the wrong file so it was opening a blank document. So it gave me the same error when i tried your method. Sheesh, now i feel dumb.

Ooops, thanks a lot guys.