Problème pour traiter un XML

**Spinoza23** · 26/08/2009, 15h06

Du coup, comment faire? Es ce qu'il faut que je traite l'excéption? (chose que je ne sais pas faire...) ou es ce que je dois faire une vérification ultérieure?

J'ai essayer quelque chose qui n'a pas marché...

Code :

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

1
2
3
4
5
 
if RJMnode.HasChildNodes then
begin
   RJMnode := RJMnode.NextSibling;
end;

Ceci ne marche pas non plus. Merci de votre aide !

**Andnotor** · 26/08/2009, 16h06

Comme déjà dit, NextSibling ce fiche de savoir si le noeud suivant s'appelle RJM. Et puisque tu n'as pas d'exception, c'est qu'il trouve quelque chose...

Ensuite si Options du TXMLDocument spécifie doNodeAutoCreate, appeler ChildNodes crée automatiquement les noeuds enfants inexistants (ENT_ID_CODE_PRD et suivant). Il n'y a pas non plus d'exception, mais ils sont vides !

**Spinoza23** · 26/08/2009, 17h00

Ok, bien compris, mais comment faire alors??? je me suis inspiré de ce que tu m'avais dit de suivre... Voilà mon 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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
begin
   Doc := TXMLDocument.Create(aFileName);
   doc.Active := True;
 
   NOMFICHIER := ExtractFileName(aFileName);
   NOMFICHIER := ChangeFileExt(NOMFICHIER, '');
 
   // <FIC_XML>
 
   DEBnode := XMLDoc.Node.ChildNodes.FindNode('DEB');
 
   with doc.DOMDocument do
   begin
      // <DEB>
      with DEBnode do
