Domino 9 und frühere Versionen > ND6: Entwicklung

Dokument suchen und Daten ändern

<< < (14/26) > >>

lotus blue:

--- Zitat von: tks am 05.06.08 - 17:10:57 ---Hat sich die Mühe der Kollegen denn wenigstens gelohnt? Sprich: tut es nu?

--- Ende Zitat ---

Die Mühe von EUch allen hat sich aber dermaßen von gelohnt.
Ob es tut kann ich Dir aber noch nicht sagen, weil ich gerade erst dran bin Replace  einzubauen.  Lese grad die Hilfe

lotus blue:
Sorry finde null, Null über Replace(Field....) 
Wo soll ich das einbauen und anstatt was?

Ich muss doch den Split drinlassen, das Set.doc und dann war es das.
 :-: :-:

   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

klaussal:
So ungefähr :

Dim StrKey as string

StrKey = Replace(FieldArray(0),""","")
Set doc = view.GetDocumentByKey(StrKey)

Ungetestet.....

tks:
Ich würde mir eine zusätzliche Variable (z.B. strSearch) machen (Dim nicht vergessen)

Dann

strSearch = Replace(FieldArray(0),""","")

und beim GetDocumentByKey statt FieldArray(0) eben strSearch

Set doc = view.GetDocumentByKey(strSearch)

Steht alles auch in der Designer-Help. Replace findest Du unter "Lotus Script Language" -  "Language Reference"

* * * Nur Zweiter geworden * * *

lotus blue:
str Search ist doch ein Variant. Müsste passen
die zwei anderen Zeilen auch.
Dennoch kommt "Variant enthält keinen Container".


Dim strSearch As Variant
   
   strSearch = Replace(FieldArray(0),"","")   <- je zwei " passen oder?
   
   Set db = session.currentdatabase
   Set view = db.GetView ("Alle Dokumente")
   
   fileNum% = Freefile()
   
     'Dateipfad
   fileName$ = "V:\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(strSearch)

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete