Hallo Michael,
Dein ShowJSON gefällt mir sehr gut. Wenn Du nichts dagegen hast,. baue ich es als Json("Hash", js) in XProfan ein. Parameter ist eine Json-Objekt-ID, das Ergebnis ist das Hash-Array.
Gruß
Roland
Hallo Michael,
Dein ShowJSON gefällt mir sehr gut. Wenn Du nichts dagegen hast,. baue ich es als Json("Hash", js) in XProfan ein. Parameter ist eine Json-Objekt-ID, das Ergebnis ist das Hash-Array.
Gruß
Roland
Klar doch...
Und jetzt habe ich es in der seit heute aktuellen Subscriptionsversion eingebaut:
ftp("ListDir", Datei[, modus])
Wenn Modus weggelassen wird oder 0 ist, wird wie bisher ein ausführliches Listing in die Datei geschriebn, ist der Modus <> 0, stehen in der Datei nur die Dateinamen, die etwa mit move("FileToList", Datei) in die Listboxliste geschrieben werden können.
HashArray[] = json("Hash", Jsondatei)
Die JSON-Datei wird in ein Hash-Array eingelesen!
Boolsche Werte haben den "*TRUE*" oder "*FALSE*".
Eine Liste hat den Wert "[n]", ein Objekt den Wert "{n}", wobei n das entsprechende Handle ist. Ein Beispiel:
Declare string Dateiname, Schluessel, Wert, \
long js, \
hash HashArray[]
window 1500,1000
Dateiname = LoadFile$("Wähle eine JSON-Datei","*.json")
If Dateiname > ""
js = Create("json", Dateiname)
HashArray[] = json("Hash", js)
ForEach HashArray[], Schluessel, Wert
Print Schluessel + " = " + Wert
EndFor
EndIf
Print
Print "Taste drücken ..."
WaitInput
End
Alles anzeigen
Das Ergebnis sieht z.B. so aus:
Herausgeber = Xema
Nummer = 1234-5678-9012-3456
Deckung = 2000000
Waehrung = EURO
Inhaber = {2}
Inhaber|Name = Mustermann
Inhaber|Vorname = Max
Inhaber|maennlich = *TRUE*
Inhaber|Hobbys = [3]
Inhaber|Hobbys|0 = Reiten
Inhaber|Hobbys|1 = Golfen
Inhaber|Hobbys|2 = Lesen
Inhaber|Alter = 42
Inhaber|Kinder = [4]
Inhaber|Partner = *NULL*
Alles anzeigen
Sie haben noch kein Benutzerkonto auf unserer Seite? Registrieren Sie sich kostenlos und nehmen Sie an unserer Community teil!