Zugriff aus JSON via API

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Dave1337.

    Zugriff aus JSON via API

    Guten Tag,

    ich probiere hier schon den ganzen Tag rum und komme nicht weiter :(

    Ich will über eine API auf eine JSON-Datei zugreifen und nur gewisse Felder auslesen. Mit dem Code den ich bis jetzt habe kann ich auch soweit das Ganze File auslesen, aber wenn ich nur auf ein Token verweise bekomme ich eine Fehlermeldung.

    Ich bekomme den Fehler "Newtonsoft.Json.Linq.JToken.SelectToken(...) hat Nothing zurückgegeben."



    VB.NET-Quellcode

    1. Imports Newtonsoft.Json
    2. Imports Newtonsoft.Json.Linq
    3. Imports System.IO
    4. Imports System.Net
    6. Private Sub btnLoadIMVDb_Click(sender As Object, e As EventArgs) Handles btnLoadIMVDb.Click
    8. Dim url As String = "Http://imvdb.com/api/v1/search/videos?q=Abba+Mamma+Mia"
    9. Dim request As HttpWebRequest = HttpWebRequest.Create(url)
    11. request.Proxy = Nothing
    12. request.UserAgent = "test"
    14. Dim response As HttpWebResponse = request.GetResponse
    15. Dim Stream As System.IO.Stream = response.GetResponseStream
    17. Dim StreamReader As New System.IO.StreamReader(Stream)
    18. Dim Data As String = StreamReader.ReadToEnd
    19. StreamReader.Close()
    21. Dim jsonObject As JObject = JObject.Parse(Data)
    23. Console.WriteLine("Song: " & jsonObject.SelectToken("song_title").ToString)
    24. End Sub


    Hat jemand einen Tipp für mich?

    Vielen Dank
    David

    CodeTags korrigiert ~VaporiZed

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

    Die verschieden Song-Titles stecken im Array "results". Das Root-Object kennt keinen "song_title" und wirft daher den Fehler. Das Root-Object kennt nur "results".

    VB.NET-Quellcode

    1. ​
    2. Public Class Form1
    3. Private Async Function GetData() As Task
    4. Using wC As New WebClient() With {.Proxy = Nothing}
    5. Dim data As String = String.Empty
    6. Try
    7. data = Await wC.DownloadStringTaskAsync("http://imvdb.com/api/v1/search/videos?q=Abba+Mamma+Mia")
    8. Catch ex As Exception
    9. Return
    10. End Try
    12. If data <> String.Empty Then
    13. Dim j As JObject = JObject.Parse(data)
    14. For i = 0 To j.SelectToken("results").Count() - 1
    15. MessageBox.Show(j.SelectToken("results")(i).SelectToken("song_title").ToString())
    16. Next
    17. End If
    18. End Using
    19. End Function
    21. Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    22. Await GetData()
    23. End Sub
    24. End Class
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o