exploitation d'un fichier XML

[bremer]

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 xml :

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

[ShaiLeTroll]

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 xml :

1
2
3
<JobSetting>
  Bonjour
</JobSetting>

Avec ce XML simple, tu pouvais utiliser Text mais pas avec

Code xml :

1
2
3
<JobSetting>
  <Bonjour />
</JobSetting>

tu dois de nouveau parcourir les ChildNodes['JobSetting'].ChildNodes et lire Attributes[] !

[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

[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.

[bremer]

Merci je regarde cela

[Papy214]

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;