Das ist der Inhalt meiner CSV-Datei:
54321;Test;Robert
1234;Mustermann;Anton
Das ist der Inhalt der Ansicht "Alle Dokumente" mit einer sortierten 1.Spalte
Nummer Name
1234 Test Robert
54321 Mustermann Anton
und das ist der Code der im Agenten ausgeführt wird:
Sub Initialize
Dim session As New notessession
Dim db As notesdatabase
Dim doc As notesdocument
Dim fileNum As Integer, cells As Integer, k As Long
Dim fileName As String
Dim InputStr As String, delimiter As String
Dim FieldArray As Variant
Dim view As NotesView
Set db = session.currentdatabase
Set view = db.GetView ("Alle Dokumente")
fileNum% = Freefile()
'Dateipfad
fileName$ = "C:\Archiv.csv"
'Trennzeichen
delimiter = ";"
Open fileName$ For Input As fileNum%
Line Input #1, InputStr$
Do While Not Eof(fileNum%)
'Zeile für Zeile einlesen
Line Input #1, InputStr$
FieldArray = Split(InputStr$,delimiter, -1, 0)
If Not Isempty(FieldArray) Then
Set doc = view.GetDocumentByKey(FieldArray(0))
If Not doc Is Nothing Then
Call doc.ReplaceItemValue("Status", "erledigt")
Call doc.Save(True,True)
Else
Messagebox"Test Nachrichtenbox",0,"Test"
End If
End If
Loop
Close fileNum%
End Sub
