Duvida sobre toJsonFile()

0

Estou tentando gravar um arquivo json em disco usando toJsonFile e busquei informação no TDN e lá tem o codigo abaixo: 

# include tlpp-core.th

function u_gravaJsonFile()

local cPathAndFile  := 'C:\tlppcore\tojsonfile.txt' as character
local oJsonObject   := JSONObject():New() as json
local xReturn       := Nil

oJsonObject := {"testetojsonfile" : { "var1" : "ola", "var2": "olaola", "var3": "olaolaola" }

xReturn := oJsonObject:toJsonFile(cPathAndFile)

if valType(xReturn) == "U"
    conout("Arquivo: "+cPathAndFile+" criado com sucesso")
else
    conout("Erro: "+cValToChar(xReturn)+" na gravacao do arquivo: "+cPathAndFile)
endif

freeObj(oJsonObject)

return

Esse exemplo deveria funcionar mesmo ?

variavel

local oJsonObject := JSONObject():New() as json

Depois gravá-la ?

oJsonObject := {"testetojsonfile" : { "var1" : "ola", "var2": "olaola", "var3": "olaolaola" }

xReturn := oJsonObject:toJsonFile(cPathAndFile)

Segue o link https://tdn.totvs.com/display/tec/toJsonFile

compartilhar
  1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
  2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
  3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
  4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
  5. Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

0 resposta

Não é a resposta que estava procurando? Procure outras perguntas com as tags json tojsonfile jsonobject ou faça a sua própria pergunta.