Domino 9 und frühere Versionen > Entwicklung

Ausgabe einer Ansicht in RTF

<< < (2/2)

Zimmi:
Hallo Ingo,

erstelle dir einen Agenten den manuell startest und trage unten im Lotus Script-Programmierfenster den folgenden Code ein:

Sub Initialize
     Dim workspace As New notesuiworkspace
     Dim uiview As notesuiview
     
     Dim colldoc As notesdocumentcollection
     Dim doc As notesdocument
     Dim rubrik_item As notesitem
     Dim ueberschrift_item As notesitem
     Dim inhalt_item As notesitem
     Dim bildunter_item As notesitem
     Dim bemerkung_item As notesitem
     Dim rubrik As String
     Dim ueberschrift As String
     Dim inhalt As String
     Dim bildunterschrift As String
     Dim bemerkung As String
     Dim i As Long
     
     Set uiview = workspace.currentview
     Set colldoc = uiview.documents
     If colldoc.count = 0 Then Exit Sub
     Set doc = colldoc.getfirstdocument      
     
     Dim Filename As String
     Filename = "trage hier noch etwas ein.rtf"
     ' der Filename kann auch über die Anzahl der Dokumente, Datum, Zeit etc. zusammengestellt werden
     Dim Filenum As Integer
     Filenum = Freefile()
     Open Filename For Output As Filenum
     
     ' aus allen Docs der Ansicht die Infos herauslesen
     For i = 1 To colldoc.count
           Set rubrik_item = doc.getfirstitem("groupname")
           Set ueberschrift_item = doc.getfirstitem("personname")
           Set inhalt_item = doc.getfirstitem("inhalt")
           Set bildunter_item = doc.getfirstitem("bildunterschrift")
           Set bemerkung_item = doc.getfirstitem("bemerkung")
           
           rubrik = rubrik_item.text
           ueberschrift = ueberschrift_item.text
           inhalt = inhalt_item.text
           bildunterschrift = bildunter_item.text
           bemerkung = bemerkung_item.text
           
           ' zusammenstellen der Infos
           Dim LineContent As String
           LineContent= rubrik + ueberschrift + inhalt + bildunterschrift + bemerkung + Chr(13)      ' Zeilenumbruch
           ' hier solltest du evtl. noch ein paar Separatoren zwischen die einzelnen Textbausteine legen
           ' z.B. was zwischen den Klammern (+ " ") einfügen
           Print #Filenum, LineContent
           
     Next
     Close Filenum
     Messagebox("The documents have been exported to " & Filename )
     
End Sub


Viele Grüße von
Zimmi

Navigation

[0] Themen-Index

[*] Vorherige Sete