OpenOffice.info

Code: Alles auswählen

REM  *****  BASIC  *****


sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///D:/_Temp/Testtabelle.xml"
args1(1).Name = "FilterName"
args1(1).Value = "MS Excel 2003 XML"

dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1())


end sub

Code: Alles auswählen

Sub Main
	oDoc=Thiscomponent
	sUrl=oDoc.geturl()
	for i=1 to len(sUrl)
		if mid(sUrl,i,1)="/" then slash=i
		if mid(sUrl,i,1)="." then punkt=i
	next
	sPfad=left(sUrl,slash)
	sName=mid(sUrl,slash+1,punkt-slash-1)
	Dim arg(1) as New com.sun.star.beans.PropertyValue
	arg(0).Name = "URL"
	arg(0).Value = sPfad & sName & ".xml"
	arg(1).Name = "FilterName"
	arg(1).Value = "MS Excel 2003 XML"
	oDoc.storetoUrl(arg(0).Value,arg())
End Sub

Code: Alles auswählen

XML:
<Buch>
<ID> 1 </ID>
<Name>Abenteuer X</Name>
<Autor> Bla </Autor>
<Preis>19,95</Preis>
<Umsatzsteuer> 19 </Umsatzsteuer>
<Gewicht> 0,5 </Gewicht>

<ID> 2 </ID>
<Name>Drama Y</Name>
<Autor> Blubb</Autor>
<Preis>19,95</Preis>
<Umsatzsteuer> 19 </Umsatzsteuer>
<Gewicht> 0,5 </Gewicht>

<ID> 3 </ID>
<Name>Lyrik Z</Name>
<Autor> Bla</Autor>
<Preis>19,95</Preis>
<Umsatzsteuer> 19 </Umsatzsteuer>
<Gewicht> 0,5 </Gewicht>

</Buch>
/code]
In OpenOffice dann so:
Zeile 1: ID, Name, Autor, Preis, Umsatzsteuer, Gewicht
Zeile 2: 1; Abenteuer X; Bla; 19,95; 19; 0,5
Zeile 3: 2; Drama Y; Blubb; 19,95; 19; 0,5

Im Prinzip will ich das gleiche erreichen wie in folgenden Thread für Excel:
http://forum.chip.de/office/exceltabelle-xml-erstellen-1522322.html

In Excel muss man dafür ein XML Schema importieren und kann dieses dann verändern und abspeichern/exportieren.
Geht das auch in OpenOffice?

LG
Robert

Code: Alles auswählen

objMapToExport = ActiveWorkbook.XmlMaps("Computerliste_Zuordnung")

Code: Alles auswählen

# -*- coding: utf-8 -*-

import uno
from os import path
import sys
if sys.version_info.major < 3:
    import io
    open = io.open

HEADER=(u'<?xml version="1.0" encoding="UTF-8" standalone="yes"?>\n'
         '<Computerliste xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">\n\t')

FOOTER = u'\n</Computerliste>'
node = u'\t<Computer>\n{}\n\t</Computer>'.format
inode = u'\t\t<{0}>{1}</{0}>'.format


def export_to_xml(event):    
    doc = event.Source    
    filepath, _ = path.splitext(uno.fileUrlToSystemPath(doc.URL))
    xmlpath = filepath + '.xml'   
    exportsheet = doc.Sheets.getByIndex(0)
    cursor = exportsheet.createCursor()
    cursor.gotoStartOfUsedArea(False)
    cursor.gotoEndOfUsedArea(True)
    data = cursor.DataArray
    tags, data = data[0], data[1:]
    
    with open(xmlpath, 'w', encoding='utf8') as xmlfile:
        xmlfile.write( HEADER )
        for row in data:
            xmlfile.write( node('\n'.join(inode(tag, entry) 
                            for tag, entry in zip(tags, row)
                            if entry)))
        xmlfile.write( FOOTER )