Question

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

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

问题在于，当我有一个指向p标签的Node var时，我会

Node.TextNode

它返回“正常文本粗体完成正常文本”的完整文本，但我想只将部分返回到第一个标记（后面也是最后一部分）;这样，当y处理标签之后，我可以更改字体设置，并打印粗体文本..

我怎么能这样做？

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

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

1 个答案: