XProfan

cls
/*
js& = Json("Parse", jsonstring$)
  ici wird Créer("Json",filename$) verwendet um une String dans un Json-objet ou bien une Json-liste trop verwandeln.
  qui Dossier wird dabei juste wieder entfernt.
  js ist qui ID des Json-Objektes. si es geklappt hat: si(js&,"I'm happy","That's ugly") // Abfrage klappt chez Json("Parse",s) et chez Créer("Json",fn$)
*/
SubProc Json.Parse1
   Paramètres string jsonstring
   Déclarer string s, Dateiname, le contenu, long js
   s = Translate$(dt("getDate",5)," ","_")
   s = Translate$(s,",","_")
   s = Translate$(s,":","_")
   s = Translate$(s,"+","p")
   s = Translate$(s,"-","m")
   s = Translate$(s,"__","_")
   MkDir "C:\\Temp"
   Cas %ioresult <> 0 : js = 0
   Dateiname = "C:\\Temp\\JSON_" + s + ".json"
'   imprimer "Dossier:",Dateiname
   
   // Dossier im temp. Verzeichnis erstellen
   Cas %ioresult <> 0 : js = 0
   Assign #9, Dateiname
   Cas %ioresult <> 0 : js = 0
   Rewrite #9
   Cas %ioresult <> 0 : js = 0
   // gewünschten Json-String dans Dossier écrivons
   le contenu = Utf8Encode(jsonstring + "\n")
   imprimer #9, le contenu
   //
   Cas %ioresult <> 0 : js = 0
   Fermer #9
   Cas %ioresult <> 0 : js = 0
   Sleep 100
   
   // Json-objet aus dem String "jsonstring" erstellen
   js = Créer("Json",Dateiname)
   Cas %ioresult <> 0 : fh = 0
   Sleep 100
   
   // Dossier wieder entfernen (ou bien zur Kontrolle behalten)
'   Effacer #9
   Cas %ioresult <> 0 : fh = 0
   
   Retour js  // qui ID des Objektes bzw. qui liste zurückgeben
ENDPROC
// 
Déclarer long js, cnt, string s

s   = "{\qr\q:255, \qg\q:160, \qb\q:80}"

js  = Json("Parse1",s)
imprimer "js:",js
cnt = Json("Count", js)
imprimer "count:",cnt
imprimer "trop parsen:",s
imprimer "Ergebnis:"
WhileLoop 0, cnt - 1
   imprimer "  ",Json("nom", js, &loop),":", Json("Value", js, &loop)
Endwhile
imprimer "objet:",Json("Text",js,0),"\n"
waitkey
end

Déclarer long js
js = Créer("Json")
Json("AddNumber", js, "r", 255)
Json("AddNumber", js, "g", 160)
Json("AddNumber", js, "b",  80)