|
Home → WINDEV 25 → Aula 1053 - WinDev json 2/... - Ler Jason e Adicionar Tabela - JSONVersVariant |
Aula 1053 - WinDev json 2/... - Ler Jason e Adicionar Tabela - JSONVersVariant |
Started by amarildo, Feb., 01 2017 9:24 AM - 2 replies |
| |
| | | |
|
| |
Registered member 535 messages Popularité : +14 (14 votes) |
|
Posted on February, 01 2017 - 9:24 AM |
s_json_dados is string=[ {"status": true,"valores": { "USD": {"nome": "Dolar","valor": 2.333,"ultima_consulta": 1386349203,"fonte": "UOL Economia - http://economia.uol.com.br/cotacoes/"}, "EUR": {"nome": "Euro","valor": 3.195,"ultima_consulta": 1386349203,"fonte": "UOL Economia - http://economia.uol.com.br/cotacoes/"}, "BTC": {"nome": "Bitcoin","valor": 2620,"ultima_consulta": 1386352803,"fonte": "Mercado Bitcoin - http://www.mercadobitcoin.com.br/" } } } ] let jz=JSONToVariant(s_json_dados) TableDeleteAll(TABLE_indices) FOR EACH _m OF jz..Member TableAddLine(TABLE_indices,_m..Name+TAB+" = "+_m..Value) TableAddLine(TABLE_indices,"=========================") mebros(_m) END INTERNAL Procedure mebros(x) FOR EACH _m2 OF x..Member TableAddLine(TABLE_indices,_m2.nome,_m2.valor,_m2.fonte,_m2.ultima_consulta) END END
http://windevdesenvolvimento.blogspot.com.br/2017/02/aula-1053-windev-json-2-ler-jason-e.html
http://doc.pcsoft.fr/fr-FR/?1000021296&name=jsonversvariant_fonction
Message modified, February, 01 2017 - 9:25 AM |
| |
| |
| | | |
|
| | |
| |
Registered member 3,662 messages Popularité : +175 (223 votes) |
|
Posted on February, 08 2017 - 4:15 PM |
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | |
| |
Registered member 3,662 messages Popularité : +175 (223 votes) |
|
Posted on August, 11 2017 - 2:18 PM |
gsPerguntasJson is ANSI string = fLoadText( fDataDir()+"/questoes.json" ) gsPerguntasJson = UTF8ToAnsi(gsPerguntasJson)
JsonStru is structure pergunta is ANSI string resp_a is ANSI string resp_b is ANSI string resp_c is ANSI string resp_d is ANSI string resp_e is ANSI string resp_f is ANSI string resp_g is ANSI string resposta is ANSI string explicacao is ANSI string END
gstDadosJson is array of JsonStru Deserialize( gstDadosJson , gsPerguntasJson , psdJSON)
FOR EACH st_linha_json OF gstDadosJson Info(st_linha_json.explicacao) END
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | | | |
| | |
|