Delete Empty LInes

[cheesestain]

How can I delete empty lines at the end of a text file?

I tried to do a search for @LF and replace with "". That doesn't seem to work.

[enaiman]

Usually the "empty" lines are @CRLF, not only @LF.

[cheesestain]

I can't seem to get this to work, I tried reading in the number of lines minus the blank lines but it still outputs a blank line.

"The line of text to write to the text file. If the line does NOT end in @CR or @LF then a DOS linefeed (@CRLF) will be automatically added."

How can I prevent it from doing this on the last line?

If I try to replace @CRLF it stips all the carriage returns. Sigh.

Edited December 1, 2010 by cheesestain

[Varian]

Try with this RegExReplace:

$Output = 'James Smith Jamie Brown' & @LF
$Output &= 'Philly' & @LF
$Output &= 'Joe' & @LF
$Output &= 'Blip' & @LF
$Output &= @LF
$Output &= 'paul' & @LF
$Output &= @LF
$Output &= @LF
$Output &= @LF
$Output &= 'tad' & @LF
$Output &= @LF
$Output &= @LF
$Output &= @LF


MsgBox(32, 'Before', StringReplace($Output, @LF, '<CR>' & @LF)) ;Added "<CR>" to show where a LineFeed is placed

$Output = StringRegExpReplace($Output, '[\s]*$|([\n\r]){2,}', '$1') ;Trims consecutive line feeds anywhere in string and all Whitespaces after non-whitespaces 

MsgBox(32, 'After', StringReplace($Output, @LF, '<CR>' & @LF))  ;Added "<CR>" to show where a LineFeed is placed

Or in a script accepting file input:

expandcollapse popup

#include-once
#include <Array.au3>

If $CmdLine[0] = 0 Then
    $List = _GetFiles('Supported Files (*.txt;*.ini;*.doc;*.nfo;*.au3;*.reg)')
Else
    $List = $CmdLine
EndIf

For $i = 1 To $List[0]
    $String = FileRead($List[$i])
    FileOpen($List[$i], 2)
    $String = StringRegExpReplace($String, '[\s]*$|([\n\r]){2,}', '$1') ;Trims Whitespaces at the end of string
    FileWrite($List[$i], $String)
Next

Func _GetFiles($Type = 'All Files (*.*)', $InitDir = '')
    Local $String, $ConversionList, $Flag, $oFile
    If $CmdLine[0] = 0 Then
        $Message = 'Choose the File(s) to Open.'
        $SourceFile = FileOpenDialog($Message, $InitDir, $Type, _GetIEVersion())
        If @error Then Exit
        If StringInStr($SourceFile, '|') Then
            $ConversionList = StringSplit($SourceFile, '|', @CRLF)
            For $i = 2 To $ConversionList[0]
                $ConversionList[$i] = $ConversionList[1] & '\' & $ConversionList[$i]
            Next
            _ArrayDelete($ConversionList, 1)
            $ConversionList[0] = UBound($ConversionList) - 1
        Else
            Local $ConversionList[2] = [1, $SourceFile]
        EndIf
    ElseIf $CmdLine[0] > 1 Then
        $CmdLineRaw = StringReplace(StringReplace($CmdLineRaw, '" "', '","'), '"', '')
        $ConversionList = StringSplit($CmdLineRaw, ',')
    Else
        $ConversionList = $CmdLine
    EndIf
    Return $ConversionList
EndFunc   ;==>_GetFiles

Func _GetIEVersion()
    $iE_Version = FileGetVersion(@ProgramFilesDir & '\Internet Explorer\iexplore.exe')
    Switch Int(FileGetVersion(@ProgramFilesDir & '\Internet Explorer\iexplore.exe'))
        Case 0 To 4
            Global $Flag = 4
        Case 5
            Global $Flag = 2 + 4
        Case Else
            Global $Flag = 1 + 2 + 4
    EndSwitch
    Return $Flag
EndFunc   ;==>_GetIEVersion

Edited December 1, 2010 by Varian

[cheesestain]

Thanks, your first example worked!