Ich versuche eine App zu erstellen, mit der ich Live-Währungswerte online abrufen kann. Ich habe apilayer
verwendet und ich habe die gewünschten Daten mit Ausnahme des endgültigen Währungswerts erfolgreich abgerufen. Ich bin mir nicht sicher, wie ich den Wert im Knoten "Anführungszeichen" lesen soll.Wie kann man den Wert von "Quotes" in diesem JSON-Format abrufen?
Jason Ergebnis aus API:
{
"success":true,
"terms":"https:\/\/currencylayer.com\/terms",
"privacy":"https:\/\/currencylayer.com\/privacy",
"timestamp":1514567346,
"source":"USD",
"quotes":{
"USDPHP":49.950001
}
}
Mit dieser:
Dim req As HttpWebRequest
Dim res As HttpWebResponse = Nothing
Dim rdr As StreamReader
req = DirectCast(WebRequest.Create("http://apilayer.net/api/live?access_key=xxKeyRemovedxx¤cies=PHP&format=1"), HttpWebRequest)`
res = DirectCast(req.GetResponse, HttpWebResponse)
rdr = New StreamReader(res.GetResponseStream)
Dim jsonresp As String = rdr.ReadToEnd
Dim jResuldict = JsonConvert.DeserializeObject(Of Dictionary(Of String, `Object))(jsonresp)`
Dim qts = jResuldict.Item("quotes").ToString
MsgBox(qts)
Ergebnis ist:
{
"USDPHP":49.950001
}
Ich wollte nur den Wert innerhalb USDPHP
abzurufen, die 49.95 ist. Damit kann ich diesen Wert für die Konvertierung verwenden.
Was fehlt mir?
Wenn Sie nur eine Sache benötigen, analysieren Sie sie, anstatt zu versuchen, sie zu deserialisieren. – Plutonix