JSON

Hallo,

ich hätte da noch eine Anregung für Version X5, falls es diese mal geben sollte.

Die interne Listboxliste ist ja Dreh - und Angelpunkt und bei den Move-Funktionen

überall present und beliebt.

Gerade in Bezug auf JSON - Listen und in Verbindung zu Move("ToList/ListTo", ....)

wäre sie doch interessant.

Move("ListToJsonlist", Jsonliste)

Move("JsonListToList", Jsonliste)

Das würde das Umkopieren in eine andere Liste, z.B. Listbox mit

Move("ListToHandle", Handle)

sehr beschleunigen. Auch der umgekehrte Weg von Listbox zu JSON - Liste

ist dann interessant.

Klar ist, daß man das auch selber von Hand machen könnte, z.B. mit SubProc.

Aber das könnte man als Ersatz für die vorhandenen Move-Funktionen auch.

Hab mal etwas JSON gespielt.

Interessant sind ja auch die variablen Listen, die man mit

JSON erstellen kann. Da bin ich auf den Gedanken gekommen,

eine kleine Datenbank mit verschiedenen Objekten mit integrierten

Listen zu erstellen.

Heraus gekommen ist das hier :

Declare Long ds1, ds2, ds3, daten, ks, l1, l2, l3, liste1, liste2, liste, anz
Declare String text

WindowTitle "ds1ON - TEST"
Window 640, 800
ds1    = Create("JSON")
ds2    = Create("JSON")
ds3    = Create("JSON")
daten  = Create("JSON")
liste  = Create("JSON")

l1 = Json("NewList")
l2 = Json("NewList")
l3 = Json("NewList")

If ds1
   Json("AddString", ds1, "Nr", "1")
   Json("AddString", ds1, "Name", "Hans Mustermann")
   Json("AddString", ds1, "Ort", "Musterhausen")
   Json("AddString", l1, "Reiten")
   Json("AddString", l1, "Golfen")
   Json("AddString", l1, "Kegeln")
   Json("AddList",   ds1, "Hobbys", l1)
EndIf

If ds2
   Json("AddString", ds2, "Nr", "2")
   Json("AddString", ds2, "Name", "Kurt Meier")
   Json("AddString", ds2, "Ort", "Hamburg")
   Json("AddString", l2, "Schwimmen")
   Json("AddString", l2, "Segeln")
   Json("AddString", l2, "Windsurfen")
   Json("AddString", l2, "Fallschirmspringen")
   Json("AddList",   ds2, "Hobbys", l2)
EndIf

If ds3
   Json("AddString", ds3, "Nr", "3")
   Json("AddString", ds3, "Name", "Egon Maierbär")
   Json("AddString", ds3, "Ort", "Düsseldorf")
   Json("AddString", l3, "Gärtnern")
   Json("AddString", l3, "Wandern")
   Json("AddString", l3, "Skilaufen")
   Json("AddString", l3, "Radfahren")
   Json("AddString", l3, "Tanzen")
   Json("AddList",   ds3, "Hobbys", l3)
EndIf

Json("AddObject", liste, "1", ds1)
Json("AddObject", liste, "2", ds2)
Json("AddObject", liste, "3", ds3)

Json("Write",     liste, "F:\Jsonliste.txt") ' Hier Pfad anpassen.
ks = Create("JSON", "F:\Jsonliste.txt")

anz = Json("Count", ks)

WhileLoop 0, anz - 1
   daten = Json("GetObject", ks, Str$(&LOOP + 1))
   text = Json("TEXT", daten, 1)
   Print text
EndWhile

Print
Print "Ende mit Taste..."

Waitkey

End

Das eignet sich natürlich nur für kleine Datenmengen, also nicht für Hunderte oder

Tausende von Datensätzen. Denkbar wären da vielleicht kleine Einkaufslisten für

jeden Tag oder verschiedene Geschäfte.

Vielleicht kann es ja jemand gebrauchen und es sich auf seine Wünsche abändern..

Was ich noch fragen wollte :

Hat jemand noch zusätzliche Json - Funktionen außer dem Json("Parse,. text) entdeckt,

die RGH vielleicht auch nicht in der Hilfe erwähnt hat ?

Was mir noch fehlt, ist das Löschen (Remove) und Ändern eines Objectes bzw. Wertes.

Oder eine Liste komplett löschen u. ä.

Andernfalls muß ich mal schauen, daß ich was selber über SubProc mache.

Mit Json(Text",..) und Json("Parse,..) müßte ich dann im Json-String rumfriemeln.

Also mit Json("Text",..) den String laden, Einträge löschen bzw. ändern und mit

JSon("Parse,..) wieder zurück in ein JSon-Object schreiben.

Vielleicht hat ja RGH einmal Lust, einen Patch für den Json-Container zu machen.

Ich habe hier mal einige Vorschläge (längst nicht alles, wenn ich mir die Json-Funktionen in

PureBasic so ansehe).

Sowas wäre doch einen Patch wert ?