XProfan X4 mit JSON-Unterstützung

    • 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
      Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD / ATI Radeon HD4770 512 MB / Windows 7(32) - XProfan X3
      AMD Athlon II X2 2,9 GHz / 3 GB RAM / 500 GB HDD / ATI Radeon 3000 (onboard) / Windows 10(64) - XProfan X3


      http://www.xprofan.de
    • 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:

      Quellcode

      1. Declare string Dateiname, Schluessel, Wert, \
      2. long js, \
      3. hash HashArray[]
      4. window 1500,1000
      5. Dateiname = LoadFile$("Wähle eine JSON-Datei","*.json")
      6. If Dateiname > ""
      7. js = Create("json", Dateiname)
      8. HashArray[] = json("Hash", js)
      9. ForEach HashArray[], Schluessel, Wert
      10. Print Schluessel + " = " + Wert
      11. EndFor
      12. EndIf
      13. Print
      14. Print "Taste drücken ..."
      15. WaitInput
      16. End
      Alles anzeigen
      Das Ergebnis sieht z.B. so aus:

      Quellcode

      1. Herausgeber = Xema
      2. Nummer = 1234-5678-9012-3456
      3. Deckung = 2000000
      4. Waehrung = EURO
      5. Inhaber = {2}
      6. Inhaber|Name = Mustermann
      7. Inhaber|Vorname = Max
      8. Inhaber|maennlich = *TRUE*
      9. Inhaber|Hobbys = [3]
      10. Inhaber|Hobbys|0 = Reiten
      11. Inhaber|Hobbys|1 = Golfen
      12. Inhaber|Hobbys|2 = Lesen
      13. Inhaber|Alter = 42
      14. Inhaber|Kinder = [4]
      15. Inhaber|Partner = *NULL*
      Alles anzeigen
      Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD / ATI Radeon HD4770 512 MB / Windows 7(32) - XProfan X3
      AMD Athlon II X2 2,9 GHz / 3 GB RAM / 500 GB HDD / ATI Radeon 3000 (onboard) / Windows 10(64) - XProfan X3


      http://www.xprofan.de