Discussion :

[tirixil]

Bonjour à toutes et à tous,

Je dois développer une application qui copie un noeud entier d'un fichier XML selon un attribut donné et le coller une ou deux fois après le noeud concerné selon qu'un tag existe ou non dans le noeud complet.
par exemple :

Code :

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

1
2
3
<offence offencecd="1000139008">
            <locality>241702</locality>
        </offence>

Le noeud offence sera copié deux fois car le tag locality est présent.

Quelle approche utiliserez-vous ? Existe-il déjà quelque chose sur le marché ?
Merci de vos réponses / éclaircissements !

tirixil

[tirixil]

re bonjour,

J'ai le bout de code suivant grâce à l'aide de BIG :

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
 
begin
  monfichierXml := CreateXMLDoc;
  monfichierXml.Load('H:\Delphi\XML NE\test.xml');
  nodeList := monfichierXml.SelectNodes('//case');
  for i := 0 to nodeList.Length-1 do
  begin
    offenceNode := nodeList.Item[i].SelectSingleNode('./offence');
    if offenceNode.Attributes.Item[0].NodeValue = '1000139008' then
    begin
      attrib := offenceNode.SelectSingleNode('./locality');
      if attrib <> nil then
      begin
        newNode := offenceNode.CloneNode(true);
        newNode.Attributes.Item[0].NodeValue := '999999999';
        nodeList.Item[i].AppendChild(newNode);
 
        newNode := offenceNode.CloneNode(true);
        newNode.Attributes.Item[0].NodeValue := '111111111';
        nodeList.Item[i].AppendChild(newNode);
      end
      else
      begin
        newNode := nodeList.Item[i].CloneNode(true);
        newNode.Attributes.Item[0].NodeValue := '999999999';
        nodeList.Item[i].AppendChild(newNode);
      end;
    end;
  end;
  monfichierXml.Save('H:\Delphi\XML NE\test_corrige.xml');
  ShowMessage('Le fichier a été corrigé et sauvegardé');
end;

Voilà le code corrigé :-)

A bientôt

[Raylemon]

ravi que mon tutoriel ait pu t'aider