XML Parsing Example: Currency Data

Download Chilkat XML ActiveX

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

Dim xml0 As New ChilkatXml
Dim xml As ChilkatXml

'  The Chilkat XML component is freeware.

'  Load an XML document.  Typically you might call LoadXml
'  to load an XML file.  This example loads an XML file from
'  a URL:
Set xml = xml0.HttpGet("http://www.chilkatsoft.com/testData/currency.xml")

'  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.Refresh
    Text1.Text = Text1.Text & "Name: " & curr.GetChildContent("NAME") & vbCrLf
    Text1.Refresh
    Text1.Text = Text1.Text & "Code: " & curr.GetChildContent("CURRENCYCODE") & vbCrLf
    Text1.Refresh
    Text1.Text = Text1.Text & "Country: " & curr.GetChildContent("COUNTRY") & vbCrLf
    Text1.Refresh

Next