DOWNLOAD • Reference

Code Snippets

    Dim xml As ChilkatXml
    Dim nextNode As ChilkatXml
    
    Set xml = New ChilkatXml
    xml.LoadXmlFile ("trouble.xml")
    
    Set nextNode = xml.FirstChild()
        
    While (Not (nextNode Is Nothing))
    
      Text1.Text = Text1.Text & " Tag Name " & _
        nextNode.Tag & " = '" & nextNode.Content & _
        "' and has " & nextNode.NumAttributes & _
        " Attributes." & vbCrLf
        
      For i = 0 To nextNode.NumAttributes - 1
        Text1.Text = Text1.Text & "    " & _
            nextNode.GetAttributeName(i) & " = " & _
            nextNode.GetAttributeValue(i) & vbCrLf
      Next
      
      Set nextNode = nextNode.NextSibling()
      
    Wend