Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: tuxie am 02.09.02 - 11:48:14
-
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
-
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
-
Ich habe die Ansicht sortiert nach einigen Kriterien und in der Reihenfolge sollen diese Ausgegeben werden.
Felder:
Rubrik
ueberschrift
inhalt
bildunterschrift
bemerkung
Tschau Ingo
-
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.
-
Hallo,
das wäre nicht ganz schlecht, bin leider in LNSCript oder so nocht nicht so bewandert.
thx im vorraus
Tschau Ingo
-
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