Domino 9 und frühere Versionen > ND7: Entwicklung

nächste datei im Ordner lesen

<< < (3/5) > >>

Alperen15:
letzte frage für heute.......die Datei hat fünf Datensätze in das dokument wird nur der erste, der dritte und der fünfte datensatz geschrieben.....er überspringt alle zwei wieso?

Bitte nur info ohne bemerkungen wie ....streng dich an usw.... danke

pathName$ = "E:\TestKUR\VerzeichnisTest\Vorzuege\"
   cFilename$ = Dir$(pathName$ & "*.csv", 0)
   
   filename = pathName$ + cFilename$
   i = 1
   
   Open pathName$ & cFilename$ For Input As filenum 
   Seek fileNum,1   
   On Error Goto ErrorPrint
   
   Do While Not Eof (filenum)   
      Line Input #filenum, i
      If i <> "" Then
         i = i + cTrenn
         iZaehler = iZaehler + 1                            ' *** Datensatzzähler
      Else
         Call XQSchreiben("0", "1", cgTracerVorzugImport, "asNightImport ERROR: Keine Datensätze im CSV-File", 632637&)   
         Call SendMail(doc, cSendTo, cSubject, "asImportCollect ERROR: Keine Datensätze im CSV-File")
         Goto EndeAlles
      End If
      ' **********  Einlesen des csv - Datensatzes  **************************
      cError = "asImportCollect ERROR: ReadFields" + Cstr(iZaehler)
      On Error Goto ErrorPrint
      Call ReadFields(i)                                             ' *** neuer Datensatz lesen   
      ' ************* Document Selection - Alle Documente in der DB werden nach der Auftrag/Position durchsucht - Anführungszeichen der Selection beachten !
      cSelection = "FORM = ""maNurVorzug"" & fdAuftrag = """+cImString(4)+"""  & fdAuftragsposition = """+cImString(5)+""""
      Set dc = db.Search ( cSelection , dtCutOff , 0 )      
      ' **************
' neues Dok wird angelegt falls Status aktiv ***********
      If cImString(1) = "A" Then
         Set doc = db.CreateDocument         
         doc.Form="maNurVorzug"
         cError = "asImportCollect ERROR: FillFields " + cImString(4) + "/" + cImString(5)
         On Error Goto ErrorPrint
         Call FillFields(doc,i,cDate)                          ' *** Schreiben komplettes Dokument            
         cError = "asImportCollect ERROR: DocSave " + cImString(4) + "/" + cImString(5)
         On Error Goto ErrorPrint
         Call doc.save(False,True)      
         Line Input #filenum, i
      End If
      
NextEntry:         
      Loop '  Until Eof (filenum)   **** Neuen csv - Datensatz einlesen

ascabg:
Und auch jetzt nochmal die Frage,

Schon wirklcih die Wirkung und Anwendung von Line Input und der dazugehoerenden Parameter angesehen.

Du liest in die Variable i ein. Diese ist in Deinem Kontext aber eine numerische Variable, die ierbei nicht verwendet werden kann.


Andreas

P.S.:
Das Beispiel fuer Line Input in der Designer Hilfe ist fuer Deine Zwecke ebenfalls sehr dienlich.

Alperen15:
ja line input hilfe habe ich mir angeschaut und auch ähnliche agente......und es bringt mich auch nicht unbedingt weiter wieso mein agent jede zweite zeile liesst.....

ascabg:
Grob gesagt deshalb.

Beginn Deiner Schleife zum Lesen der Werte

--- Zitat ---   Do While Not Eof (filenum)  
      Line Input #filenum, i

--- Ende Zitat ---

und dem Ende Deiner Schleife zum Lesen

--- Zitat ---         Call doc.save(False,True)      
         Line Input #filenum, i
      End If
      
NextEntry:        
      Loop '  Until Eof (filenum)   **** Neuen csv - Datensatz einlesen

--- Ende Zitat ---


Andreas

Alperen15:
das hab ich doch auch ich markier die Stellen mal

   Open pathName$ & cFilename$ For Input As filenum 
   Seek fileNum,1   
   On Error Goto ErrorPrint
   
   Do While Not Eof (filenum)   
      Line Input #filenum, i      If i <> "" Then
         i = i + cTrenn
         iZaehler = iZaehler + 1                            ' *** Datensatzzähler
      Else
         Call XQSchreiben("0", "1", cgTracerVorzugImport, "asNightImport ERROR: Keine Datensätze im CSV-File", 632637&)   
         Call SendMail(doc, cSendTo, cSubject, "asImportCollect ERROR: Keine Datensätze im CSV-File")
         Goto EndeAlles
      End If
      ' **********  Einlesen des csv - Datensatzes  **************************
      cError = "asImportCollect ERROR: ReadFields" + Cstr(iZaehler)
      On Error Goto ErrorPrint
      Call ReadFields(i)                                             ' *** neuer Datensatz lesen   
      ' ************* Document Selection - Alle Documente in der DB werden nach der Auftrag/Position durchsucht - Anführungszeichen der Selection beachten !
      cSelection = "FORM = ""maNurVorzug"" & fdAuftrag = """+cImString(4)+"""  & fdAuftragsposition = """+cImString(5)+""""
      Set dc = db.Search ( cSelection , dtCutOff , 0 )      
      ' **************
' neues Dok wird angelegt falls Status aktiv ***********
      If cImString(1) = "A" Then
         Set doc = db.CreateDocument         
         doc.Form="maNurVorzug"
         cError = "asImportCollect ERROR: FillFields " + cImString(4) + "/" + cImString(5)
         On Error Goto ErrorPrint
         Call FillFields(doc,i,cDate)                          ' *** Schreiben komplettes Dokument            
         cError = "asImportCollect ERROR: DocSave " + cImString(4) + "/" + cImString(5)
         On Error Goto ErrorPrint
         Call doc.save(False,True)      
         Line Input #filenum, i
      End If
      
NextEntry:         
      Loop

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete