Domino 9 und frühere Versionen > ND6: Entwicklung

Dokument suchen und Daten ändern

<< < (26/26)

koehlerbv:

--- Zitat von: lotus blue am 11.11.08 - 18:03:29 ---Man kann m.E. Alles erlernen wenn man will.
--- Ende Zitat ---

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.


--- Zitat von: lotus blue am 11.11.08 - 18:03:29 ---Andererseits liegt Deiner Ansicht nach meine Stärke wohl darin, blöde Fragen zu stellen
--- Ende Zitat ---
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 ;D 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

Navigation

[0] Themen-Index

[*] Vorherige Sete