....soweit ich weiss keine Front-End Klasse vorhanden
Sub Initialize
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim tmpCount As Integer
Dim session As New NotesSession, _
Dim se As New NotesSession
Dim dbPath As String
Dim dbserv As String
Dim i As Integer
Dim j As Long, DBtit As String
dbserv = "sv1"
dbPath = "db.nsf"
fname = "Exp_02.txt"
Dim fileNum As Integer
Dim fileName As String
fileNum% = Freefile()
fileName$ = "\\server\ordner\ordner2\ordner3\" + fname(a)
Open fileName$ For Output As fileNum%
Set db = se.GetDatabase(dbserv, dbPath)
DBtit = db.Title
Set view = db.GetView("vwEExp")
ViewName = view.Name
'Add the table labels
Forall c In view.Columns
Print #fileNum%, c.title + ";";
End Forall
Print #fileNum%, Chr(13)
Set doc = view.GetFirstDocument
While Not ( doc Is Nothing )
RowCount = 0
For x= 1 To view.Columncount
'Schauen ob Spaltenwert ein Array ist
Dim wert, wert1, wert2 As String
If Isarray(doc.ColumnValues(RowCount)) Then
wert = doc.ColumnValues(RowCount)
wert1 = wert(0)
Else
wert1 = doc.ColumnValues(RowCount)
End If
wert2 = Cstr(wert1)
Print #fileNum%, wert2 + ";";
RowCount=RowCount+1
Next
Print #fileNum%, Chr(13)
Set doc = view.GetNextDocument(doc)
Wend
Close fileNum%
End Sub
