Comment rechercher et remplacer une valeur d'étiquette dans un fichier XML en utilisant Delphi?

Question

Comment rechercher et remplacer une valeur de variable dans un fichier XML en utilisant Delphi?

Je sais ce qu'est la balise XML, mais la valeur est aléatoire et doit simplement être réinitialisée à une valeur par défaut, donc en réalité je ne peux/ne devrais pas chercher la valeur mais seulement la balise. Je connais également l'emplacement du ou des fichiers.

Je suis nouveau à Delphi, quelqu'un peut-il me fournir un exemple simple sur la façon dont cela pourrait être fait?

Merci d'avance.

Answer 1

La meilleure méthode utilise un analyseur XML , par exemple:

• http://www.icom-dv.de/products/xml_tools/uk_xml_parser_01.php3
• http://www.omnixml.com/
• http://www.destructor.de/xmlparser/index.htm
• http://www.simdesign.nl/xml.html
• ... beaucoup d'autres, il suffit de Google; -)

---

Si c'est un fichier XML plutôt petit, vous pouvez aussi simplement charger le XML dans une chaîne (liste) et utiliser une expression régulière :

var 
    Regex: TPerlRegEx; 

Regex := TPerlRegEx.Create(nil); 
Regex.RegEx := '<yourtag>.*?</yourtag>'; 
Result := objRegEx.Replace(inputString, replacementString, true); 

Vous pouvez obtenir le composant TPerlRegex here .

---

La troisième façon comprendrait faire tout le sale boulot main, en utilisant pos, delete et insert. Vous devrez trouver les deux poses des balises d'ouverture et de fin et la position du> pour la balise ouvrante), supprimez la chaîne entre ces deux index et insérez votre valeur par défaut par la suite (et vous devrez itérer sur tous les matches s'il y a plus d'une occurrence). Pas comme je le voudrais ;-)

Answer 2

Je chargerais le fichier XML en utilisant le IXMLDocument de Delphi et utiliserais le document pour remplacer l'élément. Quelque chose comme ceci:

uses 
    XMLDoc, 
    XMLIntf; 

procedure ChangeTag(const filename : String); 
var 
    doc : IXMLDocument; 
    parent : IXMLNode; 
    toReplace : IXMLNode; 
    replacement : IXMLNode; 
begin 
    doc := LoadXMLDocument(filename); 

    parent := doc.DocumentElement.ChildNodes.FindNode('parent'); 
    toReplace := parent.ChildNodes.FindNode('toReplace'); 

    replacement := doc.CreateElement('replacement', ''); 
    replacement.Text := toReplace.Text; 

    parent.ChildNodes.ReplaceNode(toReplace, replacement); 

    doc.SaveToFile(filename); 
end;