Werte Abfragen & ausgeben json

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Morrison.

    Werte Abfragen & ausgeben json

    Hallo ich möchte mir momentan ein tool Coden was mir die aktuellen Cryptocoin Kurse anzeigt

    Also dachte ich mir das so:

    ich nehme die api von: api.coinmarketcap.com/v1/ticker/

    Wo die Daten wie folgt ausgegben werden:

    XML-Quellcode

    1. "id": "bitcoin",
    2. "name": "Bitcoin",
    3. "symbol": "BTC",
    4. "rank": "1",
    5. "price_usd": "8180.29",
    6. "price_btc": "1.0",
    7. "24h_volume_usd": "4378500000.0",
    8. "market_cap_usd": "136551126883",
    9. "available_supply": "16692700.0",
    10. "total_supply": "16692700.0",
    11. "max_supply": "21000000.0",
    12. "percent_change_1h": "-0.02",
    13. "percent_change_24h": "0.03",
    14. "percent_change_7d": "24.77",
    15. "last_updated": "1511272451"
    16. },
    17. {
    18. "id": "ethereum",
    19. "name": "Ethereum",
    20. "symbol": "ETH",
    21. "rank": "2",
    22. "price_usd": "367.945",
    23. "price_btc": "0.0447662",
    24. "24h_volume_usd": "1060520000.0",
    25. "market_cap_usd": "35272645709.0",
    26. "available_supply": "95863908.0",
    27. "total_supply": "95863908.0",
    28. "max_supply": null,
    29. "percent_change_1h": "0.24",
    30. "percent_change_24h": "2.39",
    31. "percent_change_7d": "11.23",
    32. "last_updated": "1511272453"


    Nun Wollte ich mir gerne eine Liste mit Coins anzeigen lassen wo durchs draufklicken auf den Jeweiligen coin die genaueren infos angezeigt werden

    Dazu bin ich wie Folgt vorgegangen:

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Text.RegularExpressions
    3. Public Class Form1
    4. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    5. WebBrowser.Navigate("https://api.coinmarketcap.com/v1/ticker/?convert=EUR")
    6. End Sub
    7. Private Sub Send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    8. WebBrowser.Document.GetElementById("bitcoin").InnerText = ListBox1.Text 'ID Bitcoin (Dachte ich liste die namen so in der listbox)
    9. WebBrowser.Document.GetElementById("litecoin").InnerText = ListBox1.Text 'ID litecoin (Dachte ich liste die namen so in der listbox)
    10. WebBrowser.Document.GetElementById("ripple").InnerText = ListBox1.Text 'ID ripple (Dachte ich liste die namen so in der listbox)
    11. WebBrowser.Document.Forms(0).InvokeMember("Refresh")
    12. Dim quellcode As String = WebBrowser.DocumentText
    13. Dim anfang As String = "id" 'Was vor dem Objekt steht
    14. Dim ende As String = "," 'Was dahinter steht
    15. Dim quellcodeSplit As String
    16. quellcodeSplit = Split(quellcode, anfang, 5)(1) 'Kp was hab das Copy Pasted
    17. quellcodeSplit = Split(quellcodeSplit, ende, 6)(0) 'Kp was hab das Copy Pasted
    18. MsgBox(quellcodeSplit) 'Was ausgelesen wurde
    19. End Sub
    20. End Class


    ich hatte da einen alten code von mir von der platte genutzt , nun musste ich leider feststellen das er die json runterladen statt auslesen will

    daher wäre ich ziemlich dankebar über hilfe , da ich noch ein ziemlicher noob und ganz am anfang bin und keine ahnung hab wie ich das jetz umsetzen soll

    Lg
    Hallo!

    Ich hab bei jsonutils.com/ eine Klasse generiert, vllt. hilft Dir die ja weiter!

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class JSON_ROOT
    2. Public Property id As String
    3. Public Property name As String
    4. Public Property symbol As String
    5. Public Property rank As String
    6. Public Property price_usd As String
    7. Public Property price_btc As String
    8. Public Property 24h_volume_usd As String
    9. Public Property market_cap_usd As String
    10. Public Property available_supply As String
    11. Public Property total_supply As String
    12. Public Property max_supply As String
    13. Public Property percent_change_1h As String
    14. Public Property percent_change_24h As String
    15. Public Property percent_change_7d As String
    16. Public Property last_updated As String
    17. End Class



    Ich nutze für JSON die API von Newtonsoft..
    ..die binde ich dann mit

    VB.NET-Quellcode

    1. Imports Newtonsoft.Json
    2. Imports Newtonsoft.Json.Linq
    3. Public Shared Property jsonResult As JSON_ROOT
    4. Public Shared Function _deserializeJSON(ByVal _json As String) As JSON_ROOT
    5. jsonResult = JsonConvert.DeserializeObject(Of JSON_ROOT)(_json)
    6. Return jsonResult
    7. End Function

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