JSONFox version 2.0 con nuevas características

[Irwin Rodriguez]

Saludos comunidad,

He reescrito la librería JSONFox utilizando un nuevo algoritmo conocido como "Recursive Descent Parser" o RDP para abreviar, está escrita enteramente en Visual FoxPro 9.0 y ahora se puede utilizar en su versión compilada (App) de la siguiente manera:

Do LocFile("JSONFox", "app")

Es compatible con la antigua versión 1.9 sobre todo con las funciones Decode() y Encode() que ahora tienen sus nuevas versiones llamadas Parse() y Stringify().

Al invocar JSONFox.app se agregará un objeto llamado "Json" como propiedad del objeto global _Screen. Ahora ya es posible comenzar a usarlo:

 obj = _Screen.Json.Parse('{"foo": "bar"}')
 ?obj.foo

Nueva función Stringify()

Su función es formatear / indentar una cadena JSON a una representación legible. Puede recibir tanto un string como un objeto y el resultado será el mismo (una cadena formateada).

* Stringify Example
cJson = '{"age":45,"birthdate":"1985-11-15","created":"2020-07-28 09:29:41 PM","fullname":"Jhon Doe","gender":"Male","married":true,"soports":["running","swiming","basket-ball"]}'
?_Screen.Json.Stringify(cJson)

Para más detalle por favor visiten: https://github.com/Irwin1985/JSONFox

Hasta la próxima!

[Irwin Rodriguez]

Olvidé comentarles que también está disponible en todo momento una clase decorator llamada JSON la cual pueden utilizar para serializar todas aquellas clases que necesiten.

* Decorate and print any class
* Suppose you have a person class.
oPerson = CreateObject("PersonClass")
With oPerson
	.fullname = "John Doe"
	.age = 45
	.gender = "Male"
	.married = .T.
	.birthdate = Date(1985, 11, 15)
	.created = Datetime()
EndWith

