JSON Elemente auslesen

dive26 · 26. Dezember 2021, 20:42

Hallo Leute,

normalerweise lese ich JSON Dateien mit dem Dictonary aus. Aber leider habe ich aktuell eine sehr "verzwickte" JSON, wo ich mit dem Dictionary nicht weit springe.

Die Datei enthält jeweils Blöcke mit Color, length, rects, start und text.
Wobei mich hier jeweils nur die Werte "color" und die rects interessieren.
Solange in jedem Color-Elementnur ein Rects Element enthalten ist, geht das einwandfrei mit dem Dictionary auszulesen.
Beim ersten Element, sind jedoch 3 rects-Werte unter einem color Element gelistet.

Ich bräuchte aus den Infos folgende Werte:

color | x | y | width | height

Wie würdet Ihr das Problem lösen?

Hier die JSON:

VB.NET-Quellcode

{
"highlights": [
[
{
"color": 5,
"length": 1002,
"rects": [
{
"height": 40.019002375296736,
"width": 1070.8830608449466,
"x": 155.00461475073303,
"y": 781.7047980301736
},
{
"height": 40.01900237529708,
"width": 1063.1356314253637,
"x": 153.9380445321778,
"y": 816.9214441294905
},
{
"height": 40.01900237529691,
"width": 994.080794599447,
"x": 153.93583943781545,
"y": 852.138158077865
}
],
"start": 690,
"text": "###"
},
{
"color": 5,
"length": 305,
"rects": [
{
"height": 40.01895148850406,
"width": 1156.5250924080965,
"x": 74.9678567265671,
"y": 1272.6045418419915
}
],
"start": 1695,
"text": "####"
},
{
"color": 5,
"length": 30,
"rects": [
{
"height": 40.019002375296736,
"width": 335.1346853079534,
"x": 74.43469035313987,
"y": 387.1176815803147
}
],
"start": 162,
"text": "###"
}
]
]
}

mrMo · 26. Dezember 2021, 20:45

Ich würde das Objekt nachbauen und mit Newtonsoft deserialisieren.

newtonsoft.com/json

slice · 26. Dezember 2021, 20:45

Ich würde Klassen erstellen, die die Struktur widerspiegeln.

PS: Wie sieht denn dein Code aus? Ich vermute die übersiehst das rects ein Array ist.

Takafusa · 26. Dezember 2021, 20:56

Lass dir die Klassen generieren und nimm wie schon erwähnt Newtonsoft.json.
Hier kannste dir die Klassen in C# generieren lassen. Zwar nicht VB, aber auch dafür gibts Converter.
app.quicktype.io/?l=csharp

Spoiler anzeigen

C#-Quellcode

// <auto-generated />
//
// To parse this JSON data, add NuGet 'Newtonsoft.Json' then do:
//
// using dive26;
//
// var highlights = Highlights.FromJson(jsonString);
namespace dive26
{
using System;
using System.Collections.Generic;
using System.Globalization;
using Newtonsoft.Json;
using Newtonsoft.Json.Converters;
public partial class Highlights
{
[JsonProperty("highlights")]
public List<List<Highlight>> HighlightsHighlights { get; set; }
}
public partial class Highlight
{
[JsonProperty("color")]
public long Color { get; set; }
[JsonProperty("length")]
public long Length { get; set; }
[JsonProperty("rects")]
public List<Rect> Rects { get; set; }
[JsonProperty("start")]
public long Start { get; set; }
[JsonProperty("text")]
public string Text { get; set; }
}
public partial class Rect
{
[JsonProperty("height")]
public double Height { get; set; }
[JsonProperty("width")]
public double Width { get; set; }
[JsonProperty("x")]
public double X { get; set; }
[JsonProperty("y")]
public double Y { get; set; }
}
public partial class Highlights
{
public static Highlights FromJson(string json) => JsonConvert.DeserializeObject<Highlights>(json, dive26.Converter.Settings);
}
public static class Serialize
{
public static string ToJson(this Highlights self) => JsonConvert.SerializeObject(self, dive26.Converter.Settings);
}
internal static class Converter
{
public static readonly JsonSerializerSettings Settings = new JsonSerializerSettings
{
MetadataPropertyHandling = MetadataPropertyHandling.Ignore,
DateParseHandling = DateParseHandling.None,
Converters =
{
new IsoDateTimeConverter { DateTimeStyles = DateTimeStyles.AssumeUniversal }
},
};
}
}

dive26 · 26. Dezember 2021, 21:10

Ich würde das Objekt nachbauen und mit Newtonsoft deserialisieren.

Das wäre auch irgendwie meine Idee.
Ich arbeite (gerne) mit Structure - da kenne ich mich aus. Könnte ich das mit Newtonsoft irgendwie in eine passende Structure einlesen?
Leider habe ich keinen Tau wie ich das angehen soll

Lass dir die Klassen generieren und nimm wie schon erwähnt Newtonsoft.json.

Mit Klassen habe ich so gut wie keine Erfahrungen, aber zur Not arbeite ich mich auch da ein.

Wie sieht denn dein Code aus?

Bis jetzt leider nur eine Mischung aus String-Operationen und Dictionary. Das möchte ich ändern.

Takafusa · 26. Dezember 2021, 21:13

dive26 schrieb:

Mit Klassen habe ich so gut wie keine Erfahrungen, aber zur Not arbeite ich mich auch da ein.

Solltest du nicht nur zur Not machen, arbeiten mit Klassen gehört zu Grundlagen, ohne Klassen ist kein Object-Orientiertes-Programmieren möglich, was zu unwartbaren ellenlangen Spaghetti Code führt. In der Kürze liegt die Würze, das geht nur mit OOP.

Edit: @dive26
5 Minuten arbeit, inkl. anlegen des Projektes. Alle Rects auslesen. Wobei man die KlassenNamen noch verbessern könnte, wie auch den PropertyNamen HighlightsHighlights .

VB.NET-Quellcode

Imports Newtonsoft.Json
Imports System.Runtime.CompilerServices
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim json As String = "{ ""highlights"": [ [ { ""color"": 5, ""length"": 1002, ""rects"": [ { ""height"": 40.019002375296736, ""width"": 1070.8830608449466, ""x"": 155.00461475073303, ""y"": 781.7047980301736 }, { ""height"": 40.01900237529708, ""width"": 1063.1356314253637, ""x"": 153.9380445321778, ""y"": 816.9214441294905 }, { ""height"": 40.01900237529691, ""width"": 994.080794599447, ""x"": 153.93583943781545, ""y"": 852.138158077865 } ], ""start"": 690, ""text"": ""###"" }, { ""color"": 5, ""length"": 305, ""rects"": [ { ""height"": 40.01895148850406, ""width"": 1156.5250924080965, ""x"": 74.9678567265671, ""y"": 1272.6045418419915 } ], ""start"": 1695, ""text"": ""####"" }, { ""color"": 5, ""length"": 30, ""rects"": [ { ""height"": 40.019002375296736, ""width"": 335.1346853079534, ""x"": 74.43469035313987, ""y"": 387.1176815803147 } ], ""start"": 162, ""text"": ""###"" } ] ]}"
Dim j As Highlights = Highlights.FromJson(json)
For Each itm As List(Of Highlight) In j.HighlightsHighlights
For Each itm2 As Highlight In itm
For Each r As Rect In itm2.Rects
Debug.WriteLine($"X:{r.X} Y:{r.Y} Width:{r.Width} Height:{r.Height}")
Next
Next
Next
End Sub
End Class
' <auto-generated />
'
' To parse this JSON data, add NuGet 'Newtonsoft.Json' then do:
'
' using dive26;
'
' var highlights = Highlights.FromJson(jsonString);
Namespace dive26
Partial Public Class Highlights
<JsonProperty("highlights")>
Public Property HighlightsHighlights As List(Of List(Of Highlight))
End Class
Partial Public Class Highlight
<JsonProperty("color")>
Public Property Color As Long
<JsonProperty("length")>
Public Property Length As Long
<JsonProperty("rects")>
Public Property Rects As List(Of Rect)
<JsonProperty("start")>
Public Property Start As Long
<JsonProperty("text")>
Public Property Text As String
End Class
Partial Public Class Rect
<JsonProperty("height")>
Public Property Height As Double
<JsonProperty("width")>
Public Property Width As Double
<JsonProperty("x")>
Public Property X As Double
<JsonProperty("y")>
Public Property Y As Double
End Class
Partial Public Class Highlights
Public Shared Function FromJson(ByVal json As String) As Highlights
Return JsonConvert.DeserializeObject(Of Highlights)(json, Settings)
End Function
End Class
Public Module Serialize
<Extension()>
Public Function ToJson(ByVal self As Highlights) As String
Return JsonConvert.SerializeObject(self, Settings)
End Function
End Module
Friend Module Converter
Public ReadOnly Settings As JsonSerializerSettings = New JsonSerializerSettings With {
.MetadataPropertyHandling = MetadataPropertyHandling.Ignore,
.DateParseHandling = DateParseHandling.None
}
End Module
End Namespace

