textfile nach mehrere leerzeilen durchforsten und bis auf 1 löschen

Hiho,

ich würde gerne ein txt file auf mehrere aufeinanderfolgende leerzeilen durchsuchen und alle leerzeilen bis auf 1 löschen.
leider komm ich damit nicht ganz zurecht. also prüfung pro leerzeile und löschung ist ok, aber auf mehrere komme ich nicht ganz klar.

For $i = 1 To $arFile[0]
If FileReadLine(@UserProfileDir & "\map.cmd", $i) = "" Then _FileWriteToLine(@UserProfileDir & "\map.cmd", $i, "", 1)
Next