exploitation d'un fichier XML

Version imprimable

Bonjour,

Question sur le traitement d'un fichier XML.
Je désire dans l'exemple ci après modifier et ou ajouter les ligne keyvalue.
Code:

1 2 3 4 5 6 7 <?xml version="1.0" encoding="utf-8"?> <HotFolder name="Vilatis" description=""> <JobSetting> <KEYVALUE Key="Chapters" Value="" KeyDisplayValue="" LocDisplayValue=""/> <KEYVALUE Key="SubsetFinishing" Value="" KeyDisplayValue="" LocDisplayValue=""/> </JobSetting> </HotFolder>
J'utilise le composant XMLDocument1
Code:

1 2 Noeud := XMLDocument1.ChildNodes['HotFolder'].ChildNodes['JobSetting']; showmessage( Noeud.Text);
L'élément 'Jobsetting' ne contient pas un noeud texte unique

Merci d'avance pour votre aide.

Laurent

09/02/2012, 17h42
ShaiLeTroll
:tagcode:

en mettant [CODE=XML ] (sans l'espace), cela colorise ton XML !

Le Message est pourtant très clair !
la réponse est dans ton XML, suffit d'ouvrir les yeux et

Ensuite, <JobSetting> n'a pas de Text, il a des sous-noeud <KEYVALUE ...>, tu confonds avec
Code:

1 2 3 <JobSetting> Bonjour </JobSetting>
Avec ce XML simple, tu pouvais utiliser Text mais pas avec
Code:

1 2 3 <JobSetting> <Bonjour /> </JobSetting>
tu dois de nouveau parcourir les ChildNodes['JobSetting'].ChildNodes et lire Attributes[] !
10/02/2012, 09h28
bremer

Merci pour ce retour et j'ouvre grands les yeux.

La manipulation du XML avec delpgi est une première pour moi.

JE pensais pouvoir les manipuler comme un fichier ini.

Par contre un exemple serait le bien venu sur l'utilisation du attribute.

Cordialement,

laurent BREMER
16/02/2012, 18h02
Chayanne47

salut
moi j'ai utilisé XMLPARSER composant téléchargé sur http://www.destructor.de/xmlparser/

regarde avec ce composant, que j'ai trouvé très simple d'utilisation.

si tu as besoin d'un exemple avec dit moi.
16/02/2012, 18h34
bremer

Merci je regarde cela

Code:

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
 
procedure TForm1.btnChargerClick(Sender: TObject);
var
  xml: IXMLDocument;
begin
  if Trim(redt1.Lines.Text) <> '' then
    xml := LoadXMLData(redt1.Lines.Text)
  else
    xml := LoadXMLDocument('D:\test.xml');
  redt1.Lines.Text := xml.XML.Text;
end;
 
procedure TForm1.btnLireClick(Sender: TObject);
var
  xml: IXMLDocument;
  nodeJobSetting, nodeKEYVALUE: IXMLNode;
begin
  if Trim(redt1.Lines.Text) = '' then
  begin
    ShowMessage('Aucun fichier disponible');
    Exit;
  end;
 
  xml := LoadXMLData(redt1.Lines.Text);
 
  nodeJobSetting := xml.DocumentElement.ChildNodes.Nodes['JobSetting'];
  if Assigned(nodeJobSetting) then
  begin
    nodeKEYVALUE := nodeJobSetting.ChildNodes.First;
    while Assigned(nodeKEYVALUE) do
    begin
      ShowMessage(nodeKEYVALUE.AttributeNodes.Nodes['Key'].NodeValue);
      nodeKEYVALUE := nodeKEYVALUE.NextSibling;
    end;
  end;
 
end;
 
procedure TForm1.btnAjouterClick(Sender: TObject);
var
  xml: IXMLDocument;
  nodeJobSetting, nodeKEYVALUE: IXMLNode;
begin
 
  if Trim(redt1.Lines.Text) = '' then
  begin
    ShowMessage('Aucun fichier disponible');
    Exit;
  end;
  xml := LoadXMLData(redt1.Lines.Text);
 
  nodeJobSetting := xml.DocumentElement.ChildNodes.Nodes['JobSetting'];
  if Assigned(nodeJobSetting) then
  begin
    nodeKEYVALUE := nodeJobSetting.AddChild('KEYVALUE');
    nodeKEYVALUE.Attributes['key'] := 'test01';
  end;
  xml.SaveToFile('d:\test1.xml');
end;
 
procedure TForm1.btnModifierClick(Sender: TObject);
var
  xml: IXMLDocument;
  nodeJobSetting, nodeKEYVALUE: IXMLNode;
begin
 
  if Trim(redt1.Lines.Text) = '' then
  begin
    ShowMessage('Aucun fichier disponible');
    Exit;
  end;
  xml := LoadXMLData(redt1.Lines.Text);
 
  nodeJobSetting := xml.DocumentElement.ChildNodes.Nodes['JobSetting'];
  if Assigned(nodeJobSetting) then
  begin
    nodeKEYVALUE := nodeJobSetting.ChildNodes.First;
    while Assigned(nodeKEYVALUE) do
    begin
      nodeKEYVALUE.Attributes['Key'] := 'MODIFIE PAR MOI';
      nodeKEYVALUE := nodeKEYVALUE.NextSibling;
    end;
  end;
  xml.SaveToFile('d:\test2.xml');
end;