Remove blank lines

[Tentaal]

Hello,

Is there a function to remove all blank lines in a text file?

I was trying this but it does not work :

$ReplacedString = _ReplaceStringInFile($filename,"",CHR(008))

:-)

Thanks !

[poisonkiller]

#include <File.au3>
$file = FileOpenDialog("Open...", @DesktopDir, "Text files (*.txt)")
$lines = _FileCountLines($file)
$buffer = ""
For $i = 1 to $lines
    $line = FileReadLine($file, $i)
    If $line <> "" Then
        $buffer &= $line & @CRLF
    EndIf
Next
FileDelete($file)
FileWrite($file, $buffer)

[Tentaal]

Well, here you delete the file and recreate it without blank line. It's a solution, but what if I dont want to delete the file?

[poisonkiller]

You could replace it with FileMove...