Filereadline wont read beyond Line 1808

[PostHistory]

#include <GuiConstantsEx.au3>
#include <File.au3>
#include <Constants.au3>
#include <Misc.au3>

Global $chatlog = FileOpen("C:\chat.log",0), $pos

_start()

Func _main()
While 1
$read = FileReadLine($chatlog,$pos)
ConsoleWrite($chatlog&@CR)
ConsoleWrite($read&@CR)
if stringlen($read) > 1 Then
ConsoleWrite($read&@cr)
$pos += 1
EndIf
ConsoleWrite($pos&@cr)
FileClose($chatlog)
WEnd

EndFunc

Func _start()
    FileSetPos($chatlog,0,2)
    $pos = FileGetPos($chatlog) ; currently = 141201
_main()

EndFunc

So basicly I want to read a log file that has a lot of lines in it but I cant seem to be able to specify the lines beyond 1808 is this a issue or am i doing somthing wrong ?

I dont want to use Filereadline($chatlog,-1) because the file is "Live" and updates fast and it sometimes misses the odd line, so i want to make sure it reads every line.

any pointers would be appreciated

Thanks in Anticipation!!

[funkey]

You do FileOpen once, but FileClose every time in loop.

Edited August 17, 2011 by funkey

[PostHistory]

You do FileOpen once, but FileClose every time in loop.

i thought by assigning a the var $chatlog = Fileopen("C:\chat.log") as a global would work so each time $chatlog is called the file is opened no ?

any how did quick test

#include <GuiConstantsEx.au3>
#include <File.au3>
#include <Constants.au3>
#include <Misc.au3>

Global  $pos


_start()

Func _main()
While 1
$chatlog = FileOpen("C:\chat.log",0)
$read = FileReadLine($chatlog,$pos)
ConsoleWrite($chatlog&@CR)
ConsoleWrite($read&@CR)
if stringlen($read) > 1 Then
ConsoleWrite($read&@cr)
$pos += 1
EndIf
ConsoleWrite($pos&@cr)
FileClose($chatlog)
WEnd

EndFunc

Func _start()
    $chatlog = FileOpen("C:\chat.log",0)
    FileSetPos($chatlog,0,2)
    $pos = FileGetPos($chatlog) ; currently = 141201
_main()

EndFunc

same issue.

[enaiman]

Quote from help file about FileReadLine:

If a filename is given rather than a file handle - the file will be opened and closed during the function call

If you want to go "FileReadLine" way - you don't need to open/close the file everytime. Be warned - FileReadLine, because of FileOpen and FileClose is SLOW.

You would be better by reading the whole file (_FileReadToArray) then go to the specified index. The increase in performance will be dramatic for big files.

[PostHistory]

Quote from help file about FileReadLine:

If you want to go "FileReadLine" way - you don't need to open/close the file everytime. Be warned - FileReadLine, because of FileOpen and FileClose is SLOW.

You would be better by reading the whole file (_FileReadToArray) then go to the specified index. The increase in performance will be dramatic for big files.

Will try the _FileReadToArray tonight

did this just now and still no result?

#include <GuiConstantsEx.au3>
#include <File.au3>
#include <Constants.au3>
#include <Misc.au3>

Global  $pos


_start()

Func _main()
While 1
;~ $chatlog = FileOpen("C:\chat.log",0)
$read = FileReadLine("C:\chat.log",$pos)
ConsoleWrite($read&@CR)
if stringlen($read) > 1 Then
ConsoleWrite($read&@cr)
$pos += 1
EndIf
ConsoleWrite($pos&@cr)
WEnd

EndFunc

Func _start()
    $chatlog = FileOpen("C:\chat.log",0)
    FileSetPos($chatlog,0,2)
    $pos = FileGetPos($chatlog)
_main()

EndFunc

[BrewManNH]

Try this way also.

Func _main()
    $chatlog = FileOpen("wordlist.txt", 0)
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $chatlog = ' & $chatlog & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
    While 1
        $read = FileReadLine($chatlog)
        ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $read = ' & $read & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
        If @error = -1 Then ExitLoop
        $pos += 1
        ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $pos = ' & $pos & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
    WEnd
    FileClose($chatlog)
EndFunc   ;==>_main

;

Edited August 17, 2011 by BrewManNH

[enaiman]

Why this FileGetPos? And why going so complicated?

It is as easy as this:

#Include <File.au3>
#Include <Array.au3>

Global $read

_FileReadToArray("C:\chat.log", $read)
_ArrayDisplay($read)

[kylomas]

PostHistory,

I dont want to use Filereadline($chatlog,-1) because the file is "Live" and updates fast and it sometimes misses the odd line, so i want to make sure it reads every line.

This is a matter of data currency...when you execute the fileopen, explicitly, or implicitly (through readline) then you have every available record. You will not have records written subsequent to the open...

Something like the following reads the entire file to a 0 based array (similar to _filereadtoarray)

Local $mst = StringSplit(FileRead($mstfl_name), @CRLF, 3)

This results in array variable $mst containing the entire file pointed to by $mstfl_name (see the doc to parameter details).

Hope this helps

Kylomas