2

TXMLDocumentXML ドキュメントを (ファイルまたはメモリから) 解析し、ツリー ビューに表示するために使用しています。XMLNodeXML コンテンツ内の文字の位置と長さを取得する方法はありますか? ユーザーがツリー内の同等のノードを選択したとき、または空の値、間違ったテキストなど、そのノードに何か奇妙な点があるときに、元のドキュメントのノード テキストを強調表示したいと考えています。

この記事を読みましたが、Delphi での実装方法がわかりません。

4

1 に答える 1

2

この情報を提供できる唯一のクラスは、XML パーサーです。TXMLDocument がそうするかどうかはわかりません (何も見つかりませんでした)。ただし、ファイル内の正確な位置に問題がある可能性があります。一般に、XML ドキュメントはダーティ ファイルである可能性があり、表示するには何らかのフォーマットが必要です。その場合、フォーマット後にノードの位置を決定するために問題が変わります。同じデータ (IXMLNode) を使用してツリーを埋め、フォーマットされた XML を表示できるため、少し簡単です。

以前FormatXMLDataはリッチエディットで XML を表示し、ここDomToTreeからツリーを埋めるために使用していました。各ノードの行インデックスを保持するように変更しました。次のようになりました。DomToTree

procedure TForm1.DomToTree (XmlNode: IXMLNode; TreeNode: TTreeNode;
  var CurrentLineIndex: Integer); // <--- added this parameter
var
  I: Integer;
  NewTreeNode: TTreeNode;
  NodeText: string;
  AttrNode: IXMLNode;
begin
  // skip text nodes and other special cases
  if XmlNode.NodeType <> ntElement then
    Exit;
  // add the node itself
  NodeText := XmlNode.NodeName;
  if XmlNode.IsTextElement then
    NodeText := NodeText + '=' + XmlNode.NodeValue;
  NewTreeNode := TreeView1.Items.AddChildObject(TreeNode, NodeText, Pointer(CurrentLineIndex));
  // add attributes
  for I := 0 to xmlNode.AttributeNodes.Count - 1 do
  begin
    AttrNode := xmlNode.AttributeNodes.Nodes[I];
    TreeView1.Items.AddChildObject(NewTreeNode,
      '[' + AttrNode.NodeName + '="' + AttrNode.Text + '"]', Pointer(CurrentLineIndex));
  end;
  Inc(CurrentLineIndex);
  // add each child node
  if XmlNode.HasChildNodes then
  begin
    for I := 0 to xmlNode.ChildNodes.Count - 1 do
    begin
      DomToTree (xmlNode.ChildNodes.Nodes[I], NewTreeNode, CurrentLineIndex);
    end;
    Inc(CurrentLineIndex);
  end;
end;

これで、RichEdit で選択したノードの同等のテキストを強調表示できます。

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
  LineIndex, TextPos: Integer;
  Text: string;
begin
  SetSelBgColor(RichEdit1, clWhite);
  LineIndex := Integer(Node.Data);
  TextPos := RichEdit1.Perform(EM_LINEINDEX, LineIndex, 0);
  Text := Node.Text;
  Text := ReplaceStr(Text, '[', '');
  Text := ReplaceStr(Text, ']', '');

  RichEdit1.SelStart := TextPos + Pos(Text, RichEdit1.Lines[LineIndex]) - 1;
  RichEdit1.SelLength := Length(Text);
  SetSelBgColor(RichEdit1, clYellow);
end;

そして、全体は次のように始まります。

procedure TForm1.Button1Click(Sender: TObject);
var
  FirstLineIndex: Integer;
begin
  with TOpenDialog.Create(Self) do
  begin
    if Execute then
    begin
      XMLDocument1.LoadFromFile(FileName);
      Treeview1.Items.Clear;
      FirstLineIndex := 1;
      DomToTree (XMLDocument1.DocumentElement, nil, FirstLineIndex);
      TreeView1.FullExpand;
      RichEdit1.Lines.Text := FormatXMLData(XMLDocument1.XML.Text);
    end;
    Free;
  end;
end;

しかし、 とが一緒に正しく動作しないためDomToTree、期待されていないような保証されたコードではありません。FormatXMLDataいくつかのファイルでコードをテストしましたが、多くのファイルで失敗しました。最良のアプローチは、両方を書き直すことです。しかし、コードをテストしたい場合は、次のように動作します:

<?xml version="1.0" standalone="yes"?>
<DATAPACKET Version="2.0">
  <METADATA>
    <FIELDS>
      <FIELD attrname="ClientDataSet1FieldCode" fieldtype="i4"/>
      <FIELD attrname="ClientDataSet1FieldContact" fieldtype="string" WIDTH="50"/>
      <FIELD attrname="ClientDataSet1FieldNoTell" fieldtype="string" WIDTH="15"/>
    </FIELDS>
    <PARAMS CHANGE_LOG="1 0 4"/>
  </METADATA>
  <ROWDATA>
    <ROW RowState="4" ClientDataSet1FieldCode="1" ClientDataSet1FieldContact="Ali" ClientDataSet1FieldNoTell="012345678"/>
  </ROWDATA>
</DATAPACKET>
于 2013-02-23T18:17:28.777 に答える