Hallo Leute ,
Ich suche gerade nach einer Möglichkeit wie man mit den aktuellen Wechselkursen rechnen kann. VB2010
Dazu habe ich folgenden Code mit XML über einen Link der ECB gefunden :
Jetzt ist meine Frage :
Wie bekomme ich aus dem Script die Wechselkurse .
Link zur XML : [url]http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml
[/url]Danke schonmal im Voraus
Ich suche gerade nach einer Möglichkeit wie man mit den aktuellen Wechselkursen rechnen kann. VB2010
Dazu habe ich folgenden Code mit XML über einen Link der ECB gefunden :
Quellcode
- Imports System.Xml' Internet-Adresse
- Public ECPXMLAddress As String = _
- "http://www.ecb.int/stats/eurofxref/eurofxref-daily.xml"' Auslesen der Wechselkurse der ECB aus XML-File
- Public Function getECBCurrencyExchanges(ByVal WebAddress As String) As Array
- Dim xmlReader As XmlTextReader
- Dim outArray(1, 1) As String
- Dim currStr As String = Nothing
- Dim currVstr As String = Nothing
- Dim j As Short
- ' Lesen der Daten vom XML-file
- xmlReader = New XmlTextReader(WebAddress)
- With xmlReader
- While .Read()
- If .Name <> "" Then
- ' Prüfen, ob da ein Node gesmes:name ist
- If .Name = "gesmes:name" Then currStr = .ReadString()
- For i As Integer = 0 To .AttributeCount - 1
- ' Prüfen, ob da ein Node Cube ist
- If .Name = "Cube" Then
- ' Prüfen, ob ein Attribut, dann Wert lesen
- If .AttributeCount = 1 Then
- .MoveToAttribute("time")
- currVstr = DateTime.Parse(.Value).ToShortDateString
- End If
- ' Prüfen, ob zwei Attribute, dann Wechselkurs lesen
- If .AttributeCount = 2 Then
- currStr = "" : currVstr = ""
- .MoveToAttribute("currency")
- ' Ergänzen der Währungsbezeichnung
- currStr = CurrencyName(.Value)
- .MoveToAttribute("rate")
- currVstr = .Value
- End If
- End If
- If i Mod 2 = 0 Then
- If currStr IsNot Nothing Then
- outArray(0, j) = currStr
- outArray(1, j) = currVstr
- j += 1
- ReDim Preserve outArray(1, j)
- End If
- End If
- .MoveToNextAttribute()
- Next i
- End If
- End While
- End With
- ReDim Preserve outArray(1, outArray.Length / 2 - 2)
- Return outArray
- End FunctionPublic Function CurrencyName(ByVal shortName As String) As String
- Dim returnText As String = Nothing
- Select Case shortName
- Case "DKK" : returnText = "Dänemark;Danish Krone"
- Case "EUR" : returnText = "EU;Euro"
- Case "USD" : returnText = "USA;US Dollar"
- Case "GBP" : returnText = "Großbritannien;Pound Sterling"
- Case "SEK" : returnText = "Schweden;Swedish Krona"
- Case "NOK" : returnText = "Norwegen;Norwegian Krona"
- Case "CNY" : returnText = "China;Chinese Yuan Renminbi"
- Case "ISK" : returnText = "Island;Icelandic Krona"
- Case "IDR" : returnText = "Indonesien;Indonesian Rupiah"
- Case "CHF" : returnText = "Schweiz;Swiss franc"
- Case "CAD" : returnText = "Kanada;Canadian Dollar"
- Case "JPY" : returnText = "Japan;Japanese Yen"
- Case "RUB" : returnText = "Russland;Russian Rouble"
- Case "HRK" : returnText = "Kroatien;Croatian Kuna"
- Case "MYR" : returnText = "Malaysia;Malaysian Ringgit"
- Case "PHP" : returnText = "Philippinen;Philippine Peso"
- Case "THB" : returnText = "Thailand;Thai Baht"
- Case "AUD" : returnText = "Australien;Australian Dollar"
- Case "NZD" : returnText = "Neuseeland;New Zealand Dollar"
- Case "EEK" : returnText = "Estland;Estonian Kroon"
- Case "LVL" : returnText = "Lettland;Latvian Lats"
- Case "LTL" : returnText = "Litauen;Lithuanian Litas"
- Case "PLN" : returnText = "Polen;Polish Zloty"
- Case "CZK" : returnText = "Tschechien;Czech Koruna"
- Case "HUF" : returnText = "Ungarn;Hungarian Forint"
- Case "HKD" : returnText = "Hongkong;Hong Kong Dollar"
- Case "SGD" : returnText = "Singapur;Singapore Dollar"
- Case "SDR" : returnText = "Spezial;Special Drawing Rights"
- Case "BGN" : returnText = "Bulgarien;Bulgarian Lev"
- Case "CYP" : returnText = "Zypern;Cypriotic Pund"
- Case "MTL" : returnText = "Malta;Maltesic Lira"
- Case "ROL" : returnText = "Rumänien;Romanian Leu"
- Case "SIT" : returnText = "Slowenien;Slovenscy Tolar"
- Case "SKK" : returnText = "Slowakei;Slovakic Koruna"
- Case "TRY" : returnText = "Türkei;Turkish Lira"
- Case "KRW" : returnText = "Südkorea;South Korean Won"
- Case "ZAR" : returnText = "Südafrika;South African Rand"
- Case "BRL" : returnText = "Brasilien;Brasilian Real"
- Case "IDR" : returnText = "Indonesien;Indonesian Rupiah"
- Case "INR" : returnText = "Indien;Indian Rupee"
- Case "MXN" : returnText = "Mexiko;Mexican Peso"
- End Select
- If returnText IsNot Nothing Then returnText += ";" + shortName
- Return returnText
- End Function
Jetzt ist meine Frage :
Wie bekomme ich aus dem Script die Wechselkurse .
Link zur XML : [url]http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml
[/url]Danke schonmal im Voraus