Dokument suchen und Daten ändern

[DAU-in]

String zerlegen mit Left und Midfunction?

[lotus blue]

String zerlegen mit Left und Midfunction?

Danke für den Tipp, hat sich nun erledigt.

 

[lotus blue]

Hi bräuchte bitte nochmal kurz euren Rat.

Die Datei (txt) die ich jetzt zur Verfügung gestellt bekomm ist so aufgebaut, dass in einer Zeile jeweils die Produktnummer, das Bestelldatum und die Lagernummer aufgeführt ist. Jeweils durch ; getrennt.

Mein Script funktioniert ja soweit, dass ich die Datei öffne Zeile für Zeile vergleiche ob in der Ansicht "offene Bestellungen" die Produktnummer vorhanden ist.
Wenn ja setzt er das Datumsfeld "Test" auf @today.
Nun will ich aber folgendes realisieren:
Zusätzlich soll das Script, sobald es das Dok mit der Produktnummer in der Ansicht gefunden hat, das Bestelldatum (aus der TXT) in das Feld Bestelldatum und die Lagernummer (aus der TXT) in das Feld Lager schreiben.
Wo setzt ich am besten an?
Dacht da an "WRITE"Funktion nach dem "Call doc.ReplaceItemValue("Test", Today)"

 
Hier mein Script:

Sub Initialize
   Dim session As New notessession
   Dim db As notesdatabase
   Dim doc As Notesdocument, profdoc As Notesdocument
   Dim Dateipfad As String, aktfile As String
   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 profdoc = db.getprofiledocument("(Config)")
   Dateipfad = profdoc.Dateipfad_1(0)
   fileNum = Freefile()
   Set view = db.GetView ("Offene Bestellungen")
   
'Trennzeichen
   delimiter = ";"
   
   aktfile = Dateipfad
   If aktfile <> "" Then
      Open aktfile For Input As fileNum%
      Line Input #1,  InputStr$   
      Do While Not Eof(fileNum%)
         
         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("Test", Today)
               Call doc.Save(True,True)
            End If
         End If
      Loop
   Else
      Messagebox "Datei nicht vorhanden", 16, "Fehler"
   End If
   Close fileNum%
   
End Sub

[koehlerbv]

Bist Du sicher, dass Du wirklich zum Programmierer geeignet bist, Jason? Die Frage mag brutal und / oder unhöflich klingen, aber wenn ich sehe, dass Du
- es nach Hilfestellung geschafft hast, den ersten Wert aus einer Importzeile als Suchkriterium herzunehmen,
- es aber nicht schaffst, den zweiten Wert herauszulösen, um ihn als Datumswert zu konvertieren und einzusetzen,
dann bleibt mir einfach kein anderer Schluss.

Das sind doch allersimpelste logische Zusammenhänge, die man auch als Anfänger einfach erkennen MUSS - wenn einem nicht diese Art von Denke so vollkommen fremd ist und die Stärken dann eindeutig auf anderen Gebieten liegen.

Aus diesem Grunde sehe ich auch keinen Zweck darin, Dir zu erklären, wie man nicht nur das erste Element, sondern simpel auch das zweite aus einem Array zieht - bei der nächsten absoluten Kleinigkeit wird es ja wieder hapern.

Bernhard

[lotus blue]

@Bernhard

Denke schon. Man kann m.E. Alles erlernen wenn man will. Auch wenn man sich erst am Anfang befindet und "allersimpelste logische Zusammenhänge" erkennt, nur noch nicht umsetzen kann.
Andererseits liegt Deiner Ansicht nach meine Stärke wohl darin, blöde Fragen zu stellen  .
Dann wirst Du wohl recht haben.
Aus diesem Grunde sehe ich auch keinen Zweck darin, Dir zu erklären,warum ich entwickle
Paßt schon. 

Ich such mir halt den FieldArray(1) und möchte anschließend den Wert ins Feld setzen.
Nur mit Call doc.ReplaceItemValue("Lager", FieldArray(1))
bin ich halt noch nicht weitergekommen. Deshalb wollte ich höflichst fragen.
Aber mein Fall ist ja nicht der erste, wo ein .... Kommentar kommt, darum ist es auch nicht so tragisch.

[koehlerbv]

Man kann m.E. Alles erlernen wenn man will.

Nein, Jason. Mir würde es sehr leicht fallen, eine Liste aufzumalen, was man mir bestimmt nicht beibringen kann. Und genauso bin ich mir sicher, dass es da noch viel mehr Dinge gibt, die ich nie beherrschen könnte - von denen ich nur noch nichts weiss.

Andererseits liegt Deiner Ansicht nach meine Stärke wohl darin, blöde Fragen zu stellen

Nochmals: Nein, Jason. Ich bin zwar der Meinung, dass es doch dumme (blöde) Fragen gibt, aber es ist selten. Du erkennst vielmehr gar nicht, was Du eigentlich fragen solltest. Und *das* ist der Knackpunkt.

Ich schlage Dir folgendes vor: Du erarbeitest Dir jetzt streng logisch (!! Nicht wieder stochern und probieren!!), wie Du jetzt schon an das erste Element einer Importzeile herankommst. Und wenn es Dir dann nicht wie Schuppen aus den Haaren fällt: Okay - dann solltest Du den Job wirklich hinschmeissen - da hilft Dir nämlich dann auch kein noch so guter Lehrgang mehr.

Bernhard (der Dir nicht zu nahe treten möchte und der in seinem Freundeskreis fast nur Nichtprogrammierer hat und auch familiär "aus der Art geschlagen" ist  )

[lotus blue]

Also Ratschläge befolgt.
Wie Schuppen ist es nicht gerade geflogen aber fast.

Hab das Ganze jetzt so gelöst:
..............
'Trennzeichen
   delimiter = ";"
   aktfile = Dateipfad
   If aktfile <> "" Then 
      Open aktfile For Input As fileNum%   
      Line Input #1,  InputStr$   
      Do While Not Eof(fileNum%)
         Line Input #1,  InputStr$
         FieldArray = Split(InputStr$,delimiter)
         If Not Isempty(FieldArray) Then
            Set doc = view.GetDocumentByKey(FieldArray(0))
            If Not doc Is Nothing Then
               Call doc.ReplaceItemValue("Bestelldatum", (FieldArray(1)))
               Call doc.ReplaceItemValue("Test", (FieldArray(2)))               Call doc.Save(True,True)
            End If
         End If
      Loop
   Else
      Messagebox "Datei nicht vorhanden", 16, "Fehler"
   End If
   Close fileNum%
   
End Sub
Was soll ich sagen -> es funktioniert.
Hab mich halt aufgehalten, wie ich beim Call doc.ReplaceItemValue den FieldArray 1 bzw. 2 übergeben kann.
Grüße Jason