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 ?