Read_Extern_File_and_Replace_Signs
20.12.2005 07:15:03
Gregor
Das untenstehende Makro funktioniert so weit so gut. Wunschlos glückglich bin ich allerdings erst, wenn es mir gelingen würde, die letzten zwei Absatzzeichen in der Datei "c:\s.csv" zu löschen (dort sind Zeilen mit Text enthalten und am Schluss 3 Absatzzeichen ohne Text, wovon ich 2 jeweils manuell löschen muss. Schön wäre es, wenn das programmierbar wäre).
Ich stelle mir das so vor, dass nach Ausführen des untenstehenden Codes an's Ende des Dokuments gefahren wird, 2 x nach links und 2-mal Delete.
Kennt jemand die Lösung?
Merci jetzt schon für deinen Imput!
Sub Read_Extern_File_and_Replace_Signs()
Dim Inhalt As String
Dim Zeilen() As String
Dim ReadFile As String
Dim i As Integer
Dim d As Integer
ReadFile = "c:\s.csv" 'anpassen
d = FreeFile
Open ReadFile For Binary As #d
Inhalt = Space(LOF(1))
Get #d, , Inhalt
Close #d
Zeilen = Split(Inhalt, vbCrLf)
For i = LBound(Zeilen) To UBound(Zeilen)
' Semikola durch Komma ersetzen
Zeilen(i) = Application.WorksheetFunction.Substitute(Zeilen(i), ";", ",")
Next i
Open ReadFile For Output As #d
Print #d, Join(Zeilen, vbCrLf)
Close #d
End Sub