Remove last line in Text file

[Gilly]

Hopefully someone will be able to let me know what I am doing wrong, or at least let me know how to get around it.

I have a text file which consists of one word per line, and occassionally will contain an empty line--just a carriage return to the next line. I am trying to remove those empty lines. In other words:

line1
line2

line4

I want to become:

line1
line2
line4

I am using a function which I downloaded from the forum called _removeLineInFile. It uses _FileReadToArray and all is good unless the empty line is the last line of the text file--if that is the case...it doesn't even load that line into the array, even though that line DOES exist...In this case, the line after 'line4' won't get loaded into the array, which, I am guessing, is why it doesn't remove that line.

Any ideas on how I can remove that line?

Thanks,

Joe

[isolation]

$handle=FileOpen("file")

Dim $a

while 1

$a=FileReadLine($handle)

if $a=@cr or $a=@lf or $a=@crlf then

...

endif

wend

[isolation]

Sorry, my last answer was wrong

In a file

Line1&@cr

Line2&@cr

@cr

Line4

if in the last line there is a @cr

Line1&@cr

Line2&@cr

@cr

Line4&@cr

you see a carriage return in your "notepad"

but @cr isn't in the "Line5"

is at the end of the "Line4"

[DaRam]

Const $filename = "C:\test.txt"; Change location and name to your actual file
Local $file, $line, $output
$file = FileOpen($filename, 0)

; Check if file opened for reading OK
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

; Read in lines of text until the EOF is reached
While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
    If $line <> @CRLF AND $line <> @CR AND $line <> @LF Then
       $output = $output & @CRLF & $line
    EndIf
Wend
FileClose($file)

$file = FileOpen($filename, 2); Write mode erase previous contents

; Check if file opened for writing OK
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

FileWrite($file, $output)
FileClose($file)

Note: Edited to change write mode from Append (1) to Erase (2).

Edited February 25, 2009 by DaRam

[Gilly]

I was trying to recreate how the file looked on the web page--but the formatting kept taking away the space at the end of my example The file would look like this:

---start of file -----

line1

line2

line4

-----end of file------

In other words--there are 2 empty lines, one before line4 and one after line4. PLUS, when I load the file in Scite--it shows a CR LF...not just a CR--don't know if that changes anything.

Thanks again.

Edited February 25, 2009 by Gilly

[Authenticity]

Dim $sText = FileRead(@ScriptDir & '\123.txt')

$sText = StringRegExpReplace($sText, '(?m)^(\r\n)', '')

Dim $hFile = FileOpen(@ScriptDir & '\123.txt', 2)
FileWrite($hFile, $sText)
FileClose($hFile)

Edit: oh.. lol my mistake, use StringSplit($sTxt, @CRLF, 1) and remove the last line that contain only @CRLF using _ArrayDelete().

Edited February 25, 2009 by Authenticity

[Gilly]

Sorry, for any misunderstanding...the last line doesn't contain only a @CRLF...Here it is according to Scite:

-----start of file---------

line1|CRLF

line2|CRLF

CRLF

line4|CRLF

-----end of file----

Really line 5 doesn't show anything, not even a CRLF, but it's there...the trick is how do I get rid of that line? Sorry for any confusion...

[Authenticity]

It can be vertical tab, line-feed, carriage-return, or any Unicode space characters. If you have hex viewer or something similar you can check this byte(s) to see what it's value and compare it in the charmap.exe provided by Microsoft (if you like).

[DaRam]

Did you try the code I posted in Post #4 ?

Sorry, for any misunderstanding...the last line doesn't contain only a @CRLF...Here it is according to Scite:

-----start of file---------

line1|CRLF

line2|CRLF

CRLF

line4|CRLF

-----end of file----

Really line 5 doesn't show anything, not even a CRLF, but it's there...the trick is how do I get rid of that line? Sorry for any confusion...

[Gilly]

It SEEMS to be working, however, it appends it to the end of the file...that should be a quick tweak, right?

Thanks,

Joe

[DaRam]

Yes, that was left while I was checking to ensure I was not loosing contents.

Please change the , 1 in FileOpen to , 2 so it will erase previous contents while opening.

I have modified the code in my post accordingly.

It SEEMS to be working, however, it appends it to the end of the file...that should be a quick tweak, right?

Thanks,

Joe

[Gilly]

OK, I've done that...and it's taking away the space at the end and putting it at the end...at least I can remove those spaces with my _removeLineInFile function...

So the plan will be to run this section of code and then run the _removeLineInFile function--sound good?

Thanks again,

Joe

[Gilly]

ARGH!!!!

After I run the _removeLineInFile function...it re-adds the line at the end. Here is the function:

Func _removeLineInFile($pathOld, $pathNew, $search, $opt = 1)
;===============================================================================
;
; Function Name:   _removeLineInFile
; Description:: _removeLineInFile
; Parameter(s): Opt = 1 delete line if matches $search
;              Opt = 2 Line starts with
;              Opt = 3 Line contains
; Requirement(s):  #include <file.au3> and #include <Array.au3>
; Return Value(s):  1 success
; Return Value(s): -1 file not found
; Return Value(s): -2 invalid path to write
; Author(s):       th.meger
;
;===============================================================================

Local $FileOne
Local $FileTwo[1]
    
If Not _FileReadToArray($pathOld, $FileOne) Then Return -1

For $i = 1 To $FileOne[0]
    Switch $opt
        Case 1
            If $FileOne[$i] <> $search Then _ArrayAdd($FileTwo, $FileOne[$i])
        Case 2
            If StringLeft($FileOne[$i], StringLen($search)) <> $search Then _ArrayAdd($FileTwo, $FileOne[$i])
        Case 3
            If StringInStr($FileOne[$i], $search) = 0 Then _ArrayAdd($FileTwo, $FileOne[$i])
    EndSwitch
Next
_FileWriteFromArray($pathNew, $FileTwo, 1)
If @error = 0 Then Return 1
Return -2
EndFunc ;==>_removeLineInFile

Any ideas? Even if I just modify the function so the line doesn't show up at the end?

Edited February 26, 2009 by Gilly

[Gilly]

UPDATE:

I went back to an older version of AutoIt and all is well again...

Edited February 26, 2009 by Gilly