tratamento de resposta Json

Moderador: Avelino Sampaio

percoski
Mensagens: 30
Registrado em: 29 Jul 2015, 19:26

tratamento de resposta Json

Mensagempor percoski » 10 Nov 2018, 19:16

Olá tenho uma aplicação que retorno o seguinte mensagem

{"Codigo":"10063029","UF":"PA","EX":0,"Codigo":"Outs.tipos de arroz semibranqueado,etc. n/parboilizado","Nacional":4.20,"Estadual":7.00,"Importado":9.38,"Municipal":0.00,"Tipo":"0","VigenciaInicio":"01/10/2018","VigenciaFim":"31/01/2019","Chave":"D529CB","Versao":"18.2.C","Fonte":"IBPT/empresometro.com.br","Valor":1.25,"ValorTributoNacional":0.05,"ValorTributoEstadual":0.09,"ValorTributoImportado":0.12,"ValorTributoMunicipal":0.0}

Fiz a tratativa dos dados, mas o codigo esta muito grande, qual a maneira que o senhores adorariam para esta aplicação?
no cado extrairia os dados desta maneira "Codigo":"10063029" usáro somente a parte "10063029"

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Damasceno Jr.
Mensagens: 436
Registrado em: 08 Jun 2015, 01:30
Localização: Medicilândia-Pará

Re: tratamento de resposta Json

Mensagempor Damasceno Jr. » 11 Nov 2018, 03:20

Exemplo retornando o valor que você quer em uma caixa de mensagem

Código:
Dim varValor

'capturando o código
varValor = Split(Split(SuaMensagem, ":")(1), ",")(0)

'removendo as aspas
varValor = Replace(varValor, """", "")

'mostrando o resultado em uma msgbox
MsgBox varValor
Quanto mais o tempo passa, mais descubro e mais me apaixono por MS Access.


Voltar para “Módulos VBA”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 2 visitantes