Leere Zeilen löschen

[Darkhell]

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.

 

[DrSoong]

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

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!