Extracting data from XML File Help

HCL Domino Domino Forum
1

Hi XML guru’sI’m trying to understand XML processing and have followed a sample found in this forum but with another XML data const. Just wandering what I’m doing wrong.

Sub Click(Source As Button)

Const xml = {<?xml version="1.0" encoding="UTF-8"?>

<gesmes:Envelope xmlns:gesmes=“http://www.gesmes.org/xml/2002-08-01” xmlns=“http://www.ecb.int/vocabulary/2002-08-01/eurofxref”>

<gesmes:subject>Reference rates</gesmes:subject>

<gesmes:Sender>

	<gesmes:name>European Central Bank</gesmes:name>

</gesmes:Sender>

<Cube>

	<Cube time='2004-10-08'>

		<Cube currency='USD' rate='1.2315'/>

		<Cube currency='JPY' rate='136.05'/>

		<Cube currency='DKK' rate='7.4399'/>

		<Cube currency='GBP' rate='0.68910'/>

		<Cube currency='SEK' rate='9.0680'/>

		<Cube currency='CHF' rate='1.5529'/>

		<Cube currency='ISK' rate='87.48'/>

		<Cube currency='NOK' rate='8.3000'/>

		<Cube currency='BGN' rate='1.9559'/>

		<Cube currency='CYP' rate='0.57600'/>

		<Cube currency='CZK' rate='31.360'/>

		<Cube currency='EEK' rate='15.6466'/>

		<Cube currency='HUF' rate='246.18'/>

		<Cube currency='LTL' rate='3.4528'/>

		<Cube currency='LVL' rate='0.6649'/>

		<Cube currency='MTL' rate='0.4289'/>

		<Cube currency='PLN' rate='4.3310'/>

		<Cube currency='ROL' rate='41050'/>

		<Cube currency='SIT' rate='239.9200'/>

		<Cube currency='SKK' rate='40.025'/>

		<Cube currency='TRL' rate='1845500'/>

		<Cube currency='AUD' rate='1.6944'/>

		<Cube currency='CAD' rate='1.5475'/>

		<Cube currency='HKD' rate='9.5937'/>

		<Cube currency='NZD' rate='1.8193'/>

		<Cube currency='SGD' rate='2.0769'/>

		<Cube currency='KRW' rate='1413.76'/>

		<Cube currency='ZAR' rate='8.1603'/>

	</Cube>

</Cube>

</gesmes:Envelope>}

Dim session As New NotesSession



Dim xmlstream As NotesStream

Set xmlstream = session.CreateStream

xmlstream.WriteText xml



Dim parser As NotesDOMParser

Set parser = session.CreateDOMParser(xmlstream)

parser.Process



Dim people As NotesDOMNodeList

Set Cube = parser.Document.GetElementsByTagName("Cube")



For i& = 1 To Cube.NumberOfEntries

	Dim CubeNode As NotesDOMElementNode

	Set CubeNode = Cube.GetItem(i&)

	

	Dim CubeCurrency As NotesDOMElementNode

	Set CubeCurrency = CubeNode.GetElementsByTagName("Cube currency").GetItem(1)

	

	Dim CubeRate As NotesDOMElementNode

	Set CubeRate = CubeNode.GetElementsByTagName("rate").GetItem(1)

	

	Messagebox "CubeNode #" & Cstr(i&) _

	& Chr$(10) & "CubeCurrency: " & CubeCurrency.FirstChild.NodeValue _

	& Chr$(10) & "CubeRate: " & CubeRate.FirstChild.NodeValue

Next

End Sub

2

Subject: Extracting data from XML File Help

Firstly its helpful if you say what the problem is.What happens? Error messages?

Looking at that quickly, currency and rate are attributes not elements so you need

currency$=CubeNode.GetAttribute(“currency”)

etc