@Hevelmann
Ja, alle Dokumente aus einer Sicht
@Axel J temp
Danke für den Tipp, aber genau dass ist ja der Clou,
ich muss die Dokumente in UTF-8 bringen und deswegen
wäre mir eine NotesKlasse lieber auf die Ich zugreifen kann.
Bisher benutze ich eine eigene Funktion string2xml
die mir die Sonderzeichen wie
& in ß konvertiert.
Ich habe nur die befürchtung, mir könnte ein Sonderzeichen durch die Lappen gegangen sein.
Das ist mein bisheriger Code ( nur ein Auszug)
Er funktioniert und darüber soll hier keine Diskussion stattfinden.
Ich hätte gerne, dass Lotus mir die UTF-8 konformität abnimmt.
geht das irgendwie mit Lotus 6 LotusScript Klassen ?
Ciao
Don Pasquale
Dim REGISTERNAME As String
Dim ABLAGEVERZEICHNIS As String
Dim STICHWORT As Variant
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Dim user As String
user = session.UserName
Set profildoc = db.GetProfileDocument( "e4frm_DBProfil" )
ABLAGEVERZEICHNIS = profildoc.e4profil_CeArcDir(0)
Pfad$ = ABLAGEVERZEICHNIS + "\docinfo.xml"
Set db = session.CurrentDatabase
Set doc = db.GetDocumentByUNID(unid)
If Not doc Is Nothing Then
temp=Freefile()
Open Pfad$ For Output As temp
Print #temp,"<?xml version='1.0' encoding='ISO-8859-1'?>"
Print #temp,"<e4IHK>"
Print #temp,"<TABLE>" + "FIRMENAKTE"
Call Column(temp, "DOC_DATUM",doc.e4ihk_DOC_DATUM(0),"Date")
Call Column(temp,"EXTENDED_ATTR2",doc.e4ihk_EXTENDED_ATTR2(0),"String")
...... ( weitere Felder )
Print #temp,"</TABLE>"
Print #temp,"</e4IHK>"
Close temp
Sub COLUMN (temp As Variant, CName As String, CValue As String, CType As String)
' FUNKTION COLUMN
' Don Pasquale
' 22.01.2003
CValue = string2xml(CVALUE)
Print #temp,"<COLUMN>"
Print #temp,"<NAME>" & CNAME & "</NAME>"
Print #temp,"<VALUE>" & CValue & "</VALUE>"
Print #temp,"<TYPE>" & CType & "</TYPE>"
Print #temp,"</COLUMN>"
End Sub
Public Function string2xml(Byval strWert As String) As String
On Error Resume Next
' # Maskieren von Sonderzeichen (HTML-Konform) zum Schreiben in die XML-Datei
strWert = ReplaceSubstring(strWert, "&", "&")
strWert = ReplaceSubstring(strWert, "<", "<")
strWert = ReplaceSubstring(strWert, ">", ">")
strWert = ReplaceSubstring(strWert, Chr$(34), """)
string2xml = ReplaceSubstring(strWert, "'", "'")
End Function
