Hallo liebe Gemeinde,
ich möchte über Script eine ASCII-Datei erzeugen, bei der die
ausgegebenen Datensätze nicht durch eine Zeilenschaltung
getrennt werden. Ich habe mir einen Wolf gesucht und keinen
Parameter beim "Print-Befehl" gefunden die die Zeilenschaltung
unterdrückt !
Bin für jeden Tipp dankbar !
Ziel: Bestimmte Felder eines Doc´s aller Datensätze einer Ansicht sollen nacheinander ohne Zeilenschaltung in eine ASCII-Datei geschrieben werden !
Danke
Jeff
Hier mein Script
Dim Sess As New NotesSession
Dim DB As NotesDatabase
Dim View As NotesView
Dim Doc As NotesDocument
REM Variablen für die DTA-Datei
Dim sTxt As String
Dim fileNum As Integer
REM Variablen für den Schlußsatz
Dim Anz As Variant
Dim GesKto As Variant
Dim GesBlz As Variant
Set DB = Sess.currentdatabase
Set view = DB.GetView("DTA")
Set doc = view.GetFirstDocument
sFile = "F:\DTAUS1.txt"
fileNum = Freefile()
Open sFile For Output As fileNum
REM As fileNum
Print #fileNum , "A-Satz"
While Not(doc Is Nothing)
REM Print "1..!"
Anz=anz+1
GesKto=GesKto+Doc.BelKonto(0)
GesBlz=GesBlz+9999999999
REM Print doc.DTASOLL(0)
Print #fileNum , doc.DTASoll(0)
Set doc = View.GetNextDocument(doc)
Wend