Import XML in body field in notesdocument +decode picture

HCL Domino Domino Forum
1

Hello,

I have used CreateDXLExporter to export a notesdocument to an XML file. The document contains a body field with rich text data such as pictures…

After the content of some fields has been changed in the xml file, I want to import certain data of the file back into my body field.

My problem is that the data of the body field, is devided over serveral tags. I have several tags, one . I would like to put all info from the body tag into the body field of the notesdocument.

My second problem is that pictures are encoded into text and I have to decode it again.

It is easy to import the whole document again, but I have troubles importing only the rich text content.

Hopefully someone can help me…

20071120T130327,97+01

Das ist ein Test des Rich Text Field.

Text content

<j

…

</…>

Part of my code I used to import the whole document:

strUNID = GetUNID(session, stream)

Set docOrig = db.GetDocumentByUNID(strUNID)

Dim importer As NotesDXLImporter

Set importer = session.CreateDXLImporter(stream, db)

importer.DocumentImportOption = DXLIMPORTOPTION_CREATE

Call importer.Process

Function GetUNID(session As notessession, stream As notesstream) As String

Dim strUNID As String

Set domParser=session.CreateDOMParser(Stream)

domParser.Process



Set rootElement = domParser.Document.DocumentElement

Set docList = rootElement.GetElementsByTagName ("noteinfo")



If docList.NumberOfEntries = 0 Then 

	Messagebox "No <document> element nodes in file", , "Error"

	Exit Function

Else

	For i = 1 To doclist.NumberOfEntries

		Set enode = docList.GetItem(i)

		getUNID = enode.GetAttribute("unid")

	Next	

End If