Discussion :

[bouillaudmartin]

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,

[mail.spam]

Bonjour,

Essaie de faire une recherche dans le forum avec le mot clé JSON.
Il y a plusieurs discussions à ce sujet.

[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.

[bouillaudmartin]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mail.spam]

Logique vu que contenue n'évolue pas.
à quoi te sert i?

[bouillaudmartin]

A quoi me sert quoi ?

[bouillaudmartin]

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

[
{
"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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[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 ?

[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

[bouillaudmartin]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 .

Cordialement,

[bastiencb]

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

[ochoteau]

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) !