PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV Mobile 2024 → WM22  jsonversvariant  ne fonctionne pas ? !!
WM22 jsonversvariant ne fonctionne pas ? !!
Débuté par NiceBel, 13 juin 2017 16:26 - 3 réponses
Membre enregistré
518 messages
Popularité : +7 (7 votes)
Posté le 13 juin 2017 - 16:26
Bonjour,

je met le code suivant dans un bouton:
b est un booléen = HTTPRequête(URL_API)
sRep est une chaîne ANSI = UTF8VersChaîne(HTTPDonneRésultat(httpRésultat),alphabetArabe)
vReponseVariant est un Variant = JSONVersVariant(sRep)
POUR TOUT s2 de vReponseVariant
Info(s2.nom)
FIN

j'ai un erreur qui dit: L'élement à parcourir doit être un tableau.

Avez vous une idée?
Merci.
Message modifié, 13 juin 2017 - 16:42
Posté le 13 juin 2017 - 16:28
Où est l'appel à JSONVersVariant ?
Membre enregistré
518 messages
Popularité : +7 (7 votes)
Posté le 13 juin 2017 - 16:43
de même si je fais:

MaReq est restRequête
laReponse est restRéponse
MaReq.URL = Url_api
MaReq.Méthode = httpGet
laReponse = RESTEnvoie(MaReq)
vReponseVariant est un Variant = JSONVersVariant(laReponse.Contenu)
POUR TOUT s2 de vReponseVariant
Info(s2.nom)
FIN
Membre enregistré
518 messages
Popularité : +7 (7 votes)
Posté le 14 juin 2017 - 12:15
Le poste suivant m'a aidé:
https://blogs.pcsoft.fr/fr/extraire-simplement-donnees-json-dont-structure-connue-avance/353/read.awp

Code réussi:
vReponseVariant est un Variant = JSONVersVariant(laReponse.Contenu)
tabUnElement2 est un tableau de chaînes
vMonVar est un Variant
Info("Vers bcl")
POUR TOUT UnElement, Compteur de vReponseVariant..Membre
Info("hiiii "+ UnElement..Nom)
//info(UnElement.id)
tabUnElement2 = UnElement
POUR TOUT _Membre , Compteur2 de tabUnElement2
//Info(Compteur2)
vMonVar = _Membre
Info( vMonVar.$id , vMonVar.$titre)
FIN
FIN

Même mon problème avec la langue arabe est résolu avec cette manière de recevoir json, car avant je découpais !!
Message modifié, 14 juin 2017 - 12:16