Delete blank lines

[jerem488]

Hello,

I would like delete blank lines of files. Only 5 last lines

I used filecountlines.

And then _FileWriteToLine but the function create a new blank line...

I thinked to the function stringstripws, but i haven't find how to.

thanks

[November]

Hello,

I would like delete blank lines of files. Only 5 last lines

I used filecountlines.

And then _FileWriteToLine but the function create a new blank line...

I thinked to the function stringstripws, but i haven't find how to.

thanks

Hi there m8,

try this, removes ALL blanks:

#include <array.au3>

_FileReadToArray($host,$aRecords);*** (filename, array)
_arraydisplay($aRecords, "Array with blanks");Display array
while 1
    $newvar = _ArraySearch($aRecords, "", 0, 0, 0, false); Search for null lines
    if @error = 6 Then; no more matches found
        ExitLoop
    Else
        _ArrayDelete($aRecords, $newvar);Delete current full line
    EndIf
wend

_arraydisplay($aRecords, "Array without blanks");Display array

Enjoy

Cheers

[bogQ]

Hello,

I would like delete blank lines of files. Only 5 last lines

I used filecountlines.

And then _FileWriteToLine but the function create a new blank line...

I thinked to the function stringstripws, but i haven't find how to.

thanks

#include <File.au3>
;DELITE LINES must b 54321 not 12345
_FileWriteToLine(@ScriptDir&"\test.txt", 5, "", 1)
_FileWriteToLine(@ScriptDir&"\test.txt", 4, "", 1)
_FileWriteToLine(@ScriptDir&"\test.txt", 3, "", 1)
_FileWriteToLine(@ScriptDir&"\test.txt", 2, "", 1)
_FileWriteToLine(@ScriptDir&"\test.txt", 1, "", 1)

every time you delete first line and try to delite secont problem is that second line is first becose you deleted firstone so itl skip one line basicly :/ but if you start from end line and move to the begining itl work

Edited November 4, 2008 by bogQ

[jerem488]

Me, i would like delete 5 Last lines...

Thnaks you and thanks in advance.

In my opinion it is simply but for me, not always...

Tuesday, it's rather difficult

[jerem488]

It's good.

I am find it.

So for delete "n" firsts lines we can do :

For $i = n To 1 Step -1
_FileWriteToLine(@ScriptDir&"\Test.txt", $i, "", 1)
NextoÝ÷ Ù©Ý~ÝzW­z«¨¶z®¢ÙZ²Û%w¬ÁçÚºÚ"µÍÜ ÌÍÚHHHÈ ÌÍÐÛÛSYÛÈHÑ[PÛÝ[[ÊØÜ   [È ][ÝÉÌLÕÝ   ][ÝÊBÑ[UÜ]UÓ[JØÜ[É][ÝÉÌLÕÝ ][ÝË  ÌÍÐÛÛSYÛË    ][ÝÉ][ÝËJB^

Thanks

Edited November 4, 2008 by jerem488

[rasim]

jerem488

Another, fast way:

$file = @ScriptDir & "\test.txt"
$sRead = FileRead($file)

$aString = StringSplit(StringStripCR($sRead), @LF)
$ResultString = ""
$count = 0

For $i = $aString[0] To 1 Step -1
    If $aString[$i] = "" Then
        $count += 1
        If $count <= 5 Then ContinueLoop
    EndIf
    
    $ResultString = $aString[$i] & @CRLF & $ResultString
Next

$hFile = FileOpen($file, 2)
FileWrite($hFile, $ResultString)
FileClose($hFile)