Página 1 de 1

Validar Schema Json

Enviado: 04 Mai 2020 14:47
por lwinter
Para facilitar a utilizacao de Json, a fase de validacao do Schema do Json é fundamental.
Nao sei se alguem ja fez isso em Harbour. Verifiquei que existe exemplos de validacao de schemas de XML neste forum.
Se alguem tiver alguma coisa pronta seria muito util a comunidade.

Obrigado!

Validar Schema Json

Enviado: 04 Mai 2020 19:12
por asimoes
Pelo que eu saiba não existe uma função expecifica para validar um arquivo JSON mas tem alguns testes que podem ser usados como este, mas tem outros testes, o básico é isso

Código: Selecionar todos

   hTable := Hb_Hash()
 
   Hb_JSONDecode( Hb_MemoRead( "arquivo.json" ), @hTable )
   
   If ValType( hTable ) = "H"
      * Identificado como Hash de um json
   Endif


Validar Schema Json

Enviado: 04 Mai 2020 19:19
por asimoes
Depois que retorna o hash com o decode:
Pode fazer estes testes:

Código: Selecionar todos

 PROCEDURE Main
      LOCAL hHash := Hash()
      LOCAL cLang := "German"

      hHash[ cLang     ] := NIL
      hHash[ "Message" ] := ""

      IF HHasKey( hHash, "English" )
         hHash[ "Message" ] := "Hello World"
      ELSEIF HHasKey( hHash, "German" )
         hHash[ "Message" ] := "Hallo Welt"
      ENDIF

      ? hHash[ "Message" ]
   RETURN

Validar Schema Json

Enviado: 17 Mai 2020 22:19
por lwinter
asimoes, nao era bem isso que eu tinha em mente. Na realidade eu estava querendo validar igual a gente ja faz para o XML. Voce tem um schema e valida se a pessoa inclui algum campo errado ou com tipagem errada.