vb.net Deserialize echonest JSON response

Re(8): vb.net Deserialize echonest JSON response

wasined — Mon, 05 Jan 2015 13:52:01 GMT

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

Re(7): vb.net Deserialize echonest JSON response

Diabolo2000 — Mon, 05 Jan 2015 13:33:50 GMT

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

Re(6): vb.net Deserialize echonest JSON response

wasined — Mon, 05 Jan 2015 13:16:23 GMT

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

Re(5): vb.net Deserialize echonest JSON response

Diabolo2000 — Mon, 05 Jan 2015 12:54:03 GMT

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

Re(5): vb.net Deserialize echonest JSON response

Diabolo2000 — Mon, 05 Jan 2015 12:54:03 GMT

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 Klammer () 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

Re(4): vb.net Deserialize echonest JSON response

wasined — Mon, 05 Jan 2015 12:41:34 GMT

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

Re(3): vb.net Deserialize echonest JSON response

Diabolo2000 — Mon, 05 Jan 2015 12:35:57 GMT

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

Re(2): vb.net Deserialize echonest JSON response

wasined — Mon, 05 Jan 2015 12:12:23 GMT

Darf ich dich vielleicht nochmals um Hilfe bitten?

Nachdem ich leider VIEL zu spät erfahren habe das das "identifying" von Echonest ersatzlos mit heute eingestellt wird, musste ich mich um Alternativen umsehen.

Das neue Service hat natürlich eine komplett andere Struktur:
https://forum.geizhals.at/files/203513/response.txt

Dokumentation dazu:
https://acoustid.org/webservice

Ich habe wie du mir gelernt hast die Klassen dazu aus dem JSON erstellt:

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

Und das ganze dann wieder deserialisiert:
Dim rootObject As Rootobject = New JavaScriptSerializer().Deserialize(Of Rootobject)(json)

Leider wirft mir schon der deserializier schon eine Exception:

Eine nicht behandelte Ausnahme des Typs "System.InvalidOperationException" ist in System.Web.Extensions.dll aufgetreten.

Zusätzliche Informationen: Der Typ "MusicFind.Form1+Result" wird für die Deserialisierung eines Arrays nicht unterstützt.

Was mache ich falsch?

Ist zwar nicht Punkt der Diskussion - aber ich verstehe nicht wieso der Response überhaupt ein Array sein soll - weil im Gegensatz zu dem ersten Beispiel gibt er immer nur EIN File(Song retour).
Aber egal - "ER" will es halt so

lg
wasined

Re(2): vb.net Deserialize echonest JSON response

wasined — Sat, 27 Dec 2014 11:51:15 GMT

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

Re: vb.net Deserialize echonest JSON response

Diabolo2000 — Sat, 27 Dec 2014 07:33:20 GMT

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)

Re: vb.net Deserialize echonest JSON response

Diabolo2000 — Sat, 27 Dec 2014 07:33:20 GMT


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

vb.net Deserialize echonest JSON response

wasined — Fri, 26 Dec 2014 16:56:11 GMT

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!