Dim $sResult
$hFile = FileOpen("test.txt", 0)
If $hFile = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
While 1
$sLine = FileReadLine($hFile)
If @error = -1 Then ExitLoop
If $sLine = "" Then ContinueLoop
$sResult &= $sLine & @CRLF
Wend
FileClose($hFile)
$hFile = FileOpen("test.txt", 2)
FileWrite($hFile, $sResult)
FileClose($hFile)