Export in txt-Datei

[cococo69]

Hallo,

ist es möglich, aus einem Notes-Dokument Daten in eine txt-Datei in folgendem Format zu schreiben?

[Darlehen
  BruttoSummeDM 5.155
  NettoSummeDM 5.000
  AuszahlungsSatz 100,000
  EffektivZins 11,000
]Darlehen

Gruß
Armin

[Semeaphoros]

Natürlich lässt sich das machen, braucht allerdings einen Agenten oder eine Aktion oder sowas dafür. Wie weit kennst Du Dich denn in Notes-Programmierung aus?

Und noch etwas, wo kann ich denn mein Geld verleihen und dafür 11% Zins bekommen?  

[cococo69]

Danke für die schnelle Antwort!!!

Programmierung:
- Formeln: kein Problem
- Lotus Script: Seminar besucht, und einige kleinere Sachen geschrieben

Vielleicht kannst Du mir einen möglichen Weg mal grob aufzeigen?

[koehlerbv]

Print # und Write # in der DesignerHelp. Die Beispiele hierzu helfen Dir bestimmt schnell weiter. Ggf. auch mal hier im Forum nach "FreeFile" suchen - das muss in jedem Beispielcode für soetwas drinstehen.

Viel Erfolg,
Bernhard

[Semeaphoros]

Genau das was Bernhard während ich gelesen habe geschrieben hat, wollte ich auch grad schreiben. Mit @Formel kommst Du da nicht hin, aber LS ist das keine soo grosse Sache. Wie Du an das aktuelle Doc rankommst, hast Du bestimmt in Deinen Kursunterlagen.

[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