FORUMS PROFESSIONNELS
WINDEV
,
WEBDEV
et
WINDEV Mobile
Accueil
|
Messages récents
|
Connexion
|
Déconnexion
|
Français
Accueil
→
WINDEV 25
→
Aula 1053 - WinDev json 2/... - Ler Jason e Adicionar Tabela - JSONVersVariant
Aula 1053 - WinDev json 2/... - Ler Jason e Adicionar Tabela - JSONVersVariant
Débuté par amarildo, 01 fév. 2017 09:24 - 2 réponses
Connectez-vous…
amarildo
#1
Membre enregistré
535 messages
Popularité : +14 (14 votes)
Posté le 01 février 2017 - 09:24
//Nessa aula vou mostrar como ler dados Json e colocar Tabela
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 modifié, 01 février 2017 - 09:25
Signaler
0
0
BOLLER
#2
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 08 février 2017 - 16:15
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Signaler
0
0
BOLLER
#3
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 11 août 2017 - 14:18
//-- le o arquivo Json anexado ao projeto --//
gs
PerguntasJson
is ANSI string
=
fLoadText
(
fDataDir
(
)
+
"/questoes.json"
)
gs
PerguntasJson
=
UTF8ToAnsi
(
gs
PerguntasJson
)
//info(gsPerguntasJson)
//-----------------------------------------------------------------------------------------//
//-- agora coloca os dados em um array apos ler a estrrutura e grava na tabela Perguntas --//
//-----------------------------------------------------------------------------------------//
//--estrutura do Json
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
gst
DadosJson
is array of
JsonStru
Deserialize
(
gst
DadosJson
,
gs
PerguntasJson
,
psdJSON
)
//Info( ArrayCount(gstDadosJson))
//Info( gstDadosJson[1].pergunta )
FOR
E
ACH
st
_linha_json OF
gst
DadosJson
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/
Signaler
0
0
→ Revenir à WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Type de recherche
Uniquement les sujets
Tous les messages
Période de recherche
Date indifférente
Moins d'une heure
Moins de 24 heures
Moins d'une semaine
Moins d'un mois
Moins d'un an
Annuler
Aperçu de votre message
Ajouter une image
Importer une image depuis une URL
Envoyer une image depuis un fichier de votre disque
Déposez ici un fichier ou cliquez sur "Parcourir..."
ou
Annuler
0%
WLangage
SQL
XML, HTML
JAVA, Javascript
Texte