Hi,

kennt einer einen Code oder eine Funktion die Leerzeilen abschneidet oder entfernt?

ich habe eine Datei mit Namen, wie z.b.

Dieter
Hans
Peter
Olli
Hubert


Aus dieser Datei möchte ich jeweils einen Name Namen inklusive Zeilenumbruch entfernen, sodass der darunterstehende Name hoch-rutscht.

Also, eine direkte Funktion kenn ich nicht, am besten ist aber das einlesen und ersetzen der doppelten Zeilenumbrüche:

Code vb:

1 2 3 4 5 6 7 8 9 10 11 12

Dim iFile As Integer, sName As String, sInhalt As String iFile = FreeFile sName = "C:\Datei.txt" 'Deine Datei inkl. Pfad sInhalt = Space(FileLen(sName)) Open sName For Binary As iFile  Get #iFile, , sInhalt Close iFile sInhalt = Replace(sInhalt, vbNewLine & vbNewLine, vbNewLine) 'Doppelte Zeilenumbrüche durch einfache ersetzen Kill sName 'Alte Datei löschen Open sName For Binary As iFile  Put #iFile, , sInhalt Close iFile

Der Doc!