Comunidad Gambas-es

tincho 20-08-2021, 13:48

Hola amigos.
Aquí les propongo una función que formatea un texto Json de una forma mas legible para humanos.
Gracias al aporte de Laurent Carlier
https://gitlab.com/lordheavy/alpha/-/blo...class#L100
Para usar esto les recomiendo que creen una clase en vuestro proyecto llamada JSON (en mayúsculas) y luego pongan esto dentro y luego llamen al método normalmente desde todas partes con JSON.Encode2

Código:
' Gambas class file

' This program is free software; you can redistribute it and/or modify

' it under the terms of the GNU General Public License as published by

' the Free Software Foundation; either version 2 of the License, or

' (at your option) any later version.

Export

'' Encode in JSON format in a human readable way. Based on a Laurent tool

Static Public Function Encode2(vData As Variant) As String

  Dim sInput As String

  Dim sOutput As String

  Dim iStream As Stream

  Dim $sReadChar As String

  Dim $iTab As Integer

  Dim $bQuote, $bBracket As Boolean

  sInput = JSON.Encode(vData)

  iStream = Open String sInput For Read

  While (Not Eof(iStream))

    $sReadChar = Read #iStream, 1

    If ($sReadChar = "{" And Not $bQuote) Then

      $iTab += 1

      $sReadChar &= "\n" & Space$($iTab * 2)

    Else If ($sReadChar = "}" And Not $bQuote) Then

      $iTab -= 1

      $sReadChar = "\n" & Space$($iTab * 2) & $sReadChar

    Else If ($sReadChar = "\"") Then

      $bQuote = Not $bQuote

    Else If ($sReadChar = "[") Then

      $bBracket = True

    Else If ($sReadChar = "]") Then

      $bBracket = False

    Else If ($sReadChar = ":" And Not $bQuote) Then

      $sReadChar &= " "

    Else If ($sReadChar = "," And Not $bQuote) Then

      If (Not $bBracket) Then

        $sReadChar &= "\n" & Space$($iTab * 2)

      Else

        $sReadChar &= " "

      Endif

    Endif

    sOutput &= $sReadChar

  Wend

  Close iStream

  ' replace null with ""

  sOutput = Replace(sOutput, " null", " \"\"")

  Return sOutput

End

Aplicaciones/Fragmentos de Código Respuestas 9

Consumir Rest Api

calcena 19-08-2021, 11:14

Buenas una consulta, es posible consumir apis para por ejemplo con la respuesta poder poblar una tabla, u otro cmponente de Gambas?
Gracias.

General Respuestas 2

Vinilo 2 desde cero.

tincho 17-08-2021, 18:06

Hola amigos.

Hace unos meses intente reflotar un programa para escuchar musica llamado Vinilo que hice hace bastante tiempo, pero no logre hacerlo.
Por un lado me costaba seguir mi propio código y por otro estaban una serie de cambios de gambas, las librerías y los recursos externos que usaba.
Así que aproveche para reescribirlo desde cero
Este es el aspecto actual
[Imagen: evOeeYu.png]

Bueno este el el repo
https://gitlab.com/belmotek/vinilo
Revisiones:
* v.0.0.5 - Cambios en la apariencia, paneles "Álbumes", "Configuración" y "Acerca de" añadidos. Búsqueda de álbumes por artista, añadido el botón de informe de errores por correo electrónico. Gestión de archivos sin meta-datos (feedback de Shordi).
* v.0.0.4 - Cambio de apariencia añadido traducciones para DE, FR, IT, PT
* v.0.0.3 - Añadida la ventana de minimización y la traducción ES.
* v.0.0.2 - Agregado el modo de dependencias para cuando se corre desde el IDE, corrección al seleccionar archivos y directorios, etc.
* v.0.0.1 - Primer envío

Saludos

Aplicaciones/Fragmentos de Código Respuestas 18

Páginas (552): 1 … 391 392 393 394 395 … 552

Bienvenido, Invitado

Buscar en los foros

Estadísticas del foro

Miembros: 280

Último miembro: herbert

Temas del foro: 1,703

Mensajes del foro: 8,842

Últimos temas

Portal

tincho 20-08-2021, 13:48

calcena 19-08-2021, 11:14

tincho 17-08-2021, 18:06

controlar el Activado/Des...

Nuevo componente gb.qt6.w...

Conexión Bluetooth: RFCOM...

gb.db2: columnas calculad...

Gambas + ERP = GamERP.