HMGforum.com

jparada wrote: ↑Mon Mar 23, 2020 3:35 pm Hola,

Estoy intentar crear una cadena json, estoy haciendo algo así:

Code: Select all

label_data := { "Mexlub", "Fleetguard", "Valvoline", "Bardahl", "Mexicana", "Taller" }

::hContent := { "chart" => "{", ;
                "type" => 'bar', ;
                "labels" => label_data ;
                } 

MsgInfo( hb_jsonEncode( ::hContent ) )

Esto me genera un contenido como esto:
img.png

Pero lo que requiero es que la llave de chart esté sin comillas y también que no incluya la coma , no puedo utilizar strtran porque no quiero cambiar todo el contenido del json, sólo esa parte, en concreto necesito que quede de esta forma:
{"chart": {
"type":"bar","labels":["Mexlub","Fleetguard","Valvoline","Bardahl","Mexicana","Taller"]}

Alguna ayuda por favor.

Saludos,
Javier

label_data := { "Mexlub", "Fleetguard", "Valvoline", "Bardahl", "Mexicana", "Taller" }

//1
hContent := { "chart" => hb_Hash( "type", 'bar', "labels", label_data ) } 
MsgInfo( hb_jsonEncode( hContent ) )

//2
hChart := { "type" => 'bar', "labels" => label_data }
hContent := { "chart" => hChart } 
MsgInfo( hb_jsonEncode( hContent ) )

//3
hContent := { "chart" => { "type" => 'bar', "labels" => label_data } } 
MsgInfo( hb_jsonEncode( hContent ) )