XProfan

cls
/*
js& = Json("Parse", jsonstring$)
  Hier se Crear("Json",filename$) verwendet en una String en una Json-Objeto oder una Json-Liste a verwandeln.
  El Expediente se esta otra vez lejos.
  js Es el ID des Json-Objektes. Ob lo geklappt ha: if(js&,"I'm happy","That's ugly") // Abfrage klappt en Json("Parse",s) y en Crear("Json",fn$)
*/
SubProc Json.Parse1
   Parámetros cadena jsonstring
   Declarar cadena s, Dateiname, Inhalt, 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"
   Case %ioresult <> 0 : js = 0
   Dateiname = "C:\\Temp\\JSON_" + s + ".json"
'   imprimir "Expediente:",Dateiname
   
   // Expediente en el temp. Directorio redactar
   Case %ioresult <> 0 : js = 0
   Asignar #9, Dateiname
   Case %ioresult <> 0 : js = 0
   Rewrite #9
   Case %ioresult <> 0 : js = 0
   // deseado Json-String en Expediente escribir
   Inhalt = Utf8Encode(jsonstring + "\n")
   imprimir #9, Inhalt
   //
   Case %ioresult <> 0 : js = 0
   Cerrar #9
   Case %ioresult <> 0 : js = 0
   Sleep 100
   
   // Json-Objeto de el String "jsonstring" redactar
   js = Crear("Json",Dateiname)
   Case %ioresult <> 0 : fh = 0
   Sleep 100
   
   // Expediente otra vez entfernen (oder a Kontrolle behalten)
'   Borrar #9
   Case %ioresult <> 0 : fh = 0
   
   Volver js  // el ID des Objektes o. el Liste zurückgeben
ENDPROC
// 
Declarar long js, cnt, cadena s

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

js  = Json("Parse1",s)
imprimir "js:",js
cnt = Json("Count", js)
imprimir "count:",cnt
imprimir "a parsen:",s
imprimir "Ergebnis:"
WhileLoop 0, cnt - 1
   imprimir "  ",Json("Name", js, &loop),":", Json("Value", js, &loop)
EndWhile
imprimir "Objeto:",Json("Texto",js,0),"\n"
waitkey
end

Declarar long js
js = Crear("Json")
Json("AddNumber", js, "r", 255)
Json("AddNumber", js, "g", 160)
Json("AddNumber", js, "b",  80)