Hallo,
hmm, das kann ich dir nicht sagen, aber ich könnte dir eine Agent anbieten der die Daten in die NSF importiert, dann kannst du problemlos mit @DBColumn arbeiten.
Sub Initialize
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim field(1 To 2) As String 'gesamt Anzahl der Felder in der csv angeben
Dim session As New NotesSession
Dim sentence As String
Set db = session.CurrentDatabase
Open "c:\input.csv" For Input As #1
While Not Eof(1)
Line Input #1, sentence
For i = 1 To 2 'gesamt Anzahl der Felder in der csv angeben
field(i) = ""
Next i
fieldnr = 1
For i = 1 To Len(sentence)
If Mid(sentence, i, 1) = ";" Then fieldnr = fieldnr + 1 Else field(fieldnr) = field(fieldnr) + Mid(sentence, i, 1)
Next i
For i = 1 To 2 'gesamt Anzahl der Felder in der csv angeben
field(i) = Replace(field(i),Chr(34),"")
Next i
Set doc = New NotesDocument( db )
doc.Form = "Person"
doc.Name=field(1)
'......
Call doc.Save(True,True)
Wend
Close #1
End Sub
