Discussion :

[nikhil]

J'ai quelques problèmes avec un fichier XML qui n'est pas aux normes, jai des & dedans et quand je l'utilise avec Delphi, mon prog plante.
Je voudrais donc pouvoir remplacer dans mon fichier tous les & par &
Mais je ne sais pas trop comment m'y prendre.

Merci pur votre aide

[MD Software]

Tu ouvre ton fichier XML comme un fichier texte.
Tant que tu n'es pas à la fin
Tu lis une ligne
Tu parcours la ligne lu à la recherche d'un &
Si tu trouves, tu remplaces
Tu écris la chaîne dans un autre fichier
Ainsi de suite.

Je ne pense pas qu'il y ait un moyen plus automatique.

[nikhil]

oui, c vrai qu'on peut tout réécrire dans un autre fichier, je n'y avais pas pensé
Sinon, y'aurais pas un autre moyen plus propre ?

[sjrd]

Voilà comment faire, en se basant sur TStrings et AnsiReplaceStr :

Code :

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

1
2
3
4
5
6
7
8
with TStringList.Create do
try
  LoadFromFile(FichierXML);
  Text := AnsiReplaceStr(Text, '&', '&');
  SaveToFile(FichierXML);
finally
  Free;
end;

Vérifie les paramètres de AnsiReplaceStr avant : j'ai pas l'occasion de tester.