//      for I := 0 to nbtot - 1 do
      begin
         ENT_ID_CODE_LAB := ChildNodes['ENT_ID_CODE_LAB'].Text;
         IDDEST          := ChildNodes['IDDEST'].Text;
         IDFICHIER       := ChildNodes['IDFICHIER'].Text;
         TYPE_EXPORT     := ChildNodes['TYPE_EXPORT'].Text;
         VERSION         := StrToInt(ChildNodes['VERSION'].Text);
 
         labelAction.Caption  := 'Lecture des données...';
         // c'est là qu'il faut faire le append
         dm.fichier.first;
         dm.fichier.Append;
         dm.fichier['NOM_FIC']:= NOMFICHIER;
         dm.fichier['ENT_ID_CODE_LAB']:= ENT_ID_CODE_LAB;
         dm.fichier['IDDEST']:= IDDEST;
         dm.fichier['IDFICHIER']:= IDFICHIER;
         dm.fichier['TYPE_EXPORT']:= TYPE_EXPORT;
         dm.fichier['VERSION']:= VERSION;
         dm.fichier.Next;
      end;
 
      // <REM>
      REMnode := DEBnode.ChildNodes.First;
      with REMnode do
      begin
         while REMnode <> nil do
         begin
            ENT_ID_CODE_PRD           := ChildNodes['ENT_ID_CODE_PRD'].Text;
            REM_MOIS_FACTURATION      := ChildNodes['REM_MOIS_FACTURATION'].Text;
            RF_CRI_ID_CODE            := ChildNodes['RF_CRI_ID_CODE'].Text;
            RF_TRM_ID_CODE            := ChildNodes['RF_TRM_ID_CODE'].Text;
            ENT_ID_CODE_CA            := ChildNodes['ENT_ID_CODE_CA'].Text;
            RF_ESP_ID_CODE            := ChildNodes['RF_ESP_ID_CODE'].Text;
            RF_NAT_ID_CODE            := ChildNodes['RF_NAT_ID_CODE'].Text;
            REM_RECIDIVE              := ChildNodes['REM_RECIDIVE'].Text;
            REM_NOMBRE_RECIDIVE       := StrToInt(ChildNodes['REM_NOMBRE_RECIDIVE'].Text);
            REM_PENALITE_MOIS         := ChildNodes['REM_PENALITE_MOIS'].Text;
            REM_POUR_PAIEMENT         := ChildNodes['REM_POUR_PAIEMENT'].Text;
            REM_DIFFUSION_PULL        := ChildNodes['REM_DIFFUSION_PULL'].Text;
            RF_AIP_ID_CODE            := ChildNodes['RF_AIP_ID_CODE'].Text;
            ENT_ID_CODE_CC            := ChildNodes['ENT_ID_CODE_CC'].Text;
 
            if ChildNodes['REM_CLASSE_MENSUELLE'].Text = '' then
            begin
              REM_CLASSE_MENSUELLE := ' ';
            end
            else
            begin
               REM_CLASSE_MENSUELLE := ChildNodes['REM_CLASSE_MENSUELLE'].Text;
            end;
 
            REM_RECLASSEMENT          := ChildNodes['REM_RECLASSEMENT'].Text;
 
            if ChildNodes['REM_CLASSE_MENSUELLE_PAIE'].Text = '' then
            begin
              REM_CLASSE_MENSUELLE_PAIE := ' ';
            end
            else
            begin
               REM_CLASSE_MENSUELLE_PAIE := ChildNodes['REM_CLASSE_MENSUELLE_PAIE'].Text;
            end;
 
            REM_NOTE_MENSUELLE        := StrToInt(ChildNodes['REM_NOTE_MENSUELLE'].Text);
 
            if ChildNodes['REM_VALEUR_RES_MENS'].Text = '' then
            begin
               REM_VALEUR_RES_MENS := 0;
            end
            else
            begin
               REM_VALEUR_RES_MENS := StrToInt(ChildNodes['REM_VALEUR_RES_MENS'].Text);
            end;
            if ChildNodes['RF_UME_ID_CODE'].Text = '' then
            begin
              RF_UME_ID_CODE := ' ';
            end
            else
            begin
               RF_UME_ID_CODE := ChildNodes['RF_UME_ID_CODE'].Text;
            end;
 
            REM_NOMBRE_MOIS           := StrToInt(ChildNodes['REM_NOMBRE_MOIS'].Text);
            labelAction.Caption  := 'Lecture des données...';
            // c'est là qu'il faut faire le append
 
            dm.rem.Append;
            dm.rem['ENT_ID_CODE_PRD']:= ENT_ID_CODE_PRD;
            dm.rem['REM_MOIS_FACTURATION']:= REM_MOIS_FACTURATION;
            dm.rem['REM_NOMBRE_MOIS']:= REM_NOMBRE_MOIS;
            dm.rem['RF_CRI_ID_CODE']:= RF_CRI_ID_CODE;
            dm.rem['RF_TRM_ID_CODE']:= RF_TRM_ID_CODE;
            dm.rem['ENT_ID_CODE_CA']:= ENT_ID_CODE_CA;
            dm.rem['RF_ESP_ID_CODE']:= RF_ESP_ID_CODE;
            dm.rem['RF_NAT_ID_CODE']:= RF_NAT_ID_CODE;
            dm.rem['REM_RECIDIVE']:= REM_RECIDIVE;
            dm.rem['REM_NOMBRE_RECIDIVE']:= REM_NOMBRE_RECIDIVE;
            dm.rem['REM_PENALITE_MOIS']:= REM_PENALITE_MOIS;
            dm.rem['REM_POUR_PAIEMENT']:= REM_POUR_PAIEMENT;
            dm.rem['REM_DIFFUSION_PULL']:= REM_DIFFUSION_PULL;
            dm.rem['REM_CLASSE_MENSUELLE']:= REM_CLASSE_MENSUELLE;
            dm.rem['REM_RECLASSEMENT']:= REM_RECLASSEMENT;
            dm.rem['REM_CLASSE_MENSUELLE_PAIE']:= REM_CLASSE_MENSUELLE_PAIE;
            dm.rem['REM_NOTE_MENSUELLE']:= REM_NOTE_MENSUELLE;
            dm.rem['REM_NOMBRE_MOIS']:= REM_NOMBRE_MOIS;
            dm.rem['RF_UME_ID_CODE']:= RF_UME_ID_CODE;
            dm.rem['REM_VALEUR_RES_MENS']:= REM_VALEUR_RES_MENS;
            dm.rem['REM_NOMFICHIER']:= NOMFICHIER;
            dm.rem.Post;
 
            dm.rem.close;
            dm.rem.open;
            dm.rem.next;
 
            // <RJM>
            RJMnode := REMnode.ChildNodes.First;
            with RJMnode do
            begin
               while RJMnode <> nil do
               begin
                  ECH_CODE_LABO         := ChildNodes['ECH_CODE_LABO'].Text;
                  RF_MET_ID_CODE        := ChildNodes['RF_MET_ID_CODE'].Text;
                  RF_CRI_ID_CODE        := ChildNodes['RF_CRI_ID_CODE'].Text;
                  REJ_DATE_ANALYSE      := ChildNodes['REJ_DATE_ANALYSE'].Text;
                  REJ_MOIS_FACTURATION  := ChildNodes['REJ_MOIS_FACTURATION'].Text;
                  RF_SRJ_ID_CODE        := ChildNodes['RF_SRJ_ID_CODE'].Text;
                  REJ_PENALISATION_JOUR := ChildNodes['REJ_PENALISATION_JOUR'].Text;
                  REJ_DIFFUSION_PULL    := ChildNodes['REJ_DIFFUSION_PULL'].Text;
                  REJ_NOTE              := ChildNodes['REJ_NOTE'].Text;
                  REJ_UME_VALEUR_RES    := ChildNodes['REJ_UME_VALEUR_RES'].Text;
                  RF_UME_ID_CODE        := ChildNodes['RF_UME_ID_CODE'].Text;
                  RJM_IDREM             := dm.rem['ID_REM'];
 
                  labelAction.Caption  := 'Lecture des données...';
                  // c'est là qu'il faut faire le append
                  dm.rjm.Append;
                  dm.rjm['ECH_CODE_LABO']:= ECH_CODE_LABO;
                  dm.rjm['RF_MET_ID_CODE']:= RF_MET_ID_CODE;
                  dm.rjm['RF_CRI_ID_CODE']:= RF_CRI_ID_CODE;
                  dm.rjm['REJ_DATE_ANALYSE']:= REJ_DATE_ANALYSE;
                  dm.rjm['REJ_MOIS_FACTURATION']:= REJ_MOIS_FACTURATION;
                  dm.rjm['RF_SRJ_ID_CODE']:= RF_SRJ_ID_CODE;
                  dm.rjm['REJ_PENALISATION_JOUR']:= REJ_PENALISATION_JOUR;
                  dm.rjm['REJ_DIFFUSION_PULL']:= REJ_DIFFUSION_PULL;
                  dm.rjm['REJ_NOTE']:= REJ_NOTE;
                  dm.rjm['REJ_UME_VALEUR_RES']:= REJ_UME_VALEUR_RES;
                  dm.rjm['RF_UME_ID_CODE']:= RF_UME_ID_CODE;
                  dm.rjm['RJM_IDREM']:= RJM_IDREM;
                  dm.rjm.Post;
 
                  RJMnode := RJMnode.NextSibling;
 
               end;
            end;
            REMnode := REMnode.NextSibling;
         end;
      end;
 
     // <ECM>
     ECMnode := XMLDoc.Node.ChildNodes.FindNode('ECM');
     with ECMnode do
     begin
        while ECMnode <> nil do
        begin
           ECH_CODE_LABO         := ChildNodes['ECH_CODE_LABO'].Text;
           ECH_CODE_INTERNE_LABO := ChildNodes['ECH_CODE_INTERNE_LABO'].Text;
           RF_ESP_ID_CODE        := ChildNodes['RF_ESP_ID_CODE'].Text;
           RF_NAT_ID_CODE        := ChildNodes['RF_NAT_ID_CODE'].Text;
           ENT_ID_CODE_CC        := ChildNodes['ENT_ID_CODE_CC'].Text;
           TRN_ID_CODE           := ChildNodes['TRN_ID_CODE'].Text;
           TOU_ID_NUMERO         := StrToInt(ChildNodes['TOU_ID_NUMERO'].Text);
           TOU_ID_DATE_DEB       := ChildNodes['TOU_ID_DATE_DEB'].Text;
           ECH_DATE_PRELEV       := ChildNodes['ECH_DATE_PRELEV'].Text;
           ECH_DATE_COLLECTE     := ChildNodes['ECH_DATE_COLLECTE'].Text;
           ECH_RANG_PRELEV       := StrToInt(ChildNodes['ECH_RANG_PRELEV'].Text);
           ECH_ORDRE_PRELEV      := StrToInt(ChildNodes['ECH_ORDRE_PRELEV'].Text);
           ENT_ID_CODE_CA        := ChildNodes['ENT_ID_CODE_CA'].Text;
           ENT_ID_CODE_PRD       := ChildNodes['ENT_ID_CODE_PRD'].Text;
           RF_SEC_ID_CODE        := ChildNodes['RF_SEC_ID_CODE'].Text;
           ECH_ANOMALIE          := ChildNodes['ECH_ANOMALIE'].Text;
           ECH_COMMENTAIRE       := ChildNodes['ECH_COMMENTAIRE'].Text;
 
           labelAction.Caption  := 'Lecture des données...';
           // c'est là qu'il faut faire le append
           dm.ECM.first;
           dm.ECM.Append;
           dm.ECM['ECH_CODE_LABO']:= ECH_CODE_LABO;
           dm.ECM['ECH_CODE_INTERNE_LABO']:= ECH_CODE_INTERNE_LABO;
           dm.ECM['RF_ESP_ID_CODE']:= RF_ESP_ID_CODE;
           dm.ECM['RF_NAT_ID_CODE']:= RF_NAT_ID_CODE;
           dm.ECM['ENT_ID_CODE_CC']:= ENT_ID_CODE_CC;
           dm.ECM['TRN_ID_CODE']:= TRN_ID_CODE;
           dm.ECM['TOU_ID_NUMERO']:= TOU_ID_NUMERO;
           dm.ECM['TOU_ID_DATE_DEB']:= TOU_ID_DATE_DEB;
           dm.ECM['ECH_DATE_PRELEV']:= ECH_DATE_PRELEV;
           dm.ECM['ECH_DATE_COLLECTE']:= ECH_DATE_COLLECTE;
           dm.ECM['ECH_RANG_PRELEV']:= ECH_RANG_PRELEV;
           dm.ECM['ECH_ORDRE_PRELEV']:= ECH_ORDRE_PRELEV;
           dm.ECM['ENT_ID_CODE_CA']:= ENT_ID_CODE_CA;
           dm.ECM['ENT_ID_CODE_PRD']:= ENT_ID_CODE_PRD;
           dm.ECM['RF_SEC_ID_CODE']:= RF_SEC_ID_CODE;
           dm.ECM['ECH_ANOMALIE']:= ECH_ANOMALIE;
           dm.ECM['ECH_COMMENTAIRE']:= ECH_COMMENTAIRE;
           dm.ECM['ECM_NOMFICHIER']:= NOMFICHIER;
           dm.ECM.Post;
           dm.ecm.Next;
 
           ECMnode := ECMnode.NextSibling;
        end;
     end;
 
//      // <FIN>
//      with ChildNodes['FIN'] do
//      begin
//         NBENR   := StrToInt(ChildNodes['NBENR'].Text);
//
//         labelAction.Caption  := 'Lecture des données...';
//         // c'est là qu'il faut faire le append
//         dm.analyse.first;
//         if dm.analyse.locate('an_ENT_ID_CODE_PRD',ENT_ID_CODE_PRD,[]) then
//         begin
//            dm.analyse.Append;
//            dm.analyse['an_NBENR']:= NBENR;
//            dm.analyse.Post;
//         end;
//      end;
 
   end;
   Doc.free;
end;

Mais pour une raison que j'ignore ça ne marche pas... Cette fois ci j'ai une erreur comme quoi "Aucun document n'est actif"...

Je ne sais plus quoi faire, depuis que je suis sur ce sujet je tourne en rond... Je rêve de trouver la solution ^^

Merci de ton aide !

**Andnotor** · 26/08/2009, 17h14

Pour ton code actuel, essaye quelque chose comme ça:

Code :

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

1
2
3
4
5
6
7
try
  repeat
    RJMnode := RJMnode.NextSibling;
  until RJMnode.NodeName = 'RJM';
except
  Break;
end;

**Spinoza23** · 26/08/2009, 17h47

