Access y VBA - camibiar xml por json

camibiar xml por json

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84546
Fecha de impresión: 26/Marzo/2026 a las 19:04

Tema: camibiar xml por json

Publicado por: msgambero
Asunto: camibiar xml por json
Fecha de publicación: 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

Respuestas:

Publicado por: Maverick2019
Fecha de publicación: 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" rel="nofollow - 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,

Publicado por: msgambero
Fecha de publicación: 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

Publicado por: Maverick2019
Fecha de publicación: 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,

Publicado por: Maverick2019
Fecha de publicación: 11/Junio/2019 a las 13:55

Hola de nuevo.

Mira http://www.christiaanheidema.nl/?JSON_functions" rel="nofollow - http://www.christiaanheidema.nl/?JSON_functions , creo que te puede servir.

Salu2,

Publicado por: msgambero
Fecha de publicación: 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