-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by TERWI,
7. Jan 2022
@TiGü, Uwe
Ich hab mir das hier zum Testen mal zusammengelaubt, nur um den Sendungsnamen zu lesen:
jsonObj := jsonobj.Values as TJSONObject;
for jsonpair in jsonObj do begin
ZATEPG.Log('UPDEPG', Format('Channel: %s',));
for item in (jsonpair.JsonValue as TJSONArray) do
begin
s := (item as TJSONObject).GetValue('t').Value; // <- FEHLER ???
...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by TERWI,
24. Dez 2021
Danke dir, Uwe. Das werde ich zeitnah mal testen.
Da fehlen logo noch etliche Daten in TEPGInfo.
Die Klasse erweitern ist sicher nicht das Problem, aber ....
Die Daten (erweiterte EPG-Texte/Beschreibungen) kommen aus einer 2ten Datei separat je Sender zu laden.
Funzt das im Prinzip genauso ?
Dito die Logo's zum Sender und 'Live-Pics" vom Programm, welche sich 'im Zeitraffer' (alle 15...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by TERWI,
22. Dez 2021
@TiGü
...irgendwie ist das doch das gleiche wie in meinem Post #27, nur etwas anders mit mehr Info.
Was ist schneller als was ? Uwe's Version oder die von jobo oder TiGü... 'per Json-Hand filetiert' ...
Geschwindigkeit ist bei mir bei den eher kleinen Datenmengen (< 1MByte) nicht so die Wichtgkeit.
Ich lege Wert drauf, dass ich das verstanden habe was ich/andere da geproggt haben und für...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by TERWI,
22. Dez 2021
HA - ich habs raus !
// https://www.generacodice.com/en/articolo/4308375/how-to-parse-nested-json-object-in-delphi-xe2
procedure TForm1.ParseJson(data : string);
var
JsonObj : TJSONObject;
JsonValue : TJSonValue;
chl : TJSonValue;
dat : TJSonValue;
JsonPair : TJSONPair;
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by TERWI,
22. Dez 2021
Wow, so viel Code ! Danke euch allen. Aber wie immer das ABER:
@Delphi.Narium
So was in der Art hab ich hier schon für die Vorgänger-Datenversion.
Das wollte ich eigentlich etwas einfacher und übersichtlicher haben.
@jobo
Hm, auch noch SQL/Datenbank mit ins Boot ist eigentlich weit am Ziel vorbei...
Und ja: JSON (einfach) per Hand zu zerlegen ist die Intention. Siehe weiter unten.
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by TERWI,
21. Dez 2021
Ich versuche noch mal, das reelle JSON in Post #9 zu beschreiben und wie ich es bisher "zu Fuß" in vorherigen Datenversion gelesen habe:
Das 'äußere' Objekt namens "channels" interessiert mich nicht.
Eine äußere Schleife liest dann alle TV-Sendernamen durch (bis ca. 150)
Die brauche ich nicht alle, nur bestimmte.
Unterhalb der jeweiligen Sendernamen liegen dann sozusagen Listen aus...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by TERWI,
21. Dez 2021
@Aviator
Nein das habe ich nicht überlesen, sondern gut eine 1/2 Stunde drüber gegrübelt, wie das funktiert. Ohne Ergebnis.
Dein JSON ist auch leicht anders als meiner - siehe auch mein Anhang in #9 mit dem reellen JSON.
Ich denke der Unterschied und die Art das zu parsen ist hier sehr wichtig ?!
Problem bzw. wichtig ist:
- ich will alle Einträge (Bloack_A -> _Z) durchlaufen und deren...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by TERWI,
21. Dez 2021
Grins. Kann es sein, das der Ursprung von mir stammt ?
Liest sich im großen und ganzen wie meine Zat-Lib ... 8-)
Mein Proggie läufz ganz nett - nur leider noch ohne vollständige EPG-Übersicht.
Mit Zatto-V2 meine ich auch die Datenversion, die man von Zattoo (hier EWE-Tel) lädt.
Mittlerweile ist es V3 und das geht eben anders. Sie 1. Posting / mein Datenanhang ein paar Post weiter vorne.
...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by TERWI,
21. Dez 2021
Wie ich schon sagte: ... ja es gibt reichlich ....
Aber ich sehe irgendwie den Wald vor lauter JSON nicht mehr.
Ich bekomme eben noch ein JSON-Objekt aus dem String hin.
Aber wie "extrahiere" ich daraus das Array mit einer Loop ?
Und wie lese ich die Namen der Einträge (ohne Wert ?) ?
Ein kleiner 5-Zeiler oder so wäre hilfreicher als Verweise auf Libraries und Ableitungen daraus.
Oft hilft...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by TERWI,
21. Dez 2021
wieder gelöscht...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by TERWI,
21. Dez 2021
Hier mal eine Testdatei mit Daten für 3 Stunden EPG.
Musste ich packen, weil zu groß.
Edith:
Lt. div. JSON-Validatoren im Netz sind die Daten gültig.
Ich bekomme auch eine hübsche Baumansicht.
Wenn es denn doch (merkwürdiges) Standard-JSON ist, sollte man das doch auch mit Bordmitteln auswerten können...
@Aviator
Meine Versuche bisher mit Copy6Paste aus dem Netz angepasst funktionieren...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by TERWI,
21. Dez 2021
... das ist mir auch schon klar, hatte ich ja auch in etwa so geschrieben.
Die Quizfrage ist nur: Wie komm ich an die Daten & Namen in einer Schleife und Wie frage ich die Werte-Arrays im Array-Eintrag ab / prüfe die ?
Mit Denkanstoß mente ich ein paar hilfreiche Zeilen Code.
OOops - da hat sich was überschnitten.
Merkwürdig ?
Nein, die Daten sehen vom Format / Klammerstellung ( {} und...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by TERWI,
21. Dez 2021
Na logo habe ich auch schon rumgekugelt... aber finde nirgends was für Dummies, die das erste mal damit hantieren.
Zudem sehen die JSON-Daten in den Beispielen alle irgendwie anders aus (auch von den Klammerstellungen).
"Blöcke" wird hier wohl das ganze Array heissen, gibt's nur 1x im Kopf.
"Block_A" bis "Block_Z" sind die jeweiligen Namen der Array-Einträge ?!
Diese Namen kenne ich nicht...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by TERWI,
20. Dez 2021
... eine absoluter JSON-Laie braucht Hilfe:
Wie lese ich einfach und schnell Daten mit folgendem Aufbau ein ?
Hab bisher mit JSON noch nix gemacht.
Die Reihenfolge der Daten in den Blöcken kann je nach Quelle unterschiedlich sein.
Speichern will ich das ganze in einer TList aus Records
{"Blöcke":
{"Block_A":
,
"Liste_2":,
