Suppression de nœud vide dans fichier XML sous Delphi 7

Version imprimable

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:

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

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

Code:

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 ;

17/04/2015, 18h51
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

Citation:

Envoyé par 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
Code:

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

17/04/2015, 21h56
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:P