title image


Smiley Re: Ansicht automatisch in ein Textfile exportieren
Hi,



das folgende Script exportiert die gewünschte Ansicht der aktuellen Datenbank in ein Textfile. Es werden nur Dokumente (keine Kategorie- und sonstige Nichtdokument-Zeilen) exportiert und die einzelnen Spaltenwerte werden mittels eines Tabulators getrennt. Dim s As New NotesSession

Dim View As NotesView

Dim EC As NotesViewEntryCollection

Dim vE As NotesViewEntry

Dim fNum As Integer

Dim n As Long

Dim Row As String



Set View = s.CurrentDatabase.getView("Exportansicht")

If Not(View Is Nothing) Then

fNum = Freefile

Open "c:\test.txt" For Output As fNum

Set EC = View.AllEntries

Set vE =EC.getFirstEntry

While Not(vE Is Nothing)

If vE.IsDocument Then

Row = ""

For n = Lbound(vE.ColumnValues) To Ubound(vE.ColumnValues)

If Row "" Then

Row = Row & Chr(9)

End If

Row = Row & vE.ColumnValues(n)

Next

Print #fNum, Row

End If

Set vE = EC.getNextEntry(vE)

Wend

Close #fNum

End IfWenn Du das Script in einem Agent gescheduled auf einem Server laufen lassen willst, benötigst Du natürlich die entsprechenden Rechte (unbeschränkte Lotus Script-Agenten ausführen) und der Dominoserver muß irgendwie auf das Zielverzeichnis 'draufkommen (also Schreibrechte haben und netzwerkmäßig dorthin kommen).

Achso - das sollte ab Version 5 funktionieren. Wenn Ihr noch was älteres benutzt (hast Du ja vorsichtshalber nicht angegeben), müßte man das Teil noch ein bischen umstricken...
Gruß, der Hoschie

IBM Certified Advanced Application Developer - Lotus Notes and Domino 6 / 6.5 / 7
Certified Lotus Professional Domino R5 Principal Application Developer



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: