This browser is no longer supported.
Upgrade to Microsoft Edge to take advantage of the latest features, security updates, and technical support.
I'm trying to scrap the key values from This website API and it seems the json format it's not an array. I'm working with console .Net core 6.0 using System.Text.Json.Nodes
The code I'm using is :
Dim streamData As Stream = Nothing
Using http As HttpClient = New HttpClient
Dim url As String = "https://api.hotbit.io/api/v1/market.status24h"
Dim t As Task(Of Stream) = http.GetStreamAsync(url)
streamData = t.Result
End Using
Dim jsonResponse As JsonNode = JsonNode.Parse(streamData)
Dim jsonData As JsonNode = jsonResponse("result")
Dim c As String = String.Empty
For Each jsonCurrency As JsonNode In jsonData.AsObject
c += jsonCurrency("last").ToString + " "
Next
I took that code from StackOverFlow but that code is working great in that case because that Json contains arrays. In my case, this Json doesn't contain any array, so I'm getting the error:
Cannot convert type 'KeyValuePair(Of String, JsonNode)' in JsonNode
I want to parse and get all the values of the property "last".
Is there a way to make that code work in my case?
I'm trying to avoid to write all the properties because they are more than 1000 values
Thanks
To get the values of "last" using your approach, try this fragment:
Dim result As JsonObject = jsonResponse("result").AsObject
For Each kvp In result.AsEnumerable
c &= kvp.Value("last").ToString & ", "
Next
Hey Viorel, I realized that the code I've posted works only for .net core, but I just realized that I need to use a .net framework solution in my case..
I converted my code for framework 4.8 but I got 2 errors with your code
Dim jsonString As String
Using http As HttpClient = New HttpClient
Dim url As String = "API URL"
Dim streamData As Stream = Await http.GetStreamAsync(url)
Using sr As StreamReader = New StreamReader(streamData)
jsonString = sr.ReadToEnd
End Using
streamData.Close()
End Using
Dim jsonResponse As JObject = JObject.Parse(jsonString)
Dim result As JObject = CType(jsonResponse("data"), JObject)
Dim c As String = String.Empty
For Each kvp In result.AsEnumerable
c &= kvp.Value("key").ToString & ", "
Next
errors: 'AsEnumerable' is not a member of 'JObject'.
Option Strict On disallows late binding. ( on the line c &= kvp.Value("key").ToString & ", " )
Your code works perfectly for .net core solution, hope you don't mind me asking to you for a framework solution.
Thanks
If it can help, I'm working on this Json and the keys I'm interested on is "amount"
I think that the original code works in .NET Framework after adding the "System.Text.Json" package using NuGet manager.
To get all of "amount" values, try this code:
Dim jsonResponse As JsonNode
Using http As HttpClient = New HttpClient
Dim url As String = "https://pastebin.com/raw/t2SbC4pd"
jsonResponse = JsonNode.Parse(http.GetStreamAsync(url).Result)
End Using
Dim result = jsonResponse("result").AsObject
Dim c As String = ""
For Each kvp In result.AsEnumerable
Dim records = kvp.Value("records").AsArray
For Each r In records
Dim amount As String = r("amount").AsValue.ToString
c &= amount & ", "
Next
Next
Thanks Viorel,
How can I prevent errors in this json case "records":null ?
Is this code fully async? I get form freeze when using it under a timer_tick event with 1000 ms interval.