* Now you need to extend this person class
oJohn = NewObject("JSon", "JsonDecorator.prg")
?oJohn.to_json()
{
  

"age": 45,
  "birthdate": "1985-11-15",
  "created": "2020-07-28 09:29:41 PM"

,
  "fullname": "John Doe",
  

[Edwin Duran]

Gracias Irwin por el porte, veo que esta _Screen.Json.CursorToJson('cGames') 

y cuando va a salir _Screen.Json.JsonToCursor('cGames') 

mil gracias

[Jean Pierre Adonis De La Cruz Garcia]

Excelente trabajo muchachon.

[Irwin Rodriguez]

Gracias por la sugerencia Edwin, ya he creado la función JSONToCursor() con la siguiente firma:

* JSONToCursor(JSONString As String, tcCursorName As String [, tnDataSession As Integer]).
Create Cursor cGames (game c(25), launched i(4))
Insert into cGames Values('Pac-Man', 1980)
Insert into cGames Values('Super Mario Bros', 1985)
Insert into cGames Values('Space Invaders', 1978)
Insert into cGames Values('The Legend of Zelda', 1986)

lcJSONStr = _Screen.Json.CursorToJson('cGames')

_Screen.Json.JSONToCursor(lcJSONStr, 'cGames')

He parseado una cadena JSON de unas 80 mil líneas equivalente a un cursor de 500 filas en 3.5 segundos:

 La estructura del cursor resultante es la siguiente:

Truncando las columnas de tipo Character al contenido más largo (34 en el caso de email) en lugar de crear una longitud estándar de 250 caracteres. Faltaría hacer lo mismo para las columnas tipo Numeric ya que el estándar actual es N(18,5).

Saludos!

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/7d4b4869-215b-41d5-a28f-89f2f6a7dc3do%40googlegroups.com.

[Edwin Duran]

Gracias, Mil gracias

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publice...@googlegroups.com.

[mapner]

Gran aporte a la comunidad Irwin, te felicito!

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publice...@googlegroups.com.

[wpalomo]

Excelente Iwin, muy buen aporte.

Saludos

Wilson Palomo

[Jorge Lozano Manifacio]

Perfecto Maestro .... yo estoy trabajando con esa libreria ... no hay cambios radicales .. solo cambiar la cargada ... PERFECTO ..

Gracias por tus aportes ... El Zorrito mas vivo que nunca por mucho mas tiempo

El martes, 28 de julio de 2020, 15:09:56 (UTC-5), Irwin Rodriguez escribió:

[robson...@hotmail.com]

Cara isto foi muito bom, obrigado!!!! vai ajudar muito.

[Luis suescún]

muchas y benditas gracias Irwin.

eres un gran maestro.

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CABooBBkrqp4%2BOJSgjx-iSMqLre912rt_VEV8XekjL63virw9PA%40mail.gmail.com.

[Esteban Herrero]

Genial Irwin.

 

Muy buen trabajo.

 

Un abrazo.

 

Saludos

Esteban

--

[Irwin Rodriguez]

Nuevas actualizaciones que incluyen:

1. Reconocimiento de números negativos.

2. Parsing de arrays vacíos.

3. Parsing para DATETIME() con los siguientes formatos soportados:

   3.1 Javascript

   3.2 ISO 8601

   3.3 Visual Foxpro

Para más información, ver historial en: https://github.com/Irwin1985/JSONFox/blob/master/README.md#release-history  

El mar., 28 jul. 2020 a las 22:09, Irwin Rodriguez (<rodrigu...@gmail.com>) escribió:

[Edwin Duran]

Gracias

[Irwin Rodriguez]

Nueva versión 2.1 ahora incluye un visor JSON con indentación y resaltado de sintaxis gracias al objeto OLE RichTextBox, el resultado no es exactamente el que tenia en mente pero por ahora cumple con mis necesidades y espero que les sea de utilidad a ustedes también.

Para más detalles: https://github.com/Irwin1985/JSONFox

Hasta la próxima!

[Irwin Rodriguez]

Nueva actualización con cambios internos y un cambio externo:

_Screen.Json.Encode(toObjRef As Object [, tcFlags])

Donde el parámetro tcFlags admite una cadena de uno o varios caracteres que representarán el ámbito de las propiedades del objeto toObjRef 

P - Protected
H - Hidden
G - Public
N - Native
U - User Defined
C - Changed
I - Inherited
B - Base
R - Read Only  

Por ejemplo si queremos serializar el objeto global _Screen pero solo con las propiedades de solo lectura y las creadas por el usuario entonces:

?_Screen.Json.Encode(_Screen, "RU")

para más detalles: https://github.com/Irwin1985/JSONFox/blob/master/README.md#release-history

Saludos!

El martes, 28 de julio de 2020 a las 22:09:56 UTC+2, Irwin Rodriguez escribió:

[Valentin Fernandez]

Gracias Irwin por tu esfuerzo y conocimiento compartidos

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/60fed494-1c65-4796-9b38-65f764e8c069n%40googlegroups.com.

--

Atentamente:

Valentín Fernández

[wilz...@gmail.com]

Tengo un problema al utilizarlo, si la descripción tiene acentos o caracteres especiales muestra mal al convertir el Json a Cursor 

Al traer el Json de la base de datos trae bien, lo guardé en texto plano para verificar.

Intenté aplicar algunas recomendaciones para UTF - 8, pero igual no muestra bien

[HernanCano]

Pasa el Factura.JSON y te indicamos qué hacer.

[wilz...@gmail.com]

[Zarlu]

Buenos días wilzygon !

Prueba con:

lcJsonResult=STRCONV( lcJsonResult,11)

Suerte

zarlu

Chetumal, Quintana Roo, México

[wilz...@gmail.com]

Muchísimas gracias, aparentemente se solucionó. Voy a estar probando.

Muchas gracias de nuevo.

[HernanCano]

O sea que estabas malinterpretando lo referente a UFT8:

Suponías que estaba en ASCII y lo querías poner en UTF8.

Pero es ilógico, porque si viene en ASCII, entonces no necesitas convertirlo a algo (para usarlo en VFP).

Se observa que el JSON que compartes está en formato UTF8 (ver imagen), por lo tanto no hay que ejecutar 

lcJsonResult = STRCONV(lcJsonResult, 9) && 9 significa de ANSI a UTF-8

sino más bien

lcJsonResult = STRCONV(lcJsonResult, 11) && 11 significa de UTF-8 a ANSI

[wilz...@gmail.com]

Gracias. Como tenía ese error consulté a chatGPT y me recomendó agregar esa linea, probé con 6, 9, no recuerdo cuales otros me recomendó, pero ninguno funcionaba

[Genesis Palma]

Cfldbnf fnfln

--

Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/e8c3814d-6bc8-4b1a-8070-6f0ab4466274n%40googlegroups.com.