XML的节点重命名的问题,请各位赐教

Question

IXMLDOMNode.NodeName是只读的,各位有什么办法改变这个NodeName的值,即:
<Caption>标题</Caption>改变"Caption"为其他的值变成如:<Hint>标题</Hint>
分不够再加!

Answer 1

子节点怎么办啊,我把子节点克隆出来,Append不进去啊!各位还是多多帮忙!

Answer 2

子节点克隆用IXMLNode的CloneNode方法！！    xns:=srcxn.CloneNode(true); // copy node to save node info
    srcxn.ParentNode.ChildNodes.Remove(oldxn); // delete the node
    targetxn.ChildNodes.Add(xns); // add node to target node

Answer 3

//各位还是不要克隆,看看下面,谢谢上面的两位星星!
procedure ReNameNodeByPathString(XMLDOC: IXMLDOMDocument; PathStr, NewName: String);
var
  i: Integer;
  Attributes: IXMLDOMNamedNodeMap;
  SpecXMLNode, NewXMLNode: IXMLDOMNode;
begin
  SpecXMLNode:=XMLDOC.selectSingleNode(PathStr);
  if SpecXMLNode <> nil then
  begin
    NewXMLNode:=XMLDOC.createNode(NODE_ELEMENT,NewName,'');    Attributes:=(SpecXMLNode as IXMLDOMElement).attributes;
    for i := 0 to Attributes.length - 1 do
      (NewXMLNode as IXMLDOMElement).setAttribute(Attributes.item[i].nodeName,Attributes.item[i].nodeValue);    SpecXMLNode:=SpecXMLNode.parentNode.replaceChild(NewXMLNode,SpecXMLNode);
    while SpecXMLNode.childNodes.length <> 0 do
      NewXMLNode.appendChild(SpecXMLNode.removeChild(SpecXMLNode.childNodes.item[0]));    SpecXMLNode:=nil;
  end;
  LanguageTrans.Modify:=True;
end;