dive26 · 26. Dezember 2021, 22:01

@Takafusa
Du bist ein Schatz.

Solltest du nicht nur zur Not machen, arbeiten mit Klassen gehört zu Grundlagen, ohne Klassen ist kein Object-Orientiertes-Programmieren möglich, was zu unwartbaren ellenlangen Spaghetti Code führt

Da hast Du natürlich vollkommen Recht. Aber mit Deinem Code ist schon einmal der Anfang dazu gemacht. Ich hatte in der Tat schon angefangen eine Klasse zu schreiben, wusste aber nicht so genau wie ich die rects in eine "Unterliste" packen sollte. As List(Of Rect) wärs gewesen. Wär ich nie drauf gekommen. Vielen vielen herzlichen Dank.

Hier mein ganzer Code. Wobei ich die Daten dann wieder in die bereits existierende Structure gefüllt habe, da alles andere ja schon fertig ausprogrammiert war.

VB.NET-Quellcode

Structure HighLighters_struct
Dim Farbe As Integer
Dim x As Double
Dim y As Double
Dim breite As Double
Dim hoehe As Double
Dim textlaenge As Integer
Dim textinhalt As String
Dim start As Integer
End Structure
Public HighLighters(2000) As HighLighters_struct

VB.NET-Quellcode

Option Strict On
Imports Newtonsoft.Json
Imports System.Runtime.CompilerServices
Imports RMHLJSONParser
Module Newton
Public Sub LeseHighLighterJSON(JSONDatei As String)
ReDim HighLighters(2000)
Dim LetztesElementMitFarbInfo As Integer = 0
Dim Zaehler As Integer = 0
Dim JSONString As String = My.Computer.FileSystem.ReadAllText(JSONDatei)
Dim j As Highlights = Highlights.FromJson(JSONString)
For Each itm As List(Of Highlight) In j.HighlighterElemente
For Each itm2 As Highlight In itm
'Schleife für jede Markierung (enthält Color)
HighLighters(Zaehler).Farbe = CInt(itm2.Color)
HighLighters(Zaehler).textlaenge = CInt(itm2.Length)
HighLighters(Zaehler).textinhalt = itm2.Text.ToString
HighLighters(Zaehler).start = CInt(itm2.Start)
LetztesElementMitFarbInfo = Zaehler
For Each r As Rect In itm2.Rects
'Schleife für jedes rect
HighLighters(Zaehler).x = CDbl(r.X)
HighLighters(Zaehler).y = CDbl(r.Y)
HighLighters(Zaehler).breite = CDbl(r.Width)
HighLighters(Zaehler).hoehe = CDbl(r.Height)
If HighLighters(Zaehler).Farbe = 0 Then
'Erbt die Eigenschaften des letzten Highlighters, falls nicht vorhanden
HighLighters(Zaehler).Farbe = HighLighters(LetztesElementMitFarbInfo).Farbe
HighLighters(Zaehler).textlaenge = HighLighters(LetztesElementMitFarbInfo).textlaenge
HighLighters(Zaehler).textinhalt = HighLighters(LetztesElementMitFarbInfo).textinhalt
HighLighters(Zaehler).start = HighLighters(LetztesElementMitFarbInfo).start
End If
Zaehler += 1
Next
Next
Next
End Sub
End Module
Namespace Global.RMHLJSONParser
Partial Public Class Highlights
<JsonProperty("highlights")>
Public Property HighlighterElemente As List(Of List(Of Highlight))
End Class
Partial Public Class Highlight
<JsonProperty("color")>
Public Property Color As Long
<JsonProperty("length")>
Public Property Length As Long
<JsonProperty("rects")>
Public Property Rects As List(Of Rect)
<JsonProperty("start")>
Public Property Start As Long
<JsonProperty("text")>
Public Property Text As String
End Class
Partial Public Class Rect
<JsonProperty("height")>
Public Property Height As Double
<JsonProperty("width")>
Public Property Width As Double
<JsonProperty("x")>
Public Property X As Double
<JsonProperty("y")>
Public Property Y As Double
End Class
Partial Public Class Highlights
Public Shared Function FromJson(ByVal json As String) As Highlights
Return JsonConvert.DeserializeObject(Of Highlights)(json, Settings)
End Function
End Class
Public Module Serialize
<Extension()>
Public Function ToJson(ByVal self As Highlights) As String
Return JsonConvert.SerializeObject(self, Settings)
End Function
End Module
Friend Module Converter
Public ReadOnly Settings As New JsonSerializerSettings With {
.MetadataPropertyHandling = MetadataPropertyHandling.Ignore,
.DateParseHandling = DateParseHandling.None
}
End Module
End Namespace

