Nyt i 6.4: Import af XML-filer i Calc

Funktionen blev introduceret i version 6.3 som eksperimentiel funktion, men nu er den blevet mere stabil og ganske brugbar.

XML-filer findes alle vegne, fordi flere og flere programmer er begyndt at gemme data og indstillinger i XML-format. Og nu kan vi altså importere disse data ind i Calc. Formålet kan variere, alt efter hvad det er for data. I nogle tilfælde har vi måske lyst til at foretage beregninger, og i andre tilfælde vil vi bare gerne se data på en overskuelig måde.

Jeg har fundet en gammel GPX-fil, som er en rutevejledning fra min GPS. Den vil jeg gerne hente ind i Calc.

Vælg Data - XML-Kilde...

1. Klik på knappen øverst og vælg filen.
2. I vinduet i midten ser du et overblik over XML-filens struktur. Vælg hvilken del du vil importere (hvis der er flere).
3. Vælg hvor i regnearket du vil importere data til.
4. Klik på Importér

Resultatet er et pænt overblik over XML-filens indhold.

Vær opmærksom på at XML-filer kan være meget store, og det kan give problemer hvis din PC ikke har RAM nok.

LibreOffice har nu indbygget XML-parser

LibreOffice benytter som bekendt et XML-baseret dokumentformat, så naturligvis er der en indbygget parser. Men hidtil har det været temmelig besværligt at arbejde med XML i f.eks. makroer eller regneark. I en makro er det f.eks. nødvendigt manuelt at tygge sig igennem XML-strukturen for at finde den rette information. Eksemplet herunder viser hvor besværligt det er at arbejde med (tak til Andrew Pitonyak):

Function CreateDocumentHandler()
oDocHandler = CreateUnoListener( "DocHandler_", "com.sun.star.xml.sax.XDocumentHandler" )
glLocatorSet = False
CreateDocumentHandler() = oDocHandler
End Function

'==================================================
' Methods of our document handler call these
' global functions.
' These methods look strangely similar to
' a SAX event handler. ;-)
' These global routines are called by the Sax parser
' as it reads in an XML document.
' These subroutines must be named with a prefix that is
' followed by the event name of the com.sun.star.xml.sax.XDocumentHandler interface.
'==================================================

Sub DocHandler_characters( cChars As String )

if xNode = "lipsum" then
oWrite=1
cChars= Left(cChars,len(cChars)-1)
if len(cChars)>1 then
cChars= cChars+ Chr$(13)
else
cChars=cChars
endif
WriteLoremipsum (cChars, oWrite)
Else oWrite=0
Endif
End Sub

Sub DocHandler_ignorableWhitespace( cWhitespace As String )
End Sub

Sub DocHandler_processingInstruction( cTarget As String, cData As String )
End Sub

Sub DocHandler_startDocument()
End Sub

Sub DocHandler_endDocument()
End Sub

Sub DocHandler_startElement( cName As String, oAttributes As com.sun.star.xml.sax.XAttributeList )
xNode = cName
End Sub

Sub DocHandler_endElement( cName As String )
End Sub

Sub DocHandler_setDocumentLocator( oLocator As com.sun.star.xml.sax.XLocator )
' Save the locator object in a global variable.
' The locator object has valuable methods that we can
' call to determine
goLocator = oLocator
glLocatorSet = True
End Sub
Eksemplet herover er fra udvidelsen Lorem Ipsum generator som kan downloades her: http://extensions.libreoffice.org/extension-center/magenta-lorem-ipsum-generator

Fra LibreOffice 4.2 bliver det meget lettere at tilgå XML-data ved hjælp af to nye funktioner i regneark, nemlig WEBSERVICE og FILTERXML. Fra en makro er det så muligt at benytte de pågældende regnearksfunktioner, også selv om det ikke er et regneark, der er aktuelt dokument.

Eksemplet herunder resulterer i store træk i samme resultat, som koden herover

Sub Main
svc = createUnoService( "com.sun.star.sheet.FunctionAccess" ) 'Create a service to use Calc functions
XML_String = svc.callFunction("WEBSERVICE",array("http://www.lipsum.com/feed/xml?amount=2&what=paras&start=Yes"))
Lipsum = svc.callFunction("FILTERXML", array(XML_String, "/feed/lipsum" ))
Print Lipsum
End Sub

Jeg ser virkelig frem til at arbejde med disse smarte nye funktioner.