Domino 9 und frühere Versionen > ND8: Entwicklung

Erste Zeile einer Textdatei wird nicht eingelesen

<< < (2/2)

Axel:
Hast du das Line Input vor der Schleife gelöscht? Poste doch nochmal den gesamten Code wie er jetzt aussieht.


Axel

immanuel:
Dankeschön, das wars! Herzlichen Dank!

Hier nochmals den ganzen Code für unsere Kollegen:


--- Code: ---Sub Click(Source As Button)
Dim session As New notessession
Dim db As notesdatabase
Dim doc As notesdocument, profdoc As Notesdocument, doc2 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 esrCheckview As NotesView

Set db = session.currentdatabase
Set profdoc = db.getprofiledocument("Einstellungen")
Set esrCheckview = db.GetView ("EsrRef") ' EsrRef View nötig um zu checken, ob der Datensatz schon importiert ist

Dateipfad = profdoc.EinstellungenEsrFile(0) ' ESR Datei
fileNum = Freefile()
delimiter = Chr(10)  ' Trennzeichen
aktfile = Dateipfad
If aktfile <> "" Then
Open aktfile For Input As fileNum%
Do Until Eof(fileNum%)
' Zeile für Zeile einlesen
Line Input #1,  InputStr$
FieldArray = Split(InputStr$,delimiter)
     ' Check ob ESR Datensatz schon eingelesen.
If Not Isempty(FieldArray) Then
Set doc2 = esrCheckview.GetDocumentByKey(fieldarray(0)) ' View mit allen vollen ESR
If Mid(FieldArray(0),1,3) <> "999"  And doc2 Is Nothing Then ' Transaktion 999 Ignorieren, nur neue Datensätze einlesen
Call CreateDocument(db, FieldArray(0)) 'String übergeben
End If   
End If

Loop
Else
Messagebox "Datei nicht vorhanden", 16, "Fehler"
End If
Close fileNum%
Exit Sub
End Sub
--- Ende Code ---

Navigation

[0] Themen-Index

[*] Vorherige Sete