Hallo,
das Thema wurde schon mehrfach angesprochen, aber ich habe in den bisherigen Threads leider keine befriedigende Antwort gefunden.
Es geht darum, ein Dokument per DXL zu exportieren und in eine andere Datenbank zu importieren. Ich benutze das zum Beispiel, wenn mir ein Kunde ein Dokument schicken möchte, bei dem irgend etwas nicht so funktioniert, wie es soll. Er exportiert es mit einem Agenten per DXL, schickt mir die Datei, und ich importiere sie bei mir und prüfe wo das Problem liegt.
Beim Export werden ä ö ü usw. leider direkt exportiert, anstatt diese durch ä ö ü zu ersetzen. Prinzipiell hätte ich da nichts dagegen, aber beim Import werden diese dann falsch importiert.
Vielleicht ist das Problem ja ganz einfach und es gibt ein Flag oder eine Methode, dass die Ersetzungen direkt vorgenommen werden? Für Tipps bin ich dankbar.
Ich habe das bei mir jetzt so gelöst, dass in allen Texten die Umlaute durch die Funktion EncodeXMLU ersetzt werden (nur die Umlaute, aber nicht < oder >, weil das anscheinend funktioniert und die <break/> ebenfalls nicht ersetzt werden dürfen):
While (Instr(dxl, "<text>") > 0)
res = res & Strleft(dxl, "<text>") & "<text>"
dxl = Strright(dxl, "<text>")
res = res & EncodeXMLU(Strleft(dxl, "</text>")) & "</text>"
dxl = Strright(dxl, "</text>")
Wend
res = res & dxl
In dxl ist also der gesamte DXL-String enthalte und nach dem Code sind die Umlaute konvertiert. Solche Strings kann ich dann problemlos per DXL-Importer wieder importieren, aber das ist alles sehr konstruiert und bei großen Dokumenten vermutlich nicht sonderlich performant.
Also hier die Frage: Welche Einstellungen muss man vornehmen, damit ein per DXL exportiertes Dokument exakt so wieder importiert werden kann? Ober das Exporter- oder Importer-Einstellungen sind ist egal. (Ich weiß, dass das von IBM nicht versprochen wird, aber vielleicht hat ja jemand eine Idee).
Im Voraus vielen Dank für Eure Hilfe,
Joachim
Hallo,
klar, steckt nicht viel dahinter. HIer also der Code:
Function DXLExport(docs As NotesDocumentCollection, file As String) As Boolean
Dim session As New NotesSession
Dim exporter As NotesDXLExporter ' Der DXL-Exporter
Dim dxl As String ' Der generierte DXL-Code
Dim res As String ' DXL-Code mit XML-Ersetzungen
On Error Goto Fehler
DXLExport = False
Set exporter = session.CreateDXLExporter()
exporter.ValidationStyle = VALIDATIONSTYLE_DTD
If (file = "") Then file = Environ("Temp") + "\Export.dxl"
dxl = exporter.Export(docs)
While (Instr(dxl, "<text>") > 0)
res = res & Strleft(dxl, "<text>") & "<text>"
dxl = Strright(dxl, "<text>")
res = res & EncodeXMLU(Strleft(dxl, "</text>")) & "</text>"
dxl = Strright(dxl, "</text>")
Wend
res = res & dxl
Open file For Output As #1
Print #1, res
Close #1
Msgbox "Es wurden " & docs.Count & " Elemente nach '" & file & "' exportiert!", 64, "DXL-Export"
DXLExport = True
Weiter:
On Error Goto 0
Exit Function
Fehler:
Msgbox "Der DXL-Export war nicht erfolgreich:" + Chr(10) + Chr(10) + "Error " & Err & ": " & Error, 16, "Fehler"
Resume Weiter
End Function
Gruß,
Joachim