Delphi'yi kullanarak xml dosyasında bir etiket değeri nasıl bulunur ve değiştirilir?

Question

Delphi kullanarak XML dosyasında bir etiket değeri nasıl bulunur ve değiştirilir?

XML etiketinin ne olduğunu biliyorum, ancak değer rastgele ve basit bir şekilde varsayılan bir değere sıfırlanması gerekiyor, bu nedenle, gerçekte değeri değil, yalnızca etiketi arayamıyorum/aramamalıyım. Ayrıca dosya/dosyaların yerini biliyorum.

Delphi'ye yeniyim, biri bana bunun nasıl yapılabileceğine dair basit bir örnek verebilir mi?

Önceden teşekkür ederiz. Örneğin

Answer 1

iyi ihtimal bir XML çözümleyici kullanıyor:

• 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
• ... daha birçok sadece Google,; -)

---

o oldukça küçük bir XML dosyası ise, ayrıca sadece bir dize (listede) içine XML yüklemek ve bir düzenli ifade kullanabilirsiniz:

var 
    Regex: TPerlRegEx; 

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

Sen TPerlRegex bileşenini alabilirsiniz here .

---

üçüncü yol, elle bütün kirli işlerini yapıyor pos, delete ve insert kullanarak içerecektir. Açılış ve bitiş etiketinin iki posdesini ve openeing etiketi için> pos değerini bulmanız gerekecek, bu iki dizin arasındaki dizgeyi silecek ve daha sonra varsayılan değerinizi ekleyeceksiniz (ve bunu tekrarlamak zorunda kalacaksınız). Birden fazla olay varsa tüm eşleşmeler). Tercih ettiğim gibi değil ;-)

Answer 2

XML dosyasını Delphi IXMLDocument kullanarak yüklerim ve belgeyi kullanarak öğeyi değiştiririm. Böyle bir şey:

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;