(Visual Basic) XML Parsing Example: Currency Data

Simple example showing how to parse an XML file containing currency data.

Download Chilkat XML ActiveX

Dim xml As New ChilkatXml

'  The Chilkat XML component is freeware.

'  Load an XML document.
'  This file is available at http://www.chilkatsoft.com/testData/currency.xml
Dim success As Long
success = xml.LoadXmlFile("c:/myXmlFiles/currency.xml")
If (success <> 1) Then
    Text1.Text = Text1.Text & xml.LastErrorText & vbCrLf
    Exit Sub
End If

'  Iterate over each "CURRENCY" child node and display the contents:
Dim curr As ChilkatXml
Dim n As Long
Dim i As Long
n = xml.NumChildrenHavingTag("CURRENCY")
For i = 0 To n - 1
    Set curr = xml.GetNthChildWithTag("CURRENCY",i)
    Text1.Text = Text1.Text & "----" & vbCrLf
    Text1.Text = Text1.Text & "Name: " & curr.GetChildContent("NAME") & vbCrLf
    Text1.Text = Text1.Text & "Code: " & curr.GetChildContent("CURRENCYCODE") & vbCrLf
    Text1.Text = Text1.Text & "Country: " & curr.GetChildContent("COUNTRY") & vbCrLf

Next