Domino 9 und frühere Versionen > ND7: Entwicklung

nächste datei im Ordner lesen

(1/5) > >>

Alperen15:
n schönen Montag euch, bräcuhte wieder mal einen tipp....

mein agent öffnet ein verzeichnis liesst die erste datei und beendet den agenten. Wie heisst der befehl lies noch die anderen Dateien in diesem Verzeichnis, falls ncoh welche vorhanden sind.

atbits:
Ein bisschen mehr info wäre nicht schlecht

im normalfall solltest du mit dir alle dateien im Verzeichnis bekommen

Poste doch mal den gesamten Agent Code

grüße David

ascabg:
Hallo,

Na genau so, wie es auch in Deinem anderen Beitrag schon beschrieben wurde.

Dir$(*.*) liest die erste Datei im Verzeichenis.
Dir$() liest die naechste Datei, die den Suchkriterien entspricht, die beim ersten Dir-Befehl verwendet wurden.

siehe auch die Designer-Hilfe zu diesem Befehl.

Andreas

Alperen15:
also hier der erwünschte code

kurz nochmal lese erste datei ALLE ZEILEN und schreibe das als dokument in die ansicht. Anschließend nimm die Datei und stelle diese ins Verzeichnis.....


pathName$ = "E:\TestKUR\VerzeichnisTest\Vorzuege\"
   cFilename$ = Dir$(pathName$ & "*.csv", 0)
   
   filename = pathName$ + cFilename$
   
   
   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 )      
      ' **************
      
      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)      
         
         Close filenum
         Call XQSchreiben("0", "1", cgTracerVorzugImport, "Vorzug_Export_TESTKUR" + cDate + ".csv - gelöscht ", 632637&)      
         cText = Cstr(iZaehler) + " Datensätze bearbeitet"
         Call XQSchreiben("0", "1", cgTracerVorzugImport, cText, 632637&)
         
         i = i + 1
         pathName$ = "E:\TestKUR\VerzeichnisTest\\Archiv\"
         cFilename$ = Dir$(pathName$ & "*.csv", 0)
         
         Filecopy FileName,"E:\TestKUR\VerzeichnisTest\Archiv\" + cFilename$ + ".csv"  ' *** Sichern der aktuellen File ins Archiv
         Print cText
         Kill filename                     ' *** Löschen des eingelesenen .csv Datensatzes
         
         
         Line Input #filenum, i
      End If
      
      Loop '  Until Eof (filenum)   **** Neuen csv - Datensatz einlesen

ascabg:
Als Anregung.

cReadFile$ = Dir$(pathname$ & "*.csv")


--- Code: ---Do While sReadFile$ <> ""

.... hier Deine Aktionen

cReadFile = Dir$()

Loop

--- Ende Code ---

Andreas

Navigation

[0] Themen-Index

[#] Nächste Seite