Discussion :

[Ardely]

Bonjour,

Je n'arrive pas à m'y prendre, comment inseret un noeud dans une hiérarchie XML existante.
Voici ce que j'arrive a faire,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
<Item>
  <Book>
    <Index>
      <Id0>
        <No>
          <Txt>Mon Text</Txt>
          <Ligne2>Info 1</Ligne2>
          <idx>123</idx>
        </No>
      </Id0>
    </Index>
  </Book>
</Item>

mais je n'arrive pas à insérer le noeud id1 dans la même hiérarchie que id0 pour avoir ce résultat suivent.

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
 
<Item>
  <Book>
    <Index>
      <Id0>
        <No>
          <Txt>Mon Text</Txt>
          <Ligne2>Info 1</Ligne2>
          <idx>123</idx>
        </No>
      </Id0>
	  <Id1>
        <No>
          <Txt>Autre text</Txt>
          <Ligne1>Config 2</Ligne1>
          <idx>123</idx>
        </No>
      </Id1>
    </Index>
  </Book>
</Item>

Voici le code et comment pourrais-je l'adapter pour obtenir ce résultat.

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
 
Var
  XML : IXMLDocument;
  RootNode, Node, CNode, Node1 , Node2, Node3 , Node4 : IXMLNode;
 
begin
 
  XML := TXMLDocument.Create(nil);
  XML.LoadFromFile('Test003.xml');
  XML.Active := true ;
  XML.Options := [doNodeAutoIndent];
 
  RootNode :=   XML.DocumentElement;
 
  Node1 := RootNode.AddChild('Book');
  Node2 := Node1.AddChild('Index');
  Node3 := Node2.AddChild('Id1');
  Node4 := Node3.AddChild('No');
 
   CNode:=Node4.AddChild('Txt');
   CNode.Text:='Autre text';
   CNode:=Node4.AddChild('Ligne1');
   CNode.Text:='Config 2';
   CNode:=Node4.AddChild('idx');
   CNode.Text:='123';
 
   XML.SaveToFile('Test003.xml');
 
end;

Je vous remercie pour un exemple comment faire, bonne journée.

[Andnotor]

IL faut récupérer les nœuds Book et Index existants et non les rajouter.

Code :

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

1
2
Node1 := RootNode.ChildNodes['Book'];
Node2 := Node1.ChildNodes['Index'];

[Ardely]

Hallo,

Merci pour ta réponse, quand je pense que j'ai cherché et c'est aussi simple que ça...

Je te souhaite une bonne semaine.

Salutation
Ardely