Hola a todos.
Al usar la función JSON.Decode para decodificar un texto json el resultado, según la ayuda de gambas, debería ser un Variant, lo cual es como decir que el resultado es cualquier tipo de valor.
Luego, dependiendo de la fuente a decodificar, esta función devuelve unas veces un Variant[] y otras una Collection, supongo que con otras fuentes de datos tal vez devuelva otro tipo de variable.
El caso es que el programa que intento hacer debería actuar de forma diferente si el valor de retorno es un Variant[] o un Collection.



Un archivo json tiene los siguientes datos:

y otro los siguientes:


Saludos.

Prueba ésto.

===================
No podemos regresar

ok, la función, que lo que hace es extraer las collections de datos y recopilarlas en un objeto Variant[] quedo así.

Luego subiré un ejemplo de conversión.
Saludos y muchas gracias.

Buenas noches a todos!

Ando intentando crear Una Collection que contenga una Array. para después pasarlo a JSON, alguien de los presentes lo ha logrado?



Como podéis ver categories y images son arrays dentro de una collection.

Todo esto lo debo exportar a Json. Pero cuando hago el JSON.ToString, no me respeta las arrays dentro.

Gracias.

shordi escribió: [Ver mensaje]

Prueba ésto.

Código: [Descargar] [Ocultar] [Seleccionar]

Código: [Descargar] [Mostrar]

Public Function Json2Csv(strJSON As String) As String '' Convierte un archivo en formato JSON a CSV.

    Dim strRaw As String
    Dim strCSV As String
    Dim vrt As Variant

    strRaw = File.Load(strJSON)
    strCSV = File.Dir(strJSON) &/ File.BaseName(strJSON) & ".txt"

    vrt = (JSON.Decode(strRaw))

    if vrt IS collection then
        ....
    else if vrt IS Variant[]
       ....
    endif
  
End
 

interesante nunca he usado "Is"

===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/

arubioc escribió: [Ver mensaje]

Buenas noches a todos!
Ando intentando crear Una Collection que contenga una Array. para después pasarlo a JSON, alguien de los presentes lo ha logrado?

Me pico la curiosidad con lo que comentas.
Hice esta función para codificar una colección en formato "texto" pero no logro que quede con la sintaxis json. Pero se acerca a lo que buscas.
Como podras ver uso JSON.Encode en vez de JSON.ToString