Domino 9 und frühere Versionen > ND6: Entwicklung

Import txt - Doppelte Dokumente vermeiden

<< < (3/4) > >>

lotus blue:

--- Zitat von: klauss am 22.08.08 - 08:49:42 ---
--- Zitat ---da bricht er ab
--- Ende Zitat ---

Mit welcher FM ?

Meine Glaskugel schläft leider noch......

--- Ende Zitat ---

Hab ich geändert und erhalte "Invalid key value typ".  !!!!  s.o.
 
Ist wahrscheinlich zu banal, finde aber in Deinem Code nirgends die Var. Name??
 8) >:D ::)    hab grad Dim Name As String ergänzt   :love:

Er importiert jetzt die Sätze, aber leider immer noch doppelt und dreifach

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 Name 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("(Konfiguration)")
   Dateipfad = profdoc.Dateipfad(0)
   fileNum = Freefile()
   Set view = db.GetView ("Alle Dokumente")
   
'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( Name )
            If doc Is Nothing Then
               Call CreateDocument(db, FieldArray)
            End If         
         End If
      Loop
   Else
      
      
      Messagebox "Datei nicht vorhanden", 16, "Fehler"
   End If
   Close fileNum%
   Exit Sub
   
Sub CreateDocument(db As notesdatabase, FieldArray As Variant)
   Dim doc As New notesdocument(db)
   
   doc.Form = "Neuer Eintrag"
   doc.Name = FieldArray(0)
   doc.Name2 = FieldArray(1)
   doc.Vorname3 = FieldArray(2)
   
   Call doc.save(1,0)
   
End Sub


End Sub

Driri:

--- Zitat ---Set doc = view.GetDocumentByKey( Name )

--- Ende Zitat ---

Das wird dir solange Nothing liefern, bis Du der Variable "Name" auch einen Inhalt schenkst.

Kadlec:
Schön und gut das Du nun Dim Name... eingebaut hast bleibt weiterhin die Frage wie Du Name setzt???
Den Name musst Du doch vorher aus irgendeinem doc z.b auslesen??

Boris

klaussal:
Wo wird Name gefüllt ?

tks:
Um es deutlicher zu machen:

Name = FieldArray(Stelle wo an der der Key steht)

Dann sollte es gehen

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete