Domino 9 und frühere Versionen > ND6: Entwicklung

Import txt - Doppelte Dokumente vermeiden

<< < (4/4)

tks:

--- Zitat von: tks am 22.08.08 - 10:12:34 ---Um es deutlicher zu machen:

Name = FieldArray(Stelle an der der Key steht)

Dann sollte es gehen

--- Ende Zitat ---

EDIT: kleine redaktionelle Änderung. Deutsche Sprach, schwere Sprach

Oh Mann! Und dann noch "zitieren" statt "editieren" gedrückt. Hoffentlich ist bald WE.

lotus blue:
Klingt logisch. Danke Euch allen.  :love: :love: :love:

Es funzt, dann muss es wohl so jetzt passen  ;D

Hier das fertige 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 VsNr 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(fieldarray(0))
            If doc Is Nothing Then
               Call CreateDocument(db, FieldArray)
            End If         
         End If
      Loop
   Else
      
      
      Messagebox "olalallalal   Datei nicht vorhanden", 16, "Fehler"
   End If
   Close fileNum%
   Exit Sub
   
End Sub


Sub CreateDocument(db As notesdatabase, FieldArray As Variant)
   Dim doc As New notesdocument(db)
   
   doc.Form = "Neu"
   doc.Name = FieldArray(0)
   doc.Name2 = FieldArray(1)
   doc.Vorname = FieldArray(2)
   
   Call doc.save(1,0)
   
End Sub

Navigation

[0] Themen-Index

[*] Vorherige Sete