LibreOffice-Forum

Code: Alles auswählen

Sub ExportX
	Dim oleService, oXMLexp as Object, oXMLimp as Object
	Dim oRoot, oNode, oFatturaElettronicaHeader as Object 
	DIM oDoc AS OBJECT
	DIM oDrawpage AS OBJECT
	DIM oForm AS Object
	Dim sNome As string
	
	oDoc = thisComponent
	oDrawpage = oDoc.Drawpage
	
	
	oForm = oDrawpage.Forms.getByName("Besitzer")
		sNome = oForm.getByName("txtNome").CurrentValue
	
	oleService = createUnoService("com.sun.star.bridge.OleObjectFactory")  

' Create an XML object to export
	oXMLexp = oleService.createInstance("Msxml.DOMDocument")

With oXMLexp
    .async = true 
    .validateOnParse = true 
    .resolveExternals = true 
 	 
    oRoot = .createElement("p:FatturaElettronica") 
    oRoot.nodeTypedValue =  ""
    .appendChild(oRoot) 

	    oFatturaElettronicaHeader = .createElement("Name")               
	    oFatturaElettronicaHeader.nodeTypedValue =  "" & sNome
	    oRoot.appendChild(oFatturaElettronicaHeader)

    .Save("C:\Dati\Fattura\test.xml")
End With

End Sub

Code: Alles auswählen

...
oRoot = .createElement("p:FatturaElettronica")
    oRoot.setAttribute("Versione", "1.1")
    oRoot.setAttribute("xmlns:ds", "http://www.w3.org/2000/09/xmldsig#")
    oRoot.setAttribute("xmlns:p", "http://www.xxxx")
    oRoot.setAttribute("xmlns:xsi", "http://www.w3.org/2001/XMLSchema-instance")
...

Code: Alles auswählen

SUB XML_create
	DIM stStart AS STRING
	DIM stFolder AS STRING
	DIM stTitle AS STRING
	DIM stRow AS STRING
	DIM arFields()
	DIM arFieldsContent()
	DIM oFileAccess AS OBJECT
	DIM oFile AS OBJECT
	DIM oDB AS OBJECT
	DIM stDir AS STRING
	DIM oOutputStream AS OBJECT
	stStart = "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>"
	stFolder = "folder"
	stTitle = "title"
	stTitleContent = "persons"
	stRow = "entry"
	arFields = Array("forename","surname")
	arFieldsContent = Array("Robert","Großkopf")
	oDB = ThisComponent
	stDir = Left(oDB.Location,Len(oDB.Location)-Len(oDB.Title))
	oFileAccess = createUnoService("com.sun.star.ucb.SimpleFileAccess")
	IF oFileAccess.exists(stDir & "xmlexport.txt") THEN
		oFileAccess.move(stDir & "xmlexport.txt", stDir & "xmlexport.bak")
	END IF
	oFile = oFileAccess.openFileWrite(stDir & "xmlexport.txt")
	oOutputStream = createUnoService("com.sun.star.io.TextOutputStream")
	oOutputStream.setOutputStream(oFile)
	oOutputStream.writeString(stStart & CHR(13) & CHR(10) & "<" & stFolder & ">" & CHR(13) & CHR(10))
	oOutputStream.writeString("<" & stTitle & ">" & stTitleContent & "</" & stTitle & ">" & CHR(13) & CHR(10))
	oOutputStream.writeString("<" & stRow & ">" & CHR(13) & CHR(10))
	FOR i = LBound(arFields) TO UBound(arFields)
		oOutputStream.writeString("<" & arFields(i) & ">" & arFieldsContent(i) & "</" & arFields(i) & ">" & CHR(13) & CHR(10))
	NEXT
	oOutputStream.writeString("</" & stRow & ">" & CHR(13) & CHR(10))	
	oOutputStream.writeString("</" & stFolder & ">")
	oOutputStream.closeOutput()
END SUB

Code: Alles auswählen

...

With oXMLexp
    .async = false 
    .validateOnParse = false 
    .resolveExternals = false
     
	.appendChild .createProcessingInstruction( _
                 "xml", _
                 "version=""1.0"" encoding = ""UTF-8"" standalone=""yes""")

...