Курсы валют

[UDove]

Была задача отобразить курс валюты на корпоративном сайте. На основе источника данных от Банк России http://www.cbr.ru/scripts/XML_daily.asp был построен веб-сервис ...

Пример чтения данных

Код:

Dim xmldoc As New XmlDocument
xmldoc.Load("http://www.cbr.ru/scripts/XML_daily.asp")
Dim root As XmlElement = xmldoc.DocumentElement
lbl1.Text = root.Attributes.ItemOf(0).Value & "<br />"
For Each node As XmlNode In xmldoc.DocumentElement.ChildNodes
  lbl1.Text += node.Name & " " & node.Attributes.ItemOf(0).Name & "=" & node.Attributes.ItemOf(0).Value & " - " & node.ChildNodes.ItemOf(3).InnerText & " - " & node.ChildNodes.ItemOf(1).InnerText & " : " & node.ChildNodes.ItemOf(4).InnerText & "<br />"
Next