Sodala. Der Stand der Dinge.
Es läuft. Teste gerade mit mehr Auftragsnummern.
Den Wert den ich in der txt suche, ist lt. Debugger jetzt im FieldArray(2).
In der csv war es halt noch die 0.
EditHier den endgültige Code, der auch funzt:
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:\PROTOKOLL.TXT"
'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(2))
If Not doc Is Nothing Then
Call doc.ReplaceItemValue("Status", "erledigt")
Call doc.Save(True,True)
End If
End If
Loop
Close fileNum%
End Sub
Kann ich eigentlich ein Problem bekommen, wenn die Auftrags/kundennummer in der txt mehrfach enthalten ist?
Anstatt der Messagebox muss ich halt jetzt noch einbauen, dass er nix macht wenn er nichts findet.
Kann evtl. vorkommen, dass in der zu durchsuchenden Ansicht die von der txt übermittelte Auftragsnummer nicht vorhanden ist.
