XML Parsing Example: Currency Data

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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set xml0 = CreateObject("Chilkat.Xml")

'  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:

n = xml.NumChildrenHavingTag("CURRENCY")
For i = 0 To n - 1
    Set curr = xml.GetNthChildWithTag("CURRENCY",i)
    outFile.WriteLine("----")
    outFile.WriteLine("Name: " & curr.GetChildContent("NAME"))
    outFile.WriteLine("Code: " & curr.GetChildContent("CURRENCYCODE"))
    outFile.WriteLine("Country: " & curr.GetChildContent("COUNTRY"))

Next


outFile.Close