Ausgabe einer Ansicht in RTF

[tuxie]

Hallo,

Ich habe eine Frage, hat jemand schon einmal eine Ausgabe der Dokumente einer Ansicht in ein RTF-File gemacht, oder kennt jemmand ein Tool dafür.

Tschau ingo

[Zimmi]

Halllo Ingo,

ein Tool kenn' ich zwar nicht, aber wenn du die Felder hast, die in der View angezeigt werden, sollte es nicht das Problem sein, eine kleine Schleife über die Dokumente (ob alle oder nur die ausgewählten) zu schreiben und die Infos in eine Datei zu schreiben.

Viele Grüße
von Zimmi

[tuxie]

Ich habe die Ansicht sortiert nach einigen Kriterien und in der Reihenfolge sollen diese Ausgegeben werden.

Felder:

Rubrik
ueberschrift
inhalt
bildunterschrift
bemerkung

Tschau Ingo

[Zimmi]

Hallo Ingo,

habe ich da richtig verstanden, dass du eine Starthilfe brauchst  

Grüße von
Zimmi

PS: Ich schau mal, dass ich was zusammenstellen kann.

[tuxie]

Hallo,

das wäre nicht ganz schlecht, bin leider in LNSCript oder so nocht nicht so bewandert.

thx im vorraus

Tschau Ingo

[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