vb.net Deserialize echonest JSON response

vb.net Deserialize echonest JSON response (12 Beiträge, 392 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

Hallo,

ich versuche schon seit einiger Zeit einen JSON Response aus dem echonet Projekt ( http://the.echonest.com/  ) in vb.net zu zerpflücken.

Beispiel Response:
https://forum.geizhals.at/files/203513/response.txt

Längere google Sessions habe ich schon hinter mir - jedoch ohne Erfolg!
Bitte keine C# Codes da ich die Erfahrung gemacht habe, das die Konverter nicht immer zum Ziel führen.

Ziel wäre es den Response via Foreach zu deserialisieren und am besten in ein für mich verdauliches Format z.B. Listview Item mit subitems oder einem Array oder ähnliches zu übersetzen.

z.B.:
        Dim lvResponse As ListView
        lvResponse = New ListView
        lvResponse.Columns.Add("Index")
        lvResponse.Columns.Add("Score")
        lvResponse.Columns.Add("Title")
        lvResponse.Columns.Add("Message")
        lvResponse.Columns.Add("ArtistID")
        lvResponse.Columns.Add("Artist")
        lvResponse.Columns.Add("ID")

der erste Schritt (deserialize) ist ja noch einfach:

Dim dict = jss.Deserialize(Of Dictionary(Of String, Object))(JSON)
Wobei "JSON" ein String ist der den Response enthält.

Zurück bekomme ich folgende Struktur -> Siehe Bild

Vielleicht kann mir jemand erklären/zeigen wie man sich in so einem JSON Response via ForEach oder ähnlichem bewegt und die Daten richtig abfragt?!

Für Ansätze wäre ich dankbar!

<-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><->

Sagte ich ja schon ... wasined

Zuerst brauchst du Klassen welche die JSON Objekte repräsentieren. Die musst du nicht manuell erstellen, es gibt EDIT->Paste Special->Paste as Json classes. Wenn du keine web extensions in VS hast gibt es Alternativen:
http://json2csharp.com/
https://jsonclassgenerator.codeplex.com/
Die letzten beiden Methoden sind C# spezifisch, wie rund 90% aller .net Ressourcen, weswegen du lieber gleich C# statt VB.net lernen solltest. Die einfachen JSON Klassen sollte aber jeder Konverter schaffen. Schlimmstenfalls kannst du die Klassen zu einer .dll kompilieren und dir den garantiert richtigen VB.net Code mittels ILSPY holen.

In deinem Fall also:

Public Class Rootobject
	Public Property response() As Response
End Class

Public Class Response
	Public Property status() As Status
	Public Property songs() As Song()
End Class

Public Class Status
	Public Property version() As String
	Public Property code() As Integer
	Public Property message() As String
End Class

Public Class Song
	Public Property tag() As Integer
	Public Property [error]() As String
	Public Property score() As Integer
	Public Property title() As String
	Public Property message() As String
	Public Property artist_id() As String
	Public Property artist_name() As String
	Public Property id() As String
End Class

Jetzt hast du deine Klassen.

Nun brauchst du eine Referenz auf System.Web.Extensions und rufst dann folgendes auf.

(json ist hier ein String)

Imports System.Web.Script.Serialization
Dim rootObject As Rootobject = New JavaScriptSerializer().Deserialize(Of Rootobject)(json)

Das Objekt ist sehr logisch aufgebaut und du solltest es mittels Debugger sofort verstehen:
Beispiel zur Anwendung:

		If (rootObject.response.status.code = 0) Then
			For Each song As Song In rootObject.response.songs
				Console.WriteLine(song.title)
			Next
		End If

test

27.12.2014, 08:38 Uhr - Editiert von Diabolo2000, alte Version: hier

DAS nenn ich mal eine dedizierte SUPER Antwort!
DANKE!

Das mit dem C# lernen .... bring das mal jemanden bei der mit einem Sharp 1401 begonnen hat BASIC zu programmieren

Zu lange ist mein Hirn damit verpestet!

Ich google das nun schon seit einiger Zeit - aber so deutlich wie Du es mir gerade gezeigt hast, war es nicht zu finden! Nochmals Danke!

In diesem Sinne guten Rutsch ins neue Jahr!

lg
wasined

<-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><->

Sagte ich ja schon ... wasined

lg
wasined

<-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><->

Sagte ich ja schon ... wasined

Probier es damit

Public Class Rootobject
Public Property response() As Response
End Class

Public Class Response
Public Property status() As Status
Public Property songs() As Song()
End Class

Public Class Status
Public Property version() As String
Public Property code() As Integer
Public Property message() As String
End Class

Public Class Song
Public Property tag() As Integer
Public Property [error]() As String
Public Property score() As Integer
Public Property title() As String
Public Property message() As String
Public Property artist_id() As String
Public Property artist_name() As String
Public Property id() As String
End Class

test

Mea Culpa! Big sorry!

ich hab das falsche Response File verlinkt:

https://forum.geizhals.at/files/203513/json.txt

Das ist das richtige - habe mich schon gewundert wieso die Klasse wieder gleich aussieht ...

Schaust du nochmals bitte danke!

lg
wasined
<-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><->

Sagte ich ja schon ... wasined

Paste Special ist offensichtlich fehlerhaft wenn man VB.net verwendet.
Properties die mehr als ein Subelement beinhalten (results, releasegroups, artists) werden nicht als array deklariert...
Die Klammern () müssen ergänzt werden.

Public Class Rootobject
Public Property status As String
Public Property results As Result()
End Class

Public Class Result
Public Property score As Single
Public Property id As String
Public Property recordings As Recording()
End Class

Public Class Recording
Public Property duration As Integer
Public Property releasegroups As Releasegroup()
Public Property title As String
Public Property id As String
Public Property artists As Artist()
End Class

Public Class Releasegroup
Public Property type As String
Public Property id As String
Public Property title As String
End Class

Public Class Artist
Public Property id As String
Public Property name As String
End Class

test

05.01.2015, 13:54 Uhr - Editiert von Diabolo2000, alte Version: hier

Bingo - genau das wars! DANKE!
Das ist aber dann auch fies wenn das Werkzeug Fehler macht

Ich nehme an das du dies wieder in C#  übersetzt gehabt hast?

Wenn ich das jetzt sinngemäß aus der ersten Lösung übersetze:

If (rootObject.status = "ok") Then
            For Each recording As Recording In rootObject.results.recordings
                Console.WriteLine(Recording.title)
            Next
        End If

läßt er mich aber nicht weil er meint das schon results nicht richtig ist geschweige denn recordings.
Laut der Klasse wäre das doch ichtig oder?

Lg
wasined

<-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><->

Sagte ich ja schon ... wasined

Ich nehme an das du dies wieder in C# übersetzt gehabt
hast?

Ganz so schwer ist die VB.net Syntax auch nicht.

rootObject.results.recordings

Results hat kein Feld mit dem Namen recordings.
Results ist ein Array das Result Objekte beinhaltet.

Du musst entweder durch results iterieren oder wenn du dich darauf verlassen kannst, dass es immer nur ein result gibt das erste result verwenden.

Denkanstoß:

For Each result As Result In rootObject.results
	For Each recording As Recording In result.recordings
		Console.WriteLine(recording.title)
	Next
Next

test

Super! Ich glaube es jetzt verstanden zu haben!

Ich musste nochmals schachteln weil auch Artist wieder ein Array ist:

        If (rootObject.status = "ok") Then

            For Each result As Result In rootObject.results
                For Each recording As Recording In result.recordings
                    For Each Artist As Artist In recording.artists
                        TextBox1.Text += Artist.name + " - " + recording.title

                    Next
                Next
            Next

Ich sage nochmals herzlichen Dank dazu!

lg
wasined

<-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><->

Sagte ich ja schon ... wasined

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung