xml - 如何处理直到第一个子节点和最后一个子节点之后的 xml 节点文本？

Question

<p> Normal text <b> bolded </b> finish normal text </p>

我使用 OmniXML 处理该 xml（示例减少）（但我相信该解决方案将适用于其他 XML 解析器）。我遍历 xml，每次处理 ap 或 b 标签时，我都会更改一些字体设置等。

问题是当我有一个指向 p 标签的 Node var 时

节点文本节点

它返回“普通文本粗体完成普通文本”完整文本，但我只想返回第一个标签之前的部分（以及最后一部分）；这样，当您之后处理标签时，我可以更改字体设置，并打印粗体文本..

我怎么能这样做？

Answer 1

uses
  OmniXML,
  OmniXMLUtils;

procedure ProcessNode(const node: IXMLNode; nodeText: TStrings);

  procedure CollectNodes(const node: IXMLNode; const nodeList: IXMLNodeList);
  var
    childNode: IXMLNode;
    iChild   : integer;
  begin
    for iChild := 0 to node.ChildNodes.Length-1 do begin
      childNode := node.ChildNodes.Item[iChild];
      if childNode.NodeType = TEXT_NODE then
        nodeText.Add(childNode.NodeValue)
      else if childNode.NodeType = ELEMENT_NODE then begin
        nodeText.Add(childNode.NodeName);
        CollectNodes(childNode, nodeList);
        nodeText.Add('/' + childNode.NodeName);
      end;
    end;
  end; { CollectNodes }

var
  childNode: IXMLNode;
  nodeList : IXMLNodeList;
begin
  nodeList := TXMLNodeList.Create;
  CollectNodes(node, nodeList);
end; { ProcessNode }

procedure TForm39.FormCreate(Sender: TObject);
var
  xml: IXMLDocument;
  nodeText: TStringList;
begin
  xml := CreateXMLDoc;
  if XMLLoadFromString(xml, '<test><p> Normal text <b> bolded </b> finish normal text </p></test>') then begin
    nodeText := TStringList.Create;
    try
      ProcessNode(xml.SelectSingleNode('test'), nodeText);
    finally FreeAndNil(nodeText); end;
  end;
end;

会给你：

p
 Normal text
b
 bolded
/b
 finish normal text
/p