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

OmniXML を使用してその xml を処理しています (例は縮小されています) (ただし、このソリューションは他の XML パーサーにも適用されると思います)。私はxmlをトラバースし、apまたはbタグを処理するたびに、フォント設定などを変更します.

問題は、p タグを指す Node var があり、

Node.TextNode

「通常のテキストを太字で通常のテキストに仕上げる」完全なテキストを返しますが、最初のタグまでの部分だけを返したい (そして最後の部分も); このようにして、その後タグを処理すると、フォント設定を変更して、太字のテキストを印刷できます..

どうすればそれができますか？

4

1 に答える 1

3 
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
于 2011-09-01T17:02:21.633 に答える