PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 2025 → Format JSON
Format JSON
Iniciado por François SCHAAL, 28,ago. 2019 15:10 - 5 respuestas
Miembro registrado
1.603 mensajes
Publicado el 28,agosto 2019 - 15:10
Bonjour,

Comment s'assurer qu'une chaîne est au format JSON d'après les normes en vigueur ?

--
Cordialement
François
Miembro registrado
953 mensajes
Publicado el 28,agosto 2019 - 15:42
bonjour François,

vous pouvez tester quelque chose du genre :

_my_json est un JSON

_ma_chaine_JSON_invalide est une chaîne = [
{}
toto-1
=""
]
_ma_chaine_JSON_valide est une chaîne = [
{
"options":{
"value":"toto",
"type":4
}
}
]

_my_json..FormatJSON=_ma_chaine_JSON_invalide

SI _my_json=Null ALORS
Info("Chaine "+_ma_chaine_JSON_invalide+"JSON invalide !")
SINON
Info("JSON Valide , "+_my_json)
FIN

_my_json..FormatJSON=_ma_chaine_JSON_valide

SI _my_json=Null ALORS
Info("Chaine "+_ma_chaine_JSON_valide+"JSON invalide !")
SINON
Info("JSON Valide , "+_my_json)
FIN
Miembro registrado
1.640 mensajes
Publicado el 29,agosto 2019 - 09:56
Hello,

Ou faire un JsonVersVariant et gérer l'exception par programmation en cas d'erreur avec "QUAND EXCEPTION DANS"
Si le fichier n'est pas JSON, ca va déclencher une exception

Apres.. de la a certifier qu'il s'agit d'un JSON à jour des dernières normes ... Il y a peut être des API en ligne pour ca..
Miembro registrado
261 mensajes
Publicado el 05,diciembre 2019 - 14:41
Voici mon code pour tester la valider d'un JSON :
MonJSON est un JSON = [
{
"TEST1": "DATA1",
"TEST2", "DATA2"
"TEST3": "DATA3",
}
]
Info(VerificationJson(MonJSON))

PROCEDURE INTERNE VerificationJson(LOCAL _JSON est un JSON):booléen
QUAND EXCEPTIONEXCEPTION DANS
SI _JSON.JSONTESTER..Existe = Faux ALORS RENVOYER Vrai
FAIRE
RENVOYER Faux
FIN
FIN


--
Baptiste CLOART
Freelance
b.cloart@blv-tech.com
06.88.74.80.65
www.linkedin.com/in/cloart
www.blv-tech.com
Miembro registrado
324 mensajes
Publicado el 05,diciembre 2019 - 15:04
QUAND EXCEPTIONEXCEPTION DANS
MonVariant est un variant = JSONVersVariant(monjson.json)
FAIRE
Erreur("Json invalide")
FIN
Miembro registrado
261 mensajes
Publicado el 05,diciembre 2019 - 16:08
Poncherello a écrit :
QUAND EXCEPTION DANS
MonVariant est un variant = JsonVersVariant(monjson.json)
FAIRE
Erreur("Json invalide")
FIN


Aucune erreur à propagé, pas d'exception à "réactiver" ect, le code plus simple


Désolé mais votre code ne fonctionne pas. Cela retour toujours faux meme avec un JSON valide

--
Baptiste CLOART
Freelance
b.cloart@blv-tech.com
06.88.74.80.65
www.linkedin.com/in/cloart
www.blv-tech.com