Text-Datei: letzte Leerzeile löschen
28.08.2006 14:07:57
Gregor
Der folgende Code ersetzt bestimmte Zeichen in einer CVS-Datei.
Leider hat die Datei am Ende immer eine Leerzeile, die ich manuell löschen muss.
Gibt eine VBA-Lösung?
Merci für deine Hilfe!
Gregor
Sub Read_Extern_File_and_Replace_Signs()
' Trennungszeichen Strichpunkt durch Komma ersetzen
Dim Inhalt As String
Dim Zeilen() As String
Dim ReadFile As String
Dim j As Integer
Dim d As Integer
ReadFile = "c:\sfbbuchchchchchchchch2.txt" 'anpassen
d = FreeFile
Open ReadFile For Binary As #d
Inhalt = Space(LOF(1))
Get #d, , Inhalt
Close #d
Zeilen = Split(Inhalt, vbCrLf)
For j = LBound(Zeilen) To UBound(Zeilen)
' Semikola durch Komma ersetzen
Zeilen(j) = Application.WorksheetFunction.Substitute(Zeilen(j), ";", ",")
'§ durch "" ersetzen
Zeilen(j) = Application.WorksheetFunction.Substitute(Zeilen(j), "§", """")
Zeilen(j) = Application.WorksheetFunction.Substitute(Zeilen(j), "^", ",")
Next j
End Sub
Anzeige