What am I doing wrong?

[Teldin]

Func _Clear()

$countlines = _FileCountLines("test.txt")

If $countlines > 25 then

For $k = 25 to $countlines

GUICtrlSetData($output, "File has " & $countlines & " lines. Erasing line number " & $k)

_FileWriteToLine("test.txt", $k, "", 1)

Next

Else

GUICtrlSetData($output, "CLEARING DONE")

EndIf

EndFunc

I have to run it 6-7 times to erase all the lines (up to 25). It seems to only erase half the number of lines each time although it looks right in my $output...

Why?

[BillLuvsU]

It looks to me like its supposed to erase all lines PAST 25. Also putting it in The AutoIt tags and telling us more completely what its supposed to do will help alot to.

[Jos]

Why?

That is because when you delete record 26 then record 27 becomes 26 and will not be deleted.

Could be solved by doing:

For $k = $countlines to 25 step -1

Edited February 22, 2007 by JdeB

[MrCreatoR]

Teldin

Hi, try like this:

Func _Clear()
   $countlines = _FileCountLines("test.txt")
   If $countlines > 25 then 
      For $k = $countlines to 25 Step -1
          GUICtrlSetData($output, "File has " & $countlines & " lines. Erasing line number " & $k)
          _FileWriteToLine("test.txt", $k, "", 1)
      Next
   Else
      GUICtrlSetData($output, "CLEARING DONE")
   EndIf
EndFunc

[Teldin]

That solved it, thanks guys!

So "For $k = $countlines to 25 Step -1" says to erase line 25 until the number of $countlines has been reached?

Edited February 22, 2007 by Teldin

[improbability_paradox]

That solved it, thanks guys!

So "For $k = $countlines to 25 Step -1" says to erase line 25 until the number of $countlines has been reached?

not exactly, but close. What it's doing is working backwards (hence the step -1). You start at the last line (in this case $countlines) and count down until $k is less than 25