Takafusa · 26. Dezember 2021, 22:06

dive26 schrieb:

As List(Of Rect) wärs gewesen

Man hätte auch mit nem Array was machen können. Aber ich weiss ja du hattest es damit auch nicht so(List of T), daher ganz fies beim Json->Class-Generator List(of T) anstatt Array gewählt(kann man einstellen). War scheinbar eine gute Idee, scheinst dich damit anzufreunden, kann dir irgendwann vorteilhaft sein.

Kasi · 28. Dezember 2021, 10:25

hier eine Variante mit RegEx

VB.NET-Quellcode

Imports System.Text.RegularExpressions
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim json As String = "{ ""highlights"": [ [ { ""color"": 5, ""length"": 1002, ""rects"": [ { ""height"": 40.019002375296736, ""width"": 1070.8830608449466, ""x"": 155.00461475073303, ""y"": 781.7047980301736 }, { ""height"": 40.01900237529708, ""width"": 1063.1356314253637, ""x"": 153.9380445321778, ""y"": 816.9214441294905 }, { ""height"": 40.01900237529691, ""width"": 994.080794599447, ""x"": 153.93583943781545, ""y"": 852.138158077865 } ], ""start"": 690, ""text"": ""###"" }, { ""color"": 5, ""length"": 305, ""rects"": [ { ""height"": 40.01895148850406, ""width"": 1156.5250924080965, ""x"": 74.9678567265671, ""y"": 1272.6045418419915 } ], ""start"": 1695, ""text"": ""####"" }, { ""color"": 5, ""length"": 30, ""rects"": [ { ""height"": 40.019002375296736, ""width"": 335.1346853079534, ""x"": 74.43469035313987, ""y"": 387.1176815803147 } ], ""start"": 162, ""text"": ""###"" } ] ]}"
'Dim json As String = IO.File.ReadAllText("dein Pfad zur Datei")
Dim r As New Regex("(?:\""|\')([^""]*)(?:\""|\')(?=:)(?:\:\s*)(?:\"")?(true|false|[-0-9]+[\.]*[\d]*(?=,)|[0-9a-zA-Z\@\:\,\/\!\+\-\.\$\ \\\']*)(?:\"")?")
Dim matches As MatchCollection = r.Matches(json)
For Each m As Match In matches
'alles:
'Debug.WriteLine(m.Groups(1).Value & ":" & m.Groups(2).Value)
'filtern:
If m.Groups(1).Value.StartsWith("length") Then
Debug.WriteLine(m.Groups(1).Value & ":" & m.Groups(2).Value)
End If
Next
End Sub

an alle, Guten Rutsch ins neue Jahr

Takafusa · 28. Dezember 2021, 10:40

Hihi, mit der Kanone auf Spatzen schießen und das Rad dabei neu erfinden, ich erfinde zwar auch gern Räder neu, aber IMO ist Newtonsoft.Json die bessere Variante als Regex, denn das ist genau für diesen Zweck entwickelt worden und ist sogar OpenSource. Zudem ist es doch schöner mit dafür erstellten Klassen und De-/Seriallisierung zu arbeiten anstatt mit Regex-Gruppen, auch empfinde ich das als vielfach übersichtlicher.

INOPIAE · 9. September 2023, 15:07

Takafusa schrieb:

' To parse this JSON data, add NuGet 'Newtonsoft.Json' then do:
'
' using dive26;
'
' var highlights = Highlights.FromJson(jsonString);

Wie bzw. wo wird dieses Kommando abgesetzt?

VaporiZed · 9. September 2023, 15:20

Das wird uns Takafusa nicht mehr beantworten, da der User uns vor einiger Zeit verlassen hat.

*closed

JSON Elemente auslesen

JSON Elemente auslesen

VB.NET-Quellcode

C#-Quellcode

dive26 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

dive26 schrieb:

VB.NET-Quellcode

Takafusa schrieb:

Ähnliche Themen

7 Benutzer haben hier geschrieben