Domino 9 und frühere Versionen > ND6: Entwicklung

Dokument suchen und Daten ändern

<< < (16/26) > >>

klaussal:
Wie ist denn jetzt Stand der Dinge ?

lotus blue:
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.

Kadlec:
Wieso er/es macht doch nichts....musst nur die Messagebox (die Du ja nur aus Testzwecken hattest) rausschmeissen.

Welches Problem solltest Du bekommen wenn er eine Nr. mehrfach findet, er Nudelt halt immer wieder übers gleiche Dok.
Könnte mann natürlich ändern wenn man sagt "...bist Du schon auf erledigt mache nichts", oder Du liesst erst alle Nummern in eine Liste die dann Unique und dann wieder gegen die Ansicht prüfen.

Boris

lotus blue:
Möcht ich mich bei Allen bedanken, die mir unglaublich weitergeholfen haben.

 :love:  :knuddel: :love: Ich trink ne halbe auf Euch am Sonntag beim EM-Sieg über Polen :love:  :knuddel: :love:
Einfach ein Klasseforum.

DerAndre:
Was Du der einfachheit halber machen kannst, wenn Du willst.

Abfrage ob doc.Status(0) <> "erledigt" then...

Aber Notes ist es im Prinzip egal, wie oft er auf einem Doc rumnudelt.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete