在Delphi

Question

删除特定的XML元素我有一个XML文档看起来是这样的：

<?xml version="1.0"?> 
<Person xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> 
    <ExtensionData /> 
    <Name>ali</Name> 
    <Age>37</Age> 
    <Father> 
    <ExtensionData /> 
    <Name>I</Name> 
    <Age>72</Age> 
    </Father> 
    <Mother> 
    <ExtensionData /> 
    <Name>M</Name> 
    <Age>62</Age> 
    </Mother> 
</Person> 

我用Delphi 7

如何删除XML文档中的所有ExtensionData元素也是这样吗？

Answer 1

可以使用IXMLNodeList.Delete()或IXMLNodeList.Remove()方法来删除节点：

var 
    Root: IXMLNode; 
begin 
    Root := XMLDocument1.DocumentElement; 
    Root.ChildNodes.Delete('ElementData'); 
    for I := 0 to Root.ChildNodes.Count-1 do 
    Root.ChildNodes[I].ChildNodes.Delete('ElementData'); 
end; 

var 
    Root, Child, Node: IXMLNode; 
begin 
    Root := XMLDocument1.DocumentElement; 
    Node := Root.ChildNodes.FindNode('ElementData'); 
    if Node <> nil then Root.ChildNodes.Remove(Node); 
    for I := 0 to Root.ChildNodes.Count-1 do 
    begin 
    Child := Root.ChildNodes[I]; 
    Node := Child.ChildNodes.FindNode('ElementData'); 
    if Node <> nil then Child.ChildNodes.Remove(Node); 
    end; 
end; 

如果你想删除所有ElementData元素无论其深度的文档中，递归程序可以这样做：

procedure RemoveElementData(Node: IXMLNode); 
var 
    Root, Child: IXMLNode; 
begin 
    repeat until Node.ChildNodes.Delete('ElementData') = -1; 
    for I := 0 to Node.ChildNodes.Count-1 do 
    RemoveElementData(Node.ChildNodes[I]); 
    end; 
end; 

begin 
    RemoveElementData(XMLDocument1.DocumentElement); 
end;