OpenXML

[jaenicke]

Du brauchst doch gar nicht wieder die Nodes zu suchen mit FindFirstChildElement usw., die hast du doch schon und kannst die einfach zwischenspeichern. Dann wird das auch nicht so unübersichtlich.

Meinst du vielleicht so?

Delphi-Quellcode:

procedure TfrmMain.btnStartClick(Sender: TObject);
var
  DomDoc: TDomDocument;
  DataNode, CurStockNode, CurRackNode: TDomNode;
  i, j, StockCount, RackCount: Integer;
  CurNodeValue: String;
  FileContents: TFileStream;
begin
  CurNodeValue := #10;
  DomDoc := TDomDocument.Create(dimDomImplementation);

  // Node Daten
  CurNodeValue := CurNodeValue + #32#32;
  DataNode := DomDoc.AppendChild(TDomElement.Create(DomDoc, 'daten'));
  TDomElement(DataNode).SetAttribute('name', 'MEINE DATEN');
  DataNode.AppendChild(TDomText.Create(DomDoc)).NodeValue := CurNodeValue;

  StockCount := Random(3) + 3;
  for i := 1 to StockCount do
  begin
    // Node bestand Xi
    CurNodeValue := CurNodeValue + #32#32;
    CurStockNode := DataNode.AppendChild(TDomElement.Create(DomDoc, 'bestand'));
    TDomElement(CurStockNode).SetAttribute('name', 'X' + IntToStr(i));
    CurStockNode.AppendChild(TDomText.Create(DomDoc)).NodeValue := CurNodeValue;

    RackCount := Random(5) + 3;
    for j := 1 to RackCount do
    begin
      // Node regal
      CurRackNode := CurStockNode.AppendChild(TDomElement.Create(DomDoc, 'regal'));
      CurRackNode.AppendChild(TDomText.Create(DomDoc)).NodeValue := 'CD' + IntToStr(j);
      TDomElement(CurRackNode).SetAttribute('dat', IntToStr(i) + Chr(j + 96)); // a ist 97 ;-)
      if j = RackCount then // beim letzten Node schon die beiden Leerzeichen weniger
        Delete(CurNodeValue, Length(CurNodeValue) - 1, 2);
      CurStockNode.AppendChild(TDomText.Create(DomDoc)).NodeValue := CurNodeValue;
    end;
    if i = StockCount then
      Delete(CurNodeValue, Length(CurNodeValue) - 1, 2);
    DataNode.AppendChild(TDomText.Create(DomDoc)).NodeValue := CurNodeValue;
  end;

  FileContents := TFileStream.Create(ExtractFilePath(ParamStr(0)) + 'test.xml', fmCreate);
  dtxParser.WriteToStream(DomDoc, 'UTF-8', FileContents);
  FileContents.Free;

  DomDoc.Free;
end;

Ergebnis z.B.:

XML-Code:

<?xml version="1.0" encoding="UTF-8"?>
<daten name="MEINE DATEN">
  <bestand name="X1">
    <regal dat="1a">CD1</regal>
    <regal dat="1b">CD2</regal>
    <regal dat="1c">CD3</regal>
    <regal dat="1d">CD4</regal>
  </bestand>
  <bestand name="X2">
    <regal dat="2a">CD1</regal>
    <regal dat="2b">CD2</regal>
    <regal dat="2c">CD3</regal>
    <regal dat="2d">CD4</regal>
  </bestand>
  <bestand name="X3">
    <regal dat="3a">CD1</regal>
    <regal dat="3b">CD2</regal>
    <regal dat="3c">CD3</regal>
  </bestand>
  <bestand name="X4">
    <regal dat="4a">CD1</regal>
    <regal dat="4b">CD2</regal>
    <regal dat="4c">CD3</regal>
    <regal dat="4d">CD4</regal>
    <regal dat="4e">CD5</regal>
  </bestand>
  <bestand name="X5">
    <regal dat="5a">CD1</regal>
    <regal dat="5b">CD2</regal>
    <regal dat="5c">CD3</regal>
    <regal dat="5d">CD4</regal>
    <regal dat="5e">CD5</regal>
    <regal dat="5f">CD6</regal>
    <regal dat="5g">CD7</regal>
  </bestand>
</daten>