unimx Geschrieben 29. Juni 2006 Teilen Geschrieben 29. Juni 2006 Hallo, Also ich habe ein VBscript(6.0) das mir eine Textdatei nimmt, umformatiert und in eine Access Datenbank schreibt, ist soweit alles wunderbar. Ich möchte nun, dass ich mehrer Dateien gleichzeitig einlesen kann, die Dateien heissen zb, funk_2005_07_08.txt ich möchte ihm quasi sagen: lies mir die dateien von 2005-06-06 bis 2005-08-08 ein, wenn eine Datei leer, bzw nicht vorhanden, (weil es gibt nicht von jedem Tag eine Datei) dann überspringen und mit der nächsten weitermachen. Hat da einer von euch vielleicht ein stück Code, das mir weiterhilft oder so :-) Zitieren Link zu diesem Kommentar Auf anderen Seiten teilen Mehr Optionen zum Teilen...
Amstelchen Geschrieben 29. Juni 2006 Teilen Geschrieben 29. Juni 2006 VBscript(6.0) VBS oder VB6? Access Datenbank womit greifst du damit zu, DAO, ADO, ODBC? s'Amstel Zitieren Link zu diesem Kommentar Auf anderen Seiten teilen Mehr Optionen zum Teilen...
unimx Geschrieben 29. Juni 2006 Autor Teilen Geschrieben 29. Juni 2006 VB 6.0 So hier mal der Code, damit wirds vielleicht einfacher :-) '******************************************************************** 'Button zum Importieren von Eingriff '-------------------------------------------------------------------- Private Sub imeingriff_Click() On Error GoTo Err_imeingriff_Click Dim Path As String Dim strFileName As String Dim ersterb As String Dim Dateinummer As Integer Dim Textzeile 'HIER KANN VON HAND GEPFLEGT WERDEN! If ((IsNull(Me![Dateipfad])) Or (Me![Dateipfad] = "")) Then Me![Dateipfad] = DateiOeffnen("C:\Logistik EDV\logs", "Datei öffnen") 'Me![Dateipfad] = Pfad, in Else 'den der Öffnen-Dialog springt, Me![Dateipfad] = DateiOeffnen(Me![Dateipfad], "Datei öffnen") 'falls kein anderer ausgwählt wurde End If '------------------------------------------------------- ' Automatisches setzten, der Importeinstellungen strFileName = Right$(Dateipfad, Len(Dateipfad) - _ InStrRev(Dateipfad, "\")) 'Herausfiltern des Dateinamens ersterb = Left(strFileName, 1) 'Abschneiden des ersten Buchstabens der Datei If ersterb = "e" Then Dateipfad_imp = "EINGRIEFE" Table = "EINGRIEFE" Spez = "EINGRIFFE_Importspezifikation" ' ElseIf ersterb = "f" Then ' Dateipfad_imp = "FUNK_FILE" ' Table = "FUNK_FILE" ' Spez = "FUNK_Importspezifikation" ' ElseIf ersterb = "m" Then ' Dateipfad_imp = "MATBEW_2004" ' Table = "MATBEW_2004" ' Spez = "MATBEW_Importspezifikation" Else: GoTo Err_imeingriff_errordatei_Click End If '------------------------------------------------------- DoEvents If ((Not IsNull(Me![Dateipfad])) And (Me![Dateipfad] <> "")) Then DoCmd.Hourglass True Dateinummer = FreeFile Open Me![Dateipfad] For Input As #Dateinummer While Not EOF(Dateinummer) ' Me.[Textfeld] = "" 'löscht vor jedem Öffnen, den Inhalt des Textfeldes Line Input #Dateinummer, Textzeile Me![Textfeld] = Me![Textfeld] & Textzeile & vbCrLf Wend Close #Dateinummer End If 'Importieren '-------------------------------------------------------------------- Dim Path2 As String Dim Dateinummer2 As Integer Dim Textzeile2 If ((Not IsNull(Me![Dateipfad])) And (Me![Dateipfad] <> "")) Then DoCmd.Hourglass True Dateinummer2 = FreeFile Open Me![Dateipfad] For Input As #Dateinummer2 Close #Dateinummer2 DoCmd.TransferText acImportFixed, Spez, Table, Me![Dateipfad], False, "" End If MsgBox "Importieren erfolgreich", vbInformation '-------------------------------------------------------------------------- Exit_imeingruff_Click: DoCmd.Hourglass False Exit Sub Err_imeingriff_errordatei_Click: MsgBox "Sie haben eine Falsche Datei ausgewählt", vbCritical Err_imeingriff_Click: MsgBox "Importieren nicht erfolgreich", vbCritical End Sub Zitieren Link zu diesem Kommentar Auf anderen Seiten teilen Mehr Optionen zum Teilen...
Empfohlene Beiträge
Dein Kommentar
Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.