Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: cococo69 am 19.12.03 - 16:39:10
-
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
-
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? ;D
-
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?
-
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
-
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.
-
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