** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - camibiar xml por json
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradocamibiar xml por json

 Responder Responder
Autor
Mensaje
msgambero Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 06/Abril/2010
Localización: España
Estado: Sin conexión
Puntos: 214
Enlace directo a este mensaje Tema: camibiar xml por json
    Enviado: 10/Junio/2019 a las 13:52
Buenos dias, mi sistema es access 2007 con windows 10, y ahora os explico, tengo en la aplciación creacion de ficheros xml y me piden cambiarlo a JSON. he estado mirando en internet y no tengo claro como hacerlo.  Me podríais ayudar???? 

Muchas gracias anticipadas.
Sigo aprendiendo en este foro y espero poder ayudar. GRACIAS
Arriba
Maverick2019 Ver desplegable
Habitual
Habitual


Unido: 10/Junio/2019
Localización: Madrid
Estado: Sin conexión
Puntos: 145
Enlace directo a este mensaje Enviado: 10/Junio/2019 a las 15:55
Hola
Lo mejor es que busques un poco la definición de JSON para poder adaptar tu código.
Podrías empezqr por https://www.json.org/json-es.html
Sí miras en Google, verás que hay bastantes conversores online. Te puede servir también para ver la equivalencia entre ambos.

Suerte,
Arriba
msgambero Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 06/Abril/2010
Localización: España
Estado: Sin conexión
Puntos: 214
Enlace directo a este mensaje Enviado: 11/Junio/2019 a las 12:30
Maverick, gracias por tu respuesta, ya había consultado esta página, el problema es que aunque me he descargado la librería, no encuentro el manual de referencia para poder utilizarlas al igual que hago con el XML.
Sigo aprendiendo en este foro y espero poder ayudar. GRACIAS
Arriba
Maverick2019 Ver desplegable
Habitual
Habitual


Unido: 10/Junio/2019
Localización: Madrid
Estado: Sin conexión
Puntos: 145
Enlace directo a este mensaje Enviado: 11/Junio/2019 a las 12:34
Hola
Hay muchos conversores en linea de XML a JSON. Puedes usar uno para ver las diferencisa entre los ficheros y adaptarlos a tus procesos.

Salu2,
Arriba
Maverick2019 Ver desplegable
Habitual
Habitual


Unido: 10/Junio/2019
Localización: Madrid
Estado: Sin conexión
Puntos: 145
Enlace directo a este mensaje Enviado: 11/Junio/2019 a las 13:55
Hola de nuevo.
Mira http://www.christiaanheidema.nl/?JSON_functions, creo que te puede servir.

Salu2,
Arriba
msgambero Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 06/Abril/2010
Localización: España
Estado: Sin conexión
Puntos: 214
Enlace directo a este mensaje Enviado: 12/Junio/2019 a las 18:18
Buenas tardes Maverick, tambien habia visto esta página, pero sigo sin ver la forma de hacer lo mismo que hago para el XML, como es salvar lo generado en un fichero. 

He visto varios ejemplos y pruebas, de las cuales intento aprender y ver la forma de utilizarlo, lo ultimo que he visto es utilizando esta funcion que la verdad no tengo claro lo que hace, pero me permite  utilizar las funciones de parse y setItem, pero no tengo claro si lo estoy haciendo correctamente.

Public Sub initJson()
    Dim html As String

    html = "<!DOCTYPE html><head><script>" & _
    "Object.prototype.getItem=function( key ) { return this[key] }; " & _
    "Object.prototype.setItem=function( key, value ) { this[key]=value }; " & _
    "Object.prototype.getKeys=function( dummy ) { keys=[]; for (var key in this) if (typeof(this[key]) !== 'function') keys.push(key); return keys; }; " & _
    "window.onload = function() { " & _
    "document.body.parse = function(json) { return JSON.parse(json); }; " & _
    "document.body.stringify = function(obj, space) { return JSON.stringify(obj, null, space); }" & _
    "}" & _
    "</script></head><html><body id='JSONElem'></body></html>"

    Set ie = CreateObject("InternetExplorer.Application")
    With ie
        .navigate "about:blank"
        Do While .Busy: DoEvents: Loop
        Do While .readyState <> 4: DoEvents: Loop
        .Visible = False
        .Document.Write html
        .Document.Close
    End With

    ' This is the body element, we call it JSON:)
    Set JSON = ie.Document.getElementById("JSONElem")

End Sub

Sigo aprendiendo en este foro y espero poder ayudar. GRACIAS
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable