Aktuellen Wechselkurs aus XML lesen

  • VB.NET

Es gibt 35 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Aktuellen Wechselkurs aus XML lesen

    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 :

    Quellcode

    1. Imports System.Xml' Internet-Adresse
    2. Public ECPXMLAddress As String = _
    3. "http://www.ecb.int/stats/eurofxref/eurofxref-daily.xml"' Auslesen der Wechselkurse der ECB aus XML-File
    4. Public Function getECBCurrencyExchanges(ByVal WebAddress As String) As Array
    5. Dim xmlReader As XmlTextReader
    6. Dim outArray(1, 1) As String
    7. Dim currStr As String = Nothing
    8. Dim currVstr As String = Nothing
    9. Dim j As Short
    11. ' Lesen der Daten vom XML-file
    12. xmlReader = New XmlTextReader(WebAddress)
    13. With xmlReader
    14. While .Read()
    15. If .Name <> "" Then
    16. ' Prüfen, ob da ein Node gesmes:name ist
    17. If .Name = "gesmes:name" Then currStr = .ReadString()
    19. For i As Integer = 0 To .AttributeCount - 1
    20. ' Prüfen, ob da ein Node Cube ist
    21. If .Name = "Cube" Then
    23. ' Prüfen, ob ein Attribut, dann Wert lesen
    24. If .AttributeCount = 1 Then
    25. .MoveToAttribute("time")
    26. currVstr = DateTime.Parse(.Value).ToShortDateString
    27. End If
    29. ' Prüfen, ob zwei Attribute, dann Wechselkurs lesen
    30. If .AttributeCount = 2 Then
    31. currStr = "" : currVstr = ""
    32. .MoveToAttribute("currency")
    34. ' Ergänzen der Währungsbezeichnung
    35. currStr = CurrencyName(.Value)
    36. .MoveToAttribute("rate")
    37. currVstr = .Value
    38. End If
    39. End If
    41. If i Mod 2 = 0 Then
    42. If currStr IsNot Nothing Then
    43. outArray(0, j) = currStr
    44. outArray(1, j) = currVstr
    45. j += 1
    46. ReDim Preserve outArray(1, j)
    47. End If
    48. End If
    49. .MoveToNextAttribute()
    50. Next i
    51. End If
    52. End While
    53. End With
    54. ReDim Preserve outArray(1, outArray.Length / 2 - 2)
    56. Return outArray
    57. End FunctionPublic Function CurrencyName(ByVal shortName As String) As String
    58. Dim returnText As String = Nothing
    59. Select Case shortName
    60. Case "DKK" : returnText = "Dänemark;Danish Krone"
    61. Case "EUR" : returnText = "EU;Euro"
    62. Case "USD" : returnText = "USA;US Dollar"
    63. Case "GBP" : returnText = "Großbritannien;Pound Sterling"
    64. Case "SEK" : returnText = "Schweden;Swedish Krona"
    65. Case "NOK" : returnText = "Norwegen;Norwegian Krona"
    66. Case "CNY" : returnText = "China;Chinese Yuan Renminbi"
    67. Case "ISK" : returnText = "Island;Icelandic Krona"
    68. Case "IDR" : returnText = "Indonesien;Indonesian Rupiah"
    69. Case "CHF" : returnText = "Schweiz;Swiss franc"
    70. Case "CAD" : returnText = "Kanada;Canadian Dollar"
    71. Case "JPY" : returnText = "Japan;Japanese Yen"
    72. Case "RUB" : returnText = "Russland;Russian Rouble"
    73. Case "HRK" : returnText = "Kroatien;Croatian Kuna"
    74. Case "MYR" : returnText = "Malaysia;Malaysian Ringgit"
    75. Case "PHP" : returnText = "Philippinen;Philippine Peso"
    76. Case "THB" : returnText = "Thailand;Thai Baht"
    77. Case "AUD" : returnText = "Australien;Australian Dollar"
    78. Case "NZD" : returnText = "Neuseeland;New Zealand Dollar"
    79. Case "EEK" : returnText = "Estland;Estonian Kroon"
    80. Case "LVL" : returnText = "Lettland;Latvian Lats"
    81. Case "LTL" : returnText = "Litauen;Lithuanian Litas"
    82. Case "PLN" : returnText = "Polen;Polish Zloty"
    83. Case "CZK" : returnText = "Tschechien;Czech Koruna"
    84. Case "HUF" : returnText = "Ungarn;Hungarian Forint"
    85. Case "HKD" : returnText = "Hongkong;Hong Kong Dollar"
    86. Case "SGD" : returnText = "Singapur;Singapore Dollar"
    87. Case "SDR" : returnText = "Spezial;Special Drawing Rights"
    88. Case "BGN" : returnText = "Bulgarien;Bulgarian Lev"
    89. Case "CYP" : returnText = "Zypern;Cypriotic Pund"
    90. Case "MTL" : returnText = "Malta;Maltesic Lira"
    91. Case "ROL" : returnText = "Rumänien;Romanian Leu"
    92. Case "SIT" : returnText = "Slowenien;Slovenscy Tolar"
    93. Case "SKK" : returnText = "Slowakei;Slovakic Koruna"
    94. Case "TRY" : returnText = "Türkei;Turkish Lira"
    95. Case "KRW" : returnText = "Südkorea;South Korean Won"
    96. Case "ZAR" : returnText = "Südafrika;South African Rand"
    97. Case "BRL" : returnText = "Brasilien;Brasilian Real"
    98. Case "IDR" : returnText = "Indonesien;Indonesian Rupiah"
    99. Case "INR" : returnText = "Indien;Indian Rupee"
    100. Case "MXN" : returnText = "Mexiko;Mexican Peso"
    101. End Select
    102. If returnText IsNot Nothing Then returnText += ";" + shortName
    103. Return returnText
    104. 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 :D

    1. Deine Select Case solltest du auf ein Dictionary aufwerten.
    2. XMLDeserialiser Ich sollte besser lesen. --> Zeile 23 - 37
    »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

    Du kannst dir ein DataSet mit der selben Struktur wie das XML File anlegen und einfach das komplette XML immerwieder neu in dein DataSet einlesen, damit hättest du zumindest ne schnell funktion mit der man arbeiten könnte.

    2Kb runterladen und ab ins DataSet und das alle 10Sek oder wie du möchtest.

    wie gesagt: Man kann dir nichts raten, bezüglich "rausbekommen", wenn unklar ist, wo mans hineinbekommen soll.
    shaebich macht da schon den Vorschlag, den ich auch empfehlen würde.

    Nur - da es sich um tägliche Wechselkurse handelt, würde es reichen, wenn man die einmal täglich runterlädt, und ins Dataset überträgt - nicht alle 10 sek.
    Hat man die Daten erst im typisierten Dataset, so ist alles weitere ein Kinderspiel.
    Selbst die Anzeige der Kursentwicklungen im Chart-Control, über einen frei wählbaren Zeitraum wäre in ca. 15 Zeilen abzuhandeln.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ErfinderDesRades“ ()

    guck - ich hab grad was gebastelt mit XDocument, weil ich die Xml-Intellisense für die XDoc-Technologie erst neuestens entdeckt hab.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports <xmlns:gesmes="http://www.gesmes.org/xml/2002-08-01">
    3. Imports <xmlns="http://www.ecb.int/vocabulary/2002-08-01/eurofxref">
    4. Imports System.Globalization
    6. Public Class frmXDocTester
    8. Public Sub New()
    9. InitializeComponent()
    10. CurrencyDts.Fill()
    11. End Sub
    13. Private Sub MenuStrip1_MenuClicked(ByVal Sender As Object, ByVal e As EventArgs) _
    14. Handles SaveToolStripMenuItem.Click, ReloadToolStripMenuItem.Click, _
    15. TestToolStripMenuItem.Click
    16. Select Case True
    17. Case Sender Is SaveToolStripMenuItem
    18. CurrencyDts.Save(Me)
    19. Case Sender Is ReloadToolStripMenuItem
    20. CurrencyDts.Fill()
    21. Case Sender Is TestToolStripMenuItem
    22. ReadDayExchanges()
    23. End Select
    24. End Sub
    26. Private Sub ReadDayExchanges()
    27. CurrencyBindingSource.CancelEdit()
    28. Dim _XDoc = XDocument.Load("http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml")
    29. Dim xel = _XDoc.<gesmes:Envelope>.<Cube>.<Cube>.First
    30. Dim datum = Date.Parse(xel.@time, CultureInfo.InvariantCulture)
    31. If CurrencyDts.ExchangeRate.Any(Function(rwXch) rwXch._Date = datum) Then
    32. MessageBox.Show("heute ist schon aktualisiert worden!")
    33. Return
    34. End If
    35. For Each xch In xel.<Cube>
    36. Dim currID = xch.@currency
    37. Dim rwCurr = CurrencyDts.Currency.FindByID(currID)
    38. If rwCurr.Null Then rwCurr = CurrencyDts.Currency.AddCurrencyRow(currID)
    39. CurrencyDts.ExchangeRate.AddExchangeRateRow(rwCurr, datum, Decimal.Parse(xch.@rate, CultureInfo.InvariantCulture))
    40. Next
    41. End Sub
    43. End Class
    (beachte: dieses ist nur der relevante Code-Ausschnitt. Lauffähig ist er nur im Kontext der angehängten Solution)

    Das ist also sowas, was die Xml-Daten aussm INet direkt einer typisierten DataTable zufügt, und wenn man das jeden Tag einmal ausführt, bildet sich mit der Zeit für jede Währung eine hübsche Wechsel-Kurs-WerteReihe, die bereits im DGV angezeigt wird.
    Bislang sind halt nur die Daten von 2 Tagen drinne.
    Dateien

    • XDocTester.zip

      (64,17 kB, 127 mal heruntergeladen, zuletzt: )

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „ErfinderDesRades“ ()

    Hab' da ein altes Projekt gefunden, vielleicht hilft Dir das ... da bekommst Du Deine Kurse sogar Online direkt von der EZB.
    Dateien

    Mal ne andere Frage. Was würde gegen einen simplen WebService sprechen? Ich habe dir mal einen rausgesucht: webservicex.net/CurrencyConvertor.asmx. Den kannst du zum Projekt hinzufügen unter Projekt -> Dienstverweis hinzufügen. Ich hab dir mal im Anhang ein funktionierendes Projekt reingestellt. Habs getestet und funktioniert wunderbar. Und ist so gut wie keine Arbeit und leicht wartbar. Internetverbindung brauchste so oder so. Von dem her sehe ich außer dem eventuell kleinen Performanceunterschied keine Nachteile. Zumal du dir Fragen wie z.B. wie oft aktualisiere ich die Daten etc. nicht stellen musst.
    Dateien


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.

    ErfinderDesRades schrieb:

    frag doch einfach - weil es ist ganz einfach


    Also es soll so sein , dass ich Eine Euro Eingabe per TextBox habe,
    Dann soll die Zielwährung per ComboBox ausgewählt werden.

    jedoch gibt er mir alle Werte auf einmal raus :

    VB.NET-Quellcode

    1. ​ Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. Dim _XDoc = XDocument.Load("http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml")
    3. Dim xel = _XDoc.<gesmes:Envelope>.<Cube>.<Cube>
    5. For Each xch In xel.<Cube>
    6. Dim currID = xch.@currency
    8. Dim rate = xch.@rate
    10. MsgBox(rate)
    12. Next
    13. ' zum gucken ob er werte findet
    14. End Sub

    was soll dieser Beispiel-Code?
    Wo ist die Textbox, die den Eingabe-Wert angibt?
    (statt der Combo könntest du einfacherweise erstmel meine Datagridviews drinne lassen, und mit dem linken halt die Ziel-Währung wählen).

    Oder nimm doch einfach theFiloes Webservice-Lösung, die macht doch bereits genau, was dir vorschwebt, oder?

    edit: naja - ich bastel mal was - moment...
    Dateien

    • XDocTester02.zip

      (67,84 kB, 139 mal heruntergeladen, zuletzt: )

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ErfinderDesRades“ ()

    Der_Igelmann schrieb:

    Also es soll so sein , dass ich Eine Euro Eingabe per TextBox habe,
    Dann soll die Zielwährung per ComboBox ausgewählt werden.

    Ich verstehe dein Problem nicht. Du hast bereits eine voll funktionsfähige Lösung von mir bekommen. Unterstützt wesentlich mehr Währungen, braucht so gut wie keinen Code und erst recht keinen mit XML etc.


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.