Histórico da Página

Composition Setup
import.css=/download/attachments/6062824/tecnologia.css

...

Retorna o valor de uma determinada chave cKey, do objeto Json, em formato de string

Sintaxe

Bloco de código

JsonObject:GetJsonText(

cPropriedade

cKey)

Parâmetros

Nome	Tipo	Descrição	Obrigatório	Referência

...

cKey

caractere

Nome da propriedade do objeto Json

...

cujo conteúdo será retornado

X

Retorno

Nome	Tipo	Descrição
cRet	caractere

...

String que seja o conteúdo de uma propriedade de um objeto JSON

Observações

Caso a propriedade não exista ou contiver o valor null, será retornado uma string com o conteúdo "null".
Caso o valor da propriedade informada seja uma string, o conteúdo do retorno será uma string mas não conterá aspas, conforme primeiro item do exemplo abaixo.
Caso o valor da propriedade informada seja um vetor e em seu conteúdo haja strings, estas serão preenchidas dentro do vetor com aspas, conforme o último exemplo abaixo.

Exemplo

Bloco de código

language	cpp
theme	Eclipse
title	Exemplo 1
linenumbers	true
collapse	false

#include "protheus.ch"

user function

tstJsonObject

GJTExemplo()

  local oJson
  local

wrk wrk

ret

  oJson := JsonObject():new()

wrk



  ret := oJson:fromJson('{"character":"Joaquim", "json":{"

name

Joao":22, "

John

Joana":33},

"age

"array":[4,12,5], "numeric":

31

23, "

city

logic":

"New York"

false, "nil":null, "CArr":["Joaquim","Ana","joao"]}')

  if ValType(ret) == "U"

// Retorna "John" ConOut ( wrk:GetJsonText("name") ) FreeObj(wrk) return

    Conout("JsonObject populado com sucesso")
  else
    Conout("Falha ao popular JsonObject. Erro: " + ret)
  endif

  ret := oJson:GetJsonText("character")

  conout (ret)

  /*
  Será impresso:
  Joaquim
  */

  ret := oJson:GetJsonText("json")

  conout (ret)

  /*
  Será impresso:
  {"Joana":33,"Joao":22}
  */

  ret := oJson:GetJsonText("array")

  conout (ret)

  /*
  Será impresso:
  [4,12,5]
  */

  ret := oJson:GetJsonText("numeric")

  conout (ret)

  /*
  Será impresso:
  23
  */

  ret := oJson:GetJsonText("logic")

  conout (ret)

  /*
  Será impresso:
  false
  */

  ret := oJson:GetJsonText("nil")

  conout (ret)

  /*
  Será impresso:
  null
  */

  ret := oJson:GetJsonText("CArr")

  conout (ret)

  /*
  Será impresso:
  ["Joaquim","Ana","joao"]
  */

  ret := oJson:GetJsonText("xpto")

  conout (ret)

  /*
  Será impresso:
  
  */
  FreeObj(oJson)
return

Observações:

Disponível em build igual ou superior a 17.2.1.0

Composition Setup
import.css=/download/attachments/6062824/tecnologia.css

Árvore de páginas

Versões comparadas

Versão antiga 2

Nova versão Atual

Chave

Sintaxe

Parâmetros

Retorno

Observações