xml file erstellen

[himitsu]

Da wirst du dir wohl eine der Excel-Komponenten kaufen müssen, welche dieses Ausgabeformat unterstützen.
Nur mit einer XML-Komponente kannst du das zwar machen, aber dann darfst du natürlich auch die komplette Excel-XML-Spreadsheet-Datenstruktur selber implementieren.

Alternativ verstecken sich in der DP mehrere Komponenten, welche Dateien im "alten" binären XLS-Format erstellen können.

[edit]
Oder wie Perlsau es nennen wird.
Excel "fernsteuern", wofür es natürlich installiert sein muß.

[CCRDude]

Denke wenn man das nicht zu universell will, geht das mit nem reinem XML-Writer schon (Beispiel).

Das alte Excel-Format geht in Lazarus auch mit dem Package fpsreadsheet, habe ich auch schon eingesetzt, weil mit CSV keine Tabs etc. möglich sind. Unterstützt unter anderem Excel 5, Excel 8, OpenDocument, und OpenOffice XML.

[khh]

also fpspreadsheet-1.4.3 hab ich installiert, aber wie das funktioniert hab ich noch nicht durchschaut.

Kann das denn dann nur das alte Format?

[CCRDude]

Zitat von khh:

also fpspreadsheet-1.4.3 hab ich installiert, aber wie das funktioniert hab ich noch nicht durchschaut.

Neues Objekt der Klasse TsWorkbook anlegen, mit AddWorksheet ein neues worksheet anlegen. TsWorksheet hat dann diverse Write...-Fukntionen für Text, Zahlen, Formeln.

Zitat von khh:

Kann das denn dann nur das alte Format?

Oben von mir genannte Formate. Sonst siehe Doku.

[khh]

Zitat von CCRDude:

Denke wenn man das nicht zu universell will, geht das mit nem reinem XML-Writer schon .

was für ein XML-Writer denn ?

[khh]

alsooo

mit TXMLDocument habe ich jetzt eine Datei erzeugt.

so

Delphi-Quellcode:

  pfad := 'C:\temp2\test2.xml';
    Doc := TXMLDocument.Create;
    Doc.XMLVersion:= '1.0';
    WriteXMLFile(Doc, pfad);

bekomme ich eine Zeile in das File:
<?xml version="1.0" encoding="UTF-8"?> immerhin etwas


aber wie bekomme ich meine Excelstruktur:

Delphi-Quellcode:

<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:x="urn:schemas-microsoft-com:office:excel" xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet" xmlns:html="http://www.w3.org/TR/REC-html40">
  <DocumentProperties xmlns="urn:schemas-microsoft-com:office:office">
    <Author>ich</Author>
    <LastAuthor>ich</LastAuthor>
    <Created>2012-02-01T12:31:29Z</Created>
    <Version>15.00</Version>
  </DocumentProperties>
  <OfficeDocumentSettings xmlns="urn:schemas-microsoft-com:office:office">
    <AllowPNG />
  </OfficeDocumentSettings>
  <ExcelWorkbook xmlns="urn:schemas-microsoft-com:office:excel">
    <WindowHeight>12435</WindowHeight>
    <WindowWidth>28800</WindowWidth>
    <WindowTopX>0</WindowTopX>
    <WindowTopY>0</WindowTopY>
    <ProtectStructure>False</ProtectStructure>
    <ProtectWindows>False</ProtectWindows>
  </ExcelWorkbook>
  <Styles>
...

...
....

Die Beispiele die ich gefunden habe, erzeugen mir so was:

Delphi-Quellcode:

<?xml version="1.0"?>
<Root>
  <Element id="1">
    <Item1 Attr1="1" Attr2="1">Item1Value is 1</Item1>
    <Item2 Attr1="1" Attr2="1">Item2Value is 1</Item2>
  </Element>
  <Element id="2">
    <Item1 Attr1="2" Attr2="2">Item1Value is 2</Item1>
    <Item2 Attr1="2" Attr2="2">Item2Value is 2</Item2>
  </Element>
  <Element id="3">
    <Item1 Attr1="3" Attr2="3">Item1Value is 3</Item1>
    <Item2 Attr1="3" Attr2="3">Item2Value is 3</Item2>
  </Element>
</Root>

das sieht zwar schon mal wie ein xml-File aus, aber noch lange nicht so, wie ich meine (Excel-) Datei haben möchte. Gibt es irgendwo brauchbare Beispiele ?

Ich danke euch

[khh]

keiner ne idee? push

[vagtler]

Das musst Du schon "von Hand" machen.

[khh]

wie meinst du das "von Hand" ?