Question

我正在处理基于XML的文档中某些字段的导入功能。

读取值ansich非常有效，不幸的是，我能做到的并不是trans-unit的真正属性，即读取id。

我的代码：

procedure TForm2.importXliff;
var
  i: Integer;
  TransUnits: IXMLNodeList;
  ID: IXMLNodeList;
begin
  if OpenDialog.Execute then
  begin
    //XMLDocument erzeugen und xml-Datei laden
    xmlDoc := newXMLDocument;
    xmlDoc.LoadFromFile(OpenDialog.FileName);
    Memo1.Lines := xmlDoc.XML;
    xmlDoc.Active := True;
    TransUnits := xmlDoc.DocumentElement.ChildNodes['file'].ChildNodes['body'].ChildNodes;
    ID := xmlDoc.DocumentElement.ChildNodes['body'].ChildNodes;

      for i := 0 to TransUnits.Count-1 do
        ListBox.Items.Add(TransUnits[i].ChildNodes['source'].Text);
        //xmlDoc.DocumentElement.ChildNodes['trans-unit'].AttributeNodes['id'].Text
  end;
 end;

我的基于xml的文本文档（Xliff文件）：

<xliff version="1.1">
  <file original="myfile.ext" datatype="plaintext" Source-language="en-US" target-language="fr-FR">
    <body>
      <trans-unit id='#1'>
        <source>Der Text.</source>
        <target>Le texte.</target>
      </trans-unit>

      <trans-unit id='#2'>
        <source>Das Flugzeug</source>
        <target>l'avion.</target>
      </trans-unit>

      <trans-unit id='#3'>
        <source>Der Baum.</source>
      </trans-unit>

   </body>
  </file>
</xliff>

我现在的问题是如何阅读转单元ID？

Answer 1

IXMLNodeList是IXMLNode个项目的集合，您可以通过Attributes属性按名称访问属性。在伪代码中，它可能如下所示：

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  TransUnits: IXMLNodeList;
  XMLDocument: IXMLDocument;
begin
  XMLDocument := LoadXMLDocument('d:\File.xml');
  if Assigned(XMLDocument) then
  begin
    TransUnits := XMLDocument.DocumentElement.ChildNodes['file'].ChildNodes['body'].ChildNodes;
    for I := 0 to TransUnits.Count - 1 do
      ShowMessage(TransUnits[I].Attributes['id']);
  end;
end;

Xliff - 如何用Delphi读取属性？

1 个答案: