Leere Zeilen in csv Datei löschen

[Holger Janßen]

Hi Leute,

ich importiere eine csv Datei mit einem Importfilter in meine Access DB.
Grundsätzlich funktioniert das sehr gut. Allerdings bekomme ich Fehler,
wenn leere Zeilen am Ende der Datei enthalten sind. Wie kann ich diese
leeren Zeilen am Ende der Importdatei vor dem Import löschen?

[Jürgen Volke]

Hallo Holger

Post by Holger Janßen
ich importiere eine csv Datei mit einem Importfilter in meine Access
DB. Grundsätzlich funktioniert das sehr gut. Allerdings bekomme ich
Fehler, wenn leere Zeilen am Ende der Datei enthalten sind. Wie kann
ich diese leeren Zeilen am Ende der Importdatei vor dem Import
löschen?

Mit Open for INPUT öffnen, Zeilenweise lesen und wenn Inhalt vorhanden in neue Datei, welche mit Open for OUTPUT geöffnet wurde
rein schreiben. Neue Datei importieren, statt Original

HTH Jürgen

[Martin Steinbach]

Post by Jürgen Volke
Hallo Holger

Post by Holger Janßen
ich importiere eine csv Datei mit einem Importfilter in meine Access
DB. Grundsätzlich funktioniert das sehr gut. Allerdings bekomme ich
Fehler, wenn leere Zeilen am Ende der Datei enthalten sind. Wie kann
ich diese leeren Zeilen am Ende der Importdatei vor dem Import
löschen?

Mit Open for INPUT öffnen, Zeilenweise lesen und wenn Inhalt vorhanden in neue Datei, welche mit Open for OUTPUT geöffnet wurde
rein schreiben. Neue Datei importieren, statt Original
HTH Jürgen

ich habe in meiner aktuellen db einfach die Importfehlertabelle
automatisch loeschen lassen (per vba code):
Function DeleteImportErrorTables()
Dim db As Database, t As TableDef, i As Integer
Set db = CurrentDb()
For i = db.TableDefs.Count - 1 To 0 Step -1
Set t = db.TableDefs(i)
If t.Name Like "*Importfehler" Then
db.TableDefs.Delete t.Name
End If
Next i
db.Close
End Function

[Holger Janßen]

Hallo Martin,

Post by Martin Steinbach

Post by Jürgen Volke
Hallo Holger

Post by Holger Janßen
ich importiere eine csv Datei mit einem Importfilter in meine Access
DB. Grundsätzlich funktioniert das sehr gut. Allerdings bekomme ich
Fehler, wenn leere Zeilen am Ende der Datei enthalten sind. Wie kann
ich diese leeren Zeilen am Ende der Importdatei vor dem Import
löschen?

Mit Open for INPUT öffnen, Zeilenweise lesen und wenn Inhalt vorhanden in neue Datei, welche mit Open for OUTPUT geöffnet wurde
rein schreiben. Neue Datei importieren, statt Original
HTH Jürgen

ich habe in meiner aktuellen db einfach die Importfehlertabelle
Function DeleteImportErrorTables()
Dim db As Database, t As TableDef, i As Integer
Set db = CurrentDb()
For i = db.TableDefs.Count - 1 To 0 Step -1
Set t = db.TableDefs(i)
If t.Name Like "*Importfehler" Then
db.TableDefs.Delete t.Name
End If
Next i
db.Close
End Function

Auch danke für deine Antwort. Das ist sicherlich eine Möglichkeit. Aber
mir wäre schon daran gelegen die Ursache der Importfehler vorher zu beheben.

[Michel Fouquet]

Hallo,

Post by Holger Janßen
Aber
mir wäre schon daran gelegen die Ursache der Importfehler vorher zu beheben.

vielleicht wäre es noch sinnvoller, dort, wo die CSV-Datei erzeugt wird,
dafür zu sorgen, dass überhaupt erst keine leeren Zeilen produziert
werden?

mfg,
Michel

[Holger Janßen]

Hallo Jürgen,

Post by Jürgen Volke
Hallo Holger

Post by Holger Janßen
ich importiere eine csv Datei mit einem Importfilter in meine Access
DB. Grundsätzlich funktioniert das sehr gut. Allerdings bekomme ich
Fehler, wenn leere Zeilen am Ende der Datei enthalten sind. Wie kann
ich diese leeren Zeilen am Ende der Importdatei vor dem Import
löschen?

Mit Open for INPUT öffnen, Zeilenweise lesen und wenn Inhalt vorhanden
in neue Datei, welche mit Open for OUTPUT geöffnet wurde rein
schreiben. Neue Datei importieren, statt Original

Danke für deine Antwort.

Ich öffne die Datei schon mit Open for Input, berabeite diese mit
Replace (um bestimmte Zeichen zu ersetzen) und speichere sie in einer
neuen Datei ab. Aber wie kann ich nun festestellen, dass eine Zeile ganz
leer ist und diese löschen?

[Christa Kurschat]

Hallo Holger,

Post by Holger Janßen
Ich öffne die Datei schon mit Open for Input, berabeite diese
mit Replace (um bestimmte Zeichen zu ersetzen) und speichere
sie in einer neuen Datei ab. Aber wie kann ich nun
festestellen, dass eine Zeile ganz leer ist und diese löschen?

Ich würde die Daten in eine Importtabelle importieren, anschließend mit
einer Anfügeabfrage nur die Daten anfügen, die in einem Feld, das nicht leer
sein darf, nicht null (oder Leerstring, je nachdem, was in den daten steht)
enthalten.

Bei dem Anfügen könntest Du auch das(die) bestimmte(n) Zeichen ersetzen und
muß das nicht vorher erledigen.

Gruß
Christa

[Jürgen Volke]

Hallo Holger

Post by Holger Janßen

Post by Jürgen Volke

Post by Holger Janßen
ich importiere eine csv Datei mit einem Importfilter in meine Access
DB. Grundsätzlich funktioniert das sehr gut. Allerdings bekomme ich
Fehler, wenn leere Zeilen am Ende der Datei enthalten sind. Wie kann
ich diese leeren Zeilen am Ende der Importdatei vor dem Import
löschen?

Mit Open for INPUT öffnen, Zeilenweise lesen und wenn Inhalt
vorhanden in neue Datei, welche mit Open for OUTPUT geöffnet wurde
rein schreiben. Neue Datei importieren, statt Original

Danke für deine Antwort.
Ich öffne die Datei schon mit Open for Input, berabeite diese mit
Replace (um bestimmte Zeichen zu ersetzen) und speichere sie in einer
neuen Datei ab. Aber wie kann ich nun festestellen, dass eine Zeile
ganz leer ist und diese löschen?

naja mit len(Einlesestring) kannst du ja feststellen, wieviele Zeichen es sind.
Wenn CRLF dabei ist, musste halt auf >2 abfragen

HTH Jürgen