Domino 9 und frühere Versionen > ND6: Entwicklung

Ansicht exportieren

(1/3) > >>

Alperen15:
Hallo Bernahrd, Andreas, Toni etc =)

ich würde gerne einen Agent-export machen, der mir alle namen, bereich, erstelldatum exportiert

Sub Initialize
   Dim session As New  NotesSession
   Dim db As NotesDatabase   
   Dim dc As NotesDocumentCollection
   Dim doc As NotesDocument   
   Dim filenum As Integer, iZaehler As Integer, pos As Integer     
   Dim filename As String, cRekNo As String, i As String
   Dim cTrenn As String, cText As String, cDate As String, cError As String, cSendTo As String, cSubject As String, cAusgabe As String
   Dim cpathName As String
   Dim cFilename As String
   Dim Pathname As String
   Dim csvFilename As String
   Dim view As NotesView 'Ansichten in rohform
   
   Set db=session.CurrentDatabase   
   Set view = db.GetView( "vwRem1" ) 
   
   filenum = Freefile()
   FileName = "E:\TestKUR\ExportDocSafetyDB.csv"         
   Open filename For Output As filenum
   
   Set doc = view.GetFirstDocument
   While Not(doc Is Nothing)
      If  doc.fdDeinErstesFeld(0)  <> "" Then
         Write #filenum, doc.fdName(0), doc.fdBereich(0), doc.fdErstellt(0)
      End If
      Set doc = view.getnextdocument(doc)
   Wend
   Close filenum
End Sub

die Datei wird erstellt. Doch wenn ich es öffnen will kommt die Meldung "Kann Datei nciht lesen" und sie ist leer. Würde mich freuen wenn Ihr mir meine Fehler sagen könntet.

Danke =)

klaussal:
Aus "csv" mal "txt" machen ?

Alperen15:
.

Alperen15:
aa ok ich hab mein Fehler.....

meine Frage wieso ging es nciht als csv sonder als txt ??

klaussal:
Deshalb:


--- Zitat ---Writes data to a sequential text file with delimiting characters.
--- Ende Zitat ---

Du solltest wirklich mal die Designer-Hilfe lesen.... :-P

Navigation

[0] Themen-Index

[#] Nächste Seite