Comment te dire???? Yahouuuuuu !!! ^^ ça marche enfin et ce grâce à deux choses : ton aide et daft punk !!! lol...

Ceci dit j'ai des trucs bizarres dans ma base.

J'ai 21 nœuds ECM (jusque la rien d'anormal...) et ben du coup, j'ai 21 ligne dans REM (la table REM) avec zéro données... grrrr...

Clairement je passe dans mon traitement REM, même si mon nœud n'est pas REM...

Pourtant j'ai ceci

Code :

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

1
2
3
4
5
      // <REM>
      REMnode := ChildNodes['REM'];
      with REMnode do
      begin
         while REMnode <> nil do

en début de test... Je comprends pas bien...

**ShaiLeTroll** · 26/08/2009, 18h55

Je vois que l'on utilise FindNode avec un Constructeur Fichier, je poursuis ce que disais Andnotor sur la VA et bizarrie de libération, interface ...

C'est effectivement pénible la gestion particulière avec le Owner et sans le Owner ...

Sans Owner, on peut faire pour éviter la VA

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
var
  Doc :TXMLDocument;

begin
  Doc := TXMLDocument.Create(nil);
  try
    Doc.LoadFromFile(aFileName);
    ...
  finally
     if Assigned(Node) then 
       (Doc.Node as IXMLNodeAccess).ClearDocumentRef();
     Doc.Free;
  end;
  
end;

Mais sabs Owner, la gestion des compteurs de références des interfaces c'est juste une misère ...

en particulier avec FindNode qui perd ses références

, comme j'ai des objets XML construit dynamiquement sans Form ... j'ai fait dans le tordu ...

Code :

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

1
2
3
4
5
6
    XMLDoc := TXMLDocument.Create(TComponent.Create(nil)); // Le Owner stabilise les interfaces IXMLNode libéré à tord et à travers !
    try
      ...
    finally
      XMLDoc.Owner.Free();
    end;

Tu devrais réorganiser ton code et découper la lecture de chaque node en sous-fonction qui s'appelle mutuellement et remplisse le DataSet ...

Sinon le XML cela peut-être récursif, pour certaines des applis dont j'ai la maintenance en charge c'est ce qui se passe, une fois parti sur IXMLNode ou sur IXMLNodeList, il n'y a aucun soucis de parcours même pour les noeuds au nom similaire (je serais embêté sinon) ... je suis étonné de l'utilisation de NextSibling (basé sur FindSibling) qui est plus lent qu'un For ChildNodes ... as-tu eu des problèmes avec Count ?

**Andnotor** · 26/08/2009, 22h18

Envoyé par Spinoza23

Clairement je passe dans mon traitement REM, même si mon nœud n'est pas REM...

Et ça ne te rappelle pas ton RJM ?.. Applique la même technique.

Envoyé par ShaiLeTroll

je suis étonné de l'utilisation de NextSibling (basé sur FindSibling) qui est plus lent qu'un For ChildNodes ... as-tu eu des problèmes avec Count ?

Je préfère aussi et de loin une boucle sur ChildNodes.Count.

Envoyé par ShaiLeTroll

Code :

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

1
2
3
4
5
6
XMLDoc := TXMLDocument.Create(TComponent.Create(nil)); // Le Owner stabilise les interfaces IXMLNode libéré à tord et à travers !
    try
      ...
    finally
      XMLDoc.Owner.Free();
    end;

Ta perversion n'a pas de limite Shai

Mais ton premier code m'étonne. C'est typiquement le cas où il y a une AV (Sur LoadFromFile).

ps: Daft Punk, Non... Si je suis énervé, j'écoute Dead Kennedys...

**ShaiLeTroll** · 27/08/2009, 09h38

J'avoue que j'utilise souvent des Stream

Code :

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

1
2
3
XMLReplaceXML := TXMLDocument.Create(nil);
XMLReplaceXML.Active := True;
XMLReplaceXML.LoadFromStream(FileStream);

Problème pour traiter un XML

Delphi

Discussions similaires

Partager

Partager