FileOpen Func

[iceberg]

Hi,

How do I use the function to read file lines from last line up to first line?

Thanks.

[Xenobiologist]

Hi,

How do I use the function to read file lines from last line up to first line?

Thanks.

Hi,

you can read it into an array with _FileReadToArray and then start from the back Ubound() -1 ...

So long,

Mega

[xcal]

Lots of different ways to tackle his one.

#include <File.au3>

$i = _FileCountLines("test.txt")
While 1
    $line = FileReadLine("test.txt", $i)
    MsgBox(0, "", $line)
    $i -= 1
    If $i = 0 Then ExitLoop
WEnd

Edited August 26, 2006 by xcal

[theguy0000]

Lots of different ways to tackle his one.

#include <File.au3>

$i = _FileCountLines("test.txt")
While 1
    $line = FileReadLine("test.txt", $i)
    MsgBox(0, "", $line)
    $i -= 1
    If $i = 0 Then ExitLoop
WEnd
oÝ÷ Ûú®¢×¨®È¦¦XÊ+ZºÚ"µÍÚ[ÛYH Ñ[K]LÉÝÂÌÍÛ[HHÑ[PÛÝ[[Ê   ][ÝÝÝ    ][ÝÊBÜ   ÌÍÚOIÌÍÛ[HÈHÝLBIÌÍÛ[HH[TXY[J ][ÝÝÝ    ][ÝË  ÌÍÚJBSÙÐÞ
    ][ÝÉ][ÝË    ÌÍÛ[JB^

Edited August 26, 2006 by theguy0000

[xcal]

Even better...except I think you meant to end that with a Next, and $num To 0 should be $num To 1. No line 0 in a text.

Edited August 26, 2006 by xcal

[theguy0000]

right. thanks

[iceberg]

hi thanks alot for all the replies.

another one more questions pls...if lets say i have a GUI button.

I want the func to read the text file line by line, upwards, by only pressing the GUI button.

meaning when i press the button, it reads and displays only the last line. when i press the button again, it displays the second last line and so on....

pls help. thanks.

[amanda089]

#include <File.au3>
#include <GUIConstants.au3>

$num = _FileCountLines("test.txt")
$readlines = 0

; == GUI generated with Koda ==
$Form1 = GUICreate("AForm1", 622, 441, 192, 125)
$Edit1 = GUICtrlCreateEdit("", 0, 0, 621, 81, -1, $WS_EX_CLIENTEDGE)
GUICtrlSetData($Edit1, "AEdit1")
$Button1 = GUICtrlCreateButton("Read Next Line", 10, 85, 146, 36)
GUISetState(@SW_SHOW)
While 1
    $msg = GuiGetMsg()
    Select
        Case $msg = $Button1
            readline()
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case Else
            ;;;;;;;
    EndSelect
WEnd
Exit

func readline()
    $line = FileReadLine("test.txt", $num - $readlines)
    GUICtrlSetData($Edit1, $line, "")
    $readlines += 1
EndFunc

Untested, but it should work (I believe).

[xcal]

I tested it for kicks, and it works perfectly.

If you want to make it return to the bottom of the file after it hits the top, add...

If $num - $readlines < 1 Then $readlines = 0

...as the first line in the function.

[iceberg]

wow excellent!

thanks a million xcal.

just wondering something about the expressions which i don't understand.

why is it "$readlines += 1" and not "$readlines = +1"

thanks.

[xcal]

$readlines += 1 is just a simplier way of doing $readlines = $readlines + 1. Check out "Operators" in the help file for a list.

Edited August 27, 2006 by xcal

[iceberg]

ok got tat. how wd the function be if i wanna go "Read Previous Line"

func readline2()
    $line = FileReadLine("test.txt", $num - $readlines)
    GUICtrlSetData($Edit1, $line, "")
    $readlines -= 1
EndFunc

the above did work to a certain extent.

[Richard Robertson]

Just curious, why are you reading a file backwards?

[xcal]

expandcollapse popup

#include <File.au3>
#include <GUIConstants.au3>

$num = _FileCountLines("test.txt")
$readlines = -1

; == GUI generated with Koda ==
$Form1 = GUICreate("AForm1", 622, 441, 192, 125)
$Edit1 = GUICtrlCreateEdit("", 0, 0, 621, 81, -1, $WS_EX_CLIENTEDGE)
GUICtrlSetData($Edit1, "AEdit1")
$Button1 = GUICtrlCreateButton("Read Next Line", 10, 85, 146, 36)
$Button2 = GUICtrlCreateButton("Read Previous Line", 166, 85, 146, 36)
GUISetState(@SW_SHOW)

While 1
    $msg = GuiGetMsg()
    Select
        Case $msg = $Button1
            readline()
        Case $msg = $Button2
            prevline()
        Case $msg = $GUI_EVENT_CLOSE
            Exit
        Case Else
            ;;;;;;;
    EndSelect
WEnd

func readline()
    $readlines += 1
    If $num - $readlines < 1 Then $readlines = 0
    $line = FileReadLine("test.txt", $num - $readlines)
    GUICtrlSetData($Edit1, $line, "")
EndFunc

func prevline()
    $readlines -= 1
    If $num - $readlines > $num Then $readlines = $num - 1
    $line = FileReadLine("test.txt", $num - $readlines)
    GUICtrlSetData($Edit1, $line, "")
EndFunc

Edited August 27, 2006 by xcal

[iceberg]

thanks once again xcal!

Icekirby1, i am creating a log text file using my program. just wanna use the Forward and Backward buttons to read the log file entries.

thanks.