Moin moin,
Ich habe ein Dialogfenster mit einer Tabelle (Registerform) um so ne Art "Assistent" darzustellen.
Der Assistent erstellt aus eingegebenen Daten eine HTML-Datei (mit einer HTML-Tabelle), speichert diese temporär als Datei auf der Platte, wechselt in ein Richtextfeld und importiert anschliessend mittels uidocument.import(Filter, Name) die Datei wieder.
Funktioniert eigentlich wunderbar, aber da das Dialogfenster eine Registertabelle ist und der Inhalt der importierten Datei eine Tabelle enthält, fragt mich Notes beim Einfügen, ob ich die Tabelle in die bestehende Tabelle einfügen möchte.
Kann man diese Abfrage irgendwie unterdrücken?
Gibt es ne bessere Methode als zu exportieren und dann wieder zu importieren?
Hier mein Script für den Ex- und Reimport:
Sub Click(Source As Button)
Dim ws As New notesuiworkspace
Dim uidoc As notesuidocument
Dim filename As String
Dim tempfilename As String
Set uidoc=ws.currentdocument
Call uidoc.gotofield("Vorschau")
s=uidoc.fieldgettext("html1")
fileNum%=Freefile()
TempFileName$ ="h:\test1.htm"
Open TempFileName$ For Output As fileNum%
Print #fileNum%, s
Close fileNum%
Call uidoc.Import("HTML File",tempFileName$)
Kill TempFileName$
End Sub
html1 enthält den HTML-Code berechnet als Text/String; Vorschau ist das Richtextfeld innerhalb des Dialogfensters in dem das ganze abläuft.