Zeilenumbruch beim Einlesen von Text verhindern
12.03.2013 08:40:17
Text
ich muss eine reine ASCII-Datei einlesen, bei der wann immer ein Komma eingelsen wird
a) das Komma verschwindet
b) das was nach dem komma steht als nächstes eingelesen wird.
Dies ist der Teil aus der Datei:
!T030303 Seitenstahl R 0,8
!T050505 Seitenstahl R 0,8
In Excel kommt es so an:
!T030303 Seitenstahl R 0
8
!T050505 Seitenstahl R 0
8
Das ist der Code
Sub DateiLesen()
Dim Zeile As String
Open "C:Datei.txt" For Input As #1 ' Datei öffnen.
Do While Not EOF(1) ' Schleife bis Dateiende.
Input #1, Zeile
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Zeile
Loop
Close #1
End Sub
Schon jetzt meinen herzlichen Dank für eure Bemühnugnen
LG,
Peter
Anzeige