Domino 9 und frühere Versionen > Entwicklung

Export in txt-Datei

<< < (2/2)

Don Pasquale:
Hier ist ein Beispiel :

Function  schreibeDatei ( unid As String)
   
   Dim PFAD As String
   PFAD = "C:\TEMP\"
   
   Dim session As NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Dim filenum As Integer
   Set session = New NotesSession
   Set db  = session.CurrentDatabase
   Set doc = db.GetDocumentByUNID(unid)
   
   If Not ( doc Is Nothing) Then
      
      Gosub OPENDAT
      Gosub SCHREIBEDAT
      Gosub CLOSEDAT
      
   End If
   Exit Function
   
OPENDAT:
   fileNum = Freefile
   Open Pfad & unid & ".txt" For Output As fileNum
   Return
   
CLOSEDAT:
   Close #fileNum
   Return
SCHREIBEDAT:
   Print #fileNum, "[FELDWERT]"
   Print #fileNum, doc.feldwert(0)
   Print #fileNum, "[/FELDWERT]"
   Return
   
End Function

Navigation

[0] Themen-Index

[*] Vorherige Sete