PDA

Vollständige Version anzeigen : Text aus csv-Datei löschen


MICHIF
09.07.2001, 13:34
Wie kann ich mit VBA einen Text in einer csv-Datei löschen ?
d.h. ich bekomme eine csv-Datei geschickt die ich täglich importieren will. Leider steht immer in der letzen Zeile :"Ende der Liste". Wie kann ich das vor dem Importieren mit Transfertext löschen? P.S. die Datei hat immer eine unterschiedliche Anzahl von Datensätzen(=Zeilen)

Kurt aus Kienitz
09.07.2001, 13:56
Hallo,

Dann wirst Du wohl die Datei zeilenweise einlesen, prüfen und in eine neue Datei ausgeben müssen.

Könnte ungefähr so aussehen:

Sub CVSPreImport( OrgDatei As String, NewDatei As String)

Dim InZeile As String

Open OrgDatei For Input As 1
Open NewDatei For Output As 2
While Not Eof(1)
Line Input #1, InZeile
If InStr(InZeite,"Ende der Liste") = 0 Then
Print #2, InZeile
End if
Wend
Close #1
Close #2
End Sub