Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: RvM am 03.11.08 - 16:04:40

Titel: XML Export
Beitrag von: RvM am 03.11.08 - 16:04:40

Ich suche ein Tool, mit den man Dokumente aus einer DB als XML exportieren kann. Ich könnte zwar inen Agenten stricken. ist mir aber zu kompliziert und zu zeitaufreibend. Kennt jemand ein Tool?
Danke im voraus.

Titel: Re: XML Export
Beitrag von: jBubbleBoy am 03.11.08 - 16:20:40

Das ist recht einfach, genauso wie das Importieren ;)

Code

	Dim se As New NotesSession
	Dim exporter As NotesDXLExporter
	Dim outputStream As NotesStream
	Dim col As NotesDocumentCollection

	Set col = se.CurrentDatabase.UnprocessedDocuments
	
	filename = "notes.xml"
	Set outputStream  = se.CreateStream	
	If Not outputStream.Open(filename$) Then Error 5002,"Datei " & fileName & " konnte nicht geöffnet werden!"	
	Call outputStream.Truncate
	
	'-- XML erstellen
	Set exporter = se.CreateDXLExporter
	Call exporter.SetInput(col)
	Call exporter.SetOutput(outputStream )
	Call exporter.Process
	outputStream.Close