1

XML ベースのドキュメントの特定のフィールドのインポート機能に取り組んでいます。

値 ansich の読み取りは完全に機能します, 残念ながら, 私はそれを行うことができます トランスユニットの属性, つまり 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 をどのように読み取ることができるかということです。

4

1 に答える 1

4

は、プロパティを通じて名前で属性にアクセスできる項目IXMLNodeListのコレクションです。擬似コードでは、次のようになります。IXMLNodeAttributes

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;
于 2013-05-06T15:06:23.563 に答える