Parser un fichier JSON (ou XML/TXT)

Version imprimable

29/05/2013, 10h13
bouillaudmartin

Récupérer Chaine de caractères dans un fichier JSON/XML

Bonjour,

Je suis actuellement bloqué sur un problème, je m'explique:

Je développe actuellement une application tablette (WinDev Mobile) pour l'entreprise dans laquelle je suis en Stage.
Cette coopérative vend du matériel sanitaire, chauffage, carrelage ... Ces différentes activités sont mise à jour régulièrement et les intitulés de ces activités sont stockés dans une fichier JSON.
Dans le menu principal de mon application j'ai un bouton "CATALOGUE" et la page suivante doit m'afficher des boutons avec le nom des activités en question.
Comment puis-je parcourir mon fichier, et extraire uniquement le nom des activités ?
Je sais que je dois l'ouvrir, le lire mais après pour extraire une chaine, qui est séparée par les caractère " },{ ", je pense que stocker ces extraits de chaine dans un tableau serait une bonne idée mais comment puis-je procéder ?

Cordialement,
29/05/2013, 14h46
mail.spam

Bonjour,

Essaie de faire une recherche dans le forum avec le mot clé JSON.
Il y a plusieurs discussions à ce sujet.
29/05/2013, 15h03
bouillaudmartin

Oui je suis allé voir mais c'est la syntaxe du code que j'ai du mal à pondre .. Je suis " débutant ", et j'ai du mal sortir quelque chose de fonctionnel.

J'ai réussi à trouver ça mais le soucis c'est que j'ai une boucle sans fin ..

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
idFichier est un entier
Contenu est une chaîne ANSI
Ligne est une chaîne
 
 
idFichier = fOuvre("C:\POUR MARTIN\activites.json",foLectureEcriture)
SI idFichier <> -1 ALORS
	Contenu = fLit(idFichier,1000000000)
SINON
	Info("Impossible de lire le fichier source")
FIN
 
id, nom est une chaîne
i est un entier
i =1
 
TANTQUE  Contenu<>EOT
 
Contenu = Remplace(Contenu,"},","}|")
Contenu = Remplace(Contenu,"[","")
 
Ligne = ExtraitChaîne(Contenu,i,"|")
Ligne = Remplace(Ligne,RC,"")
Ligne = Remplace(Ligne,"""","")
id = ExtraitChaîne(Ligne,1,",")
id = ExtraitChaîne(id,2,":")
nom = ExtraitChaîne(Ligne,2,",")
nom = ExtraitChaîne(nom,2,":")
Info("id : "+ id + " , nom : " + nom)
 
i=i+1
 
FIN

29/05/2013, 17h01
mail.spam

Logique vu que contenue n'évolue pas.
à quoi te sert i?
29/05/2013, 17h11
bouillaudmartin

A quoi me sert quoi ?

Parser un fichier JSON (ou XML/TXT)

Bonjour,

Je suis actuellement sur le développement d'une appli dans la boite ou je fais mon stage. Cette coopérative propose des produits Sanitaires,Carrelage, Électroménager...
J'ai commencé une application pour tablette qui sera proposé aux clients et qui intègrera un catalogue des produits, rangés par CATEGORIE, MARQUE, FAMILLE et SOUS FAMILLE, ces catégories sont dans un fichier JSON

Citation:

[
{
"id": "0",
"nom": "DIVERS",
"photo_1": "ACT_DIVERS.JPG",
"photo_2": "ACT_DIVERS_2.JPG"
},
{
"id": "1",
"nom": "SANITAIRE",
"photo_1": "ACT_SANITAIRE.JPG",
"photo_2": "ACT_SANITAIRE_2.JPG"
},
{
"id": "2",
"nom": "CHAUFFAGE",
"photo_1": "ACT_CHAUFFAGE.JPG",
"photo_2": "ACT_CHAUFFAGE_2.JPG"
},
{
"id": "7",
"nom": "ELECTRICITE",
"photo_1": "ACT_ELECTRICITE.JPG",
"photo_2": "ACT_ELECTRICITE_2.JPG"
},
{
"id": "6",
"nom": "CARRELAGE PLATRERIE",
"photo_1": "ACT_CARRELAGE_PLATRERIE.JPG",
"photo_2": "ACT_CARRELAGE_PLATRERIE_2.JPG"
},
{
"id": "11025",
"nom": "ELECTRO-MENAGER",
"photo_1": "ACT_ELECTRO-MENAGER.JPG",
"photo_2": "ACT_ELECTRO-MENAGER_2.JPG"
}
]

J'aimerai pouvoir parcourir ce fichier, et extraire le "NOM" et le "ID" que je stockerai dans une table.. J'ai réussi à pondre ce code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 idFichier est un entier Contenu est une chaîne ANSI Ligne est une chaîne idFichier = fOuvre("C:\POUR MARTIN\activites.json",foLectureEcriture) SI idFichier <> -1 ALORS Contenu = fLit(idFichier,1000000000) SINON Info("Impossible de lire le fichier source") FIN id, nom est une chaîne i est un entier i = 1 TANTQUE Contenu<>EOT Contenu = Remplace(Contenu,"},","}|") Contenu = Remplace(Contenu,"[","") Ligne = ExtraitChaîne(Contenu,i,"|") Ligne = Remplace(Ligne,RC,"") Ligne = Remplace(Ligne,"""","") id = ExtraitChaîne(Ligne,1,",") id = ExtraitChaîne(id,2,":") nom = ExtraitChaîne(Ligne,2,",") nom = ExtraitChaîne(nom,2,":") Info("id : "+ id + " , nom : " + nom) i=i+1 FIN
Mais ce n'est pas du propre .. Quelqu'un aurait une idée ?

30/05/2013, 14h01
mail.spam

C'étais à quoi te sert "i" mais en relisant ton post j'ai trouvé.

Sinon tu fais une boucle TANTQUE Contenu<>EOT mais vu que la valeur de Contenu n'évolue pas au fur et à mesure de ta boucle, résultat tu ne sort jamais de ta boucle.

Et ce sujet ne peux pas t'aider ?
30/05/2013, 15h18
bouillaudmartin

Merci pour votre réponse je vais aller voir ca :)
En fait j'ai récupérer un code déja existant, pour un autre fichier JSON et j'essaye de l'adapter mais c'est assez compliqué.
Je vais aller voir votre lien

Bon j'ai réussi à adapter ma procédure à mon fichier :
PROCEDURE :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
PROCEDURE JsonTrouveChaineActivites(json,NomTabRech sont des chaînes)
 
machaine est une chaîne
pos, posd, posf, grandeur, gr sont des entiers
 
NomTabRech = Caract(34) + NomTabRech + Caract(34) + ": " + Caract(34)
gr = Taille(NomTabRech)
pos = Position(json,NomTabRech)
 
SI pos = 0 ALORS
	machaine ="NONTROUVE"
SINON
	posd = pos + gr
	posf = Position(json,Caract(34) + "," + Caract(34), posd)
	grandeur = posf - posd
	machaine = Milieu(json,posd, grandeur)
FIN
 
RENVOYER machaine

Exemple de CODE :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
//FICHIER ACTIVITES.JSON <------------------------------------------------------------------------
iDFIchier = fOuvre("C:\POUR MARTIN\Niveau1\activites.json",foLecture)
SI iDFIchier <> -1 ALORS
	sMonJSON = fLit(iDFIchier,10000000)
	sMonJSON = Remplace(sMonJSON,"},","}|")
	sMonJSON = Remplace(sMonJSON,RC,"")
SINON
	Info("Impossible de lire le fichier source")
FIN
 
sLigne=ExtraitChaîne(sMonJSON,rangPremier,"}|{")
HCréation(ACTIVITES)
TANTQUE sLigne <> EOT
	ID=JsonTrouveChaineActivites(sLigne,"id")
	Lib=JsonTrouveChaineActivites(sLigne,"nom")
		SI ID="NONTROUVE" ET Lib="NONTROUVE" ALORS
			Info("ERREUR ! L'élément n'a pas pi être trouvé")
		SINON
	sLigne=ExtraitChaîne(sMonJSON,rangSuivant,"}|{")
	Trace(ID+" "+Lib)
	ACTIVITES.ACT_ID=ID
	ACTIVITES.ACT_LIB=Lib
	HAjoute(ACTIVITES)
		FIN
FIN	
fFerme(iDFIchier)

Merci de votre aide :ccool: .

Cordialement,

10/10/2014, 10h12
bastiencb

Parser une chaine JSON

Le plus simple est peut être d'utiliser la fonction JSONVersVariant(sChaineJson) :)
10/03/2017, 17h31
ochoteau

Citation:

Envoyé par bastiencb

Le plus simple est peut être d'utiliser la fonction JSONVersVariant(sChaineJson) :)

JSONVersVariant, n'existe qu'à partir de la version 22 sous Windev Mobile (pour Android) !