Traiter un array JSON

Version imprimable

08/03/2022, 14h24
SergioMaster

Traiter un array JSON

Bonjour,

j'ai une valeur de ce type,
[{"id":"1","value":"rouge"},{"id":"2","value":"red"}]
un tableau JSON donc.
Je veux récupérer la valeur "value" de la première ligne du tableau soit : rouge

je pourrai utiliser les expressions régulières mais comme c'est un tableau JSON il y a certainement un moyen plus facile , sauf que je suis plutôt noob ave JSON.

Comment procéder ?

1 pièce(s) jointe(s)

Je crois avoir trouvé, même si je pense en faire un peu trop dans ce code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
procedure TDataPrestashop.FDAttribValeurCalcFields(DataSet: TDataSet);
var j : String; // i.e [{"id":"1","value":"rouge"},{"id":"2","value":"red"}]
    jv: TJSONValue; // parsing
    ov : TJSONValue; // objet json 
begin
j:=FDAttribValeurname.asString;
if j.IsEmpty
 then  Dataset['Valeur']:=''
 else begin
     Jv:=TJSonObject.ParseJSONValue(j);
     if assigned(jv) then
      begin
        ov:=jv;
        Dataset['Valeur']:=TJSONArray(ov).Items[0].GetValue<String>('value');
      end
      else Dataset['Valeur']:='';
      jv.Free;
   end;
end;

j'ai bien le résultat souhaité
Pièce jointe 614969

j'ai galéré pour comprendre que je ne pouvais utiliser Jv directement :roll:

09/03/2022, 17h33
pprem

Bien joué.

(cf mon bon vieil exemple de pianos en gare avec l'API lourdingue de la SNCF)

En effet tout ce qui vient de System.JSON traite des TJSONValue à transtyper systématiquement pour s'en servir dans le bon format. On peut aussi jouer avec un TJSONReader si on veut (pas forcément plus simple ni plus court d'ailleurs).

A noter que depuis 11 Alexandria la fonction ParseJSONValue() est descendue sur le TJSONValue et donc appelle sur chaque type, plus besoin de l'utiliser sur les objets pour récupérer autre chose.

pour ma part, j'utilise mon unité Execute.JSON évidemment :)

elle est très pratique pour sérialiser/désérialiser des record

du coup
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 uses Execute.JSON; type TValue = record id: string; value: string; end; TValues = TArray<TValue>; var Values: TValues; begin Values := JSON.fromJSON('[{"id":"1","value":"rouge"},{"id":"2","value":"red"}]'); end;
alors évidement si tu ne veux que le premier élément et que le JSON peut en contenir potentiellement des milliers, c'est pas top vu que tu vas créer un tableau immense pour pas grand chose...

mais à la rigueur tu peux utiliser TJSONParser, en t'inspirant de TJSONParser.ParseJSONDynArray()
Code:

1 2 3 4 5 6 7 8 9 10 11 uses Execute.JSON; begin var Parser := TJSONParser.Create('[{"id":"1","value":"rouge"},{"id":"2","value":"red"}]'); if Parser.Skip('[') then begin var Value: TValue; Parser.ParseType(@Value, TypeInfo(TValue)); // lire uniquement le premier élément end; end;

10/03/2022, 09h15
Andnotor
Citation:

Envoyé par SergioMaster

Je crois avoir trouvé, même si je pense en faire un peu trop dans ce code

Trop de lignes mais en réalité tu n'en fais pas assez, à moins d'être certain que la chaîne est :
1. Un JSon valide (ça tu le fais par Assigned) ;
2. Un tableau ;
3. Que ce tableau contienne au moins un élément ;
4. Que l'élément possède une donnée value récupérable sous forme de chaîne.
L'ensemble de ces tests peuvent être résumés ainsi :
Code:

1 2 3 4 5 var JSon := TJSonObject.ParseJSONValue(j); var Value := ''; if (JSon is TJSONArray) and (TJSONArray(JSon).Count > 0) then TJSONArray(JSon)[0].TryGetValue<string>('value', Value)
Citation:

Envoyé par SergioMaster

j'ai galéré pour comprendre que je ne pouvais utiliser Jv directement :roll:

Pourtant si :koi:
10/03/2022, 09h39
SergioMaster

Merci à tous

@AndnotOr je suis certain de la chaine et de la structure puisque le texte vient en realité d'un interrogation REST (API Prestashop), d'où les raccourcis que je peux prendre, je ne vais pas ajouter bretelles et ceinture pour un truc fixe
@Paul le tableau ne sera jamais important, il s'agit d'un tableau de traduction en diverses langues et se limite acuellement à FR et EN mais c'est vrai s'il s'agissait d'un tableau plus gros :roll: au pire je m'attends à l'ajout de DE/EN/IT sans trop y croire

Citation:

Envoyé par AndnotOr

Pourtant si :koi:

Je n'ai jamais pu avec 10.3 faire TJSONArray(JSon) (erreur de syntaxe) PPrem mets certainement le doigt dessus en indiquant

Citation:

la fonction ParseJSONValue() est descendue sur le TJSONValue
10/03/2022, 10h37
Andnotor

Citation:

Envoyé par SergioMaster

je ne vais pas ajouter bretelles et ceinture pour un truc fixe

On en reparlera quand tu perdras ton pantalon ;)
Qu'est-ce qui est définitivement figé en informatique ?

Citation:

Envoyé par SergioMaster

Je n'ai jamais pu avec 10.3 faire TJSONArray(JSon) (erreur de syntaxe) ...

Et ton exemple est fait sous quelle version alors parce que c'est exactement ce que tu nous montres (TJSONArray(ov)) :whistle:
10/03/2022, 11h32
SergioMaster

Citation:

Envoyé par Andnotor

Et ton exemple est fait sous quelle version alors parce que c'est exactement ce que tu nous montres (TJSONArray(ov)) :whistle:

10.3 et j'ai été obligé de passer par une seconde variable ov et non directement (ce qui eut été plus agréable) sur le parser jv
10/03/2022, 11h53
Andnotor

Ben je vois pas ! jv et ov sont du même type et pointe sur la même adresse...