Discussion :

[didou2dek]

Bonjour à tous,
Je suis en train de créer un fichier XML pour gérer des remontées d'informations et je me retrouve avec des noeuds vides que j'aimerais supprimer je galère depuis plusieurs jours sans trouver la solution. Voici un bout du fichier XML

Code xml :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
<LogEventList>
   <ClipLogList>
      <Title>AngeDemon</Title>
  </ClipLogList>
  <ClipLogList>
      <Title>LesYeux2</Title>
  </ClipLogList>
.....
etc....
  <ClipLogList/>
  <ClipLogList/>
  <ClipLogList/>
  <ClipLogList/>
  <ClipLogList/>
</LogEventList>

Lorsque mon fichier XML est créé il me mets en plus à la fin du fichier un tas de <ClipLogList/> vide ?? je voudrais supprimer tous ces <ClipLogList/> qui ne servent à rien afin de terminer le XML proprement.
Malheureusement je ne trouve pas comment faire existe t-il une fonction pour supprimer ces noeuds ? j'ai tenté une boucle avec :
for i:=0 to cliploglist.count-1 do
begin
if cliploglist.item[i].Title=' ' then cliploglist.delete(i);
end;
mais il me jette sans avoir tout effacé ??
Si quelqu'un peut me donner une piste cela me rendrait énormément service.
Merci beaucoup pour vos aides..
didou

[ALWEBER]

Tu dépose ton xml dans un stringList et tu utilise StringReplace du genre

Code :

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

1
2
3
4
5
6
7
8
var
  sl1 : TStringList ;
begin
  sl1 := TStringList.Create ;
  sl1.Text := monfichierxml ;
  sl1.Text := stringReplace (sl1.Text,'<ClipLogList/>','',[rfReplaceAll]) ;
  sl1.SaveToFile('mesdonnees.xml') ;
  sl1.clear ;

[didou2dek]

Merci pour ta réponse rapide, je ne pensais pas pouvoir utiliser de TstringList pour un fichier XML j'avais peur de perdre la mise en forme XML, cependant lorsque j'utilise ton code il me supprime tous les <ClipLogList/> de mon fichier mais moi je veux uniquement supprimer ceux de la fin entre le dernier <ClipLogList/> et le <LogEventList/> ??

Merci à toi si tu peux encore m'aider

[ALWEBER]

Merci pour ta réponse rapide, je ne pensais pas pouvoir utiliser de TstringList pour un fichier XML j'avais peur de perdre la mise en forme XML, cependant lorsque j'utilise ton code il me supprime tous les <ClipLogList/> de mon fichier mais moi je veux uniquement supprimer ceux de la fin entre le dernier <ClipLogList/> et le <LogEventList/> ??

Merci à toi si tu peux encore m'aider

Code :

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

1
2
3
sl1.Text := stringReplace (sl1.Text,'<ClipLogList/>','###',[]) ;
sl1.Text := stringReplace (sl1.Text,'<ClipLogList/>','',[rfReplaceAll]) ;
sl1.Text := stringReplace (sl1.Text,'###','<ClipLogList/>',[]) ;

[didou2dek]

Merci beaucoup tu me sauves la mise je partais sur du trop complexe et ne connaissais pas cette fonction !! Merci au forum d'avoir des gens comme toi qui donne de leur temps