Как искать и заменить значение тега в использовании XML-файла Дельфи?

Я загрузил файл XML с помощью Delphi's IXMLDocument и используйте документ для замены элемента. Что-то вроде этого:

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;

Лучшая возможность использует анализатор XML , например:

• 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
• ... Многое другое, просто Google IT; -)

Если это довольно маленький файл XML, вы также можете просто загрузить XML в строку (список) и использовать регулярное выражение :

var
  Regex: TPerlRegEx;

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

Вы можете получить компонент TPERLREGEX здесь .

Третий путь будет включать все грязные работы вручную , используя POS , , удалить и вставку . Вам придется найти два Pos'es из открытия и конца тега и POS> для тега Openeing), удалите строку между этими двумя индексами и вставьте значение по умолчанию потом (и вам придется повторять Все матчи, если есть более одного происшествия). Не так, как я бы предпочел; -)