Progressbar, FileReadLine

[DCCD]

this works, but "fileReadLine" finish before "progress bar" Any idea how to fix this?

#include <GUIConstants.au3>

$Source      = "C:\20080426(002).data";1Gb!
$total       = FileGetSize($Source)
$F           = FileOpen($Source, 0)
$count       = 0
$GUI         = GUICreate("GUI",400,60,-1,-1)
$GUIProgress = GUICtrlCreateProgress (10,10,380,40)
GUISetState (@SW_SHOW)

while 1
    $line = FileReadLine($F)
    If @error    = -1 Then ExitLoop
    $count       = $count + StringLen($line)
    $iPercentage = Round(($count/$total)*100)
    GUICtrlSetData($GUIProgress, $iPercentage)
WEnd

FileClose($F)

[Yashied]

this works, but "fileReadLine" finish before "progress bar" Any idea how to fix this?

#include <GUIConstants.au3>

$Source      = "C:\20080426(002).data";1Gb!
$total       = FileGetSize($Source)
$F           = FileOpen($Source, 0)
$count       = 0
$GUI         = GUICreate("GUI",400,60,-1,-1)
$GUIProgress = GUICtrlCreateProgress (10,10,380,40)
GUISetState (@SW_SHOW)

while 1
    $line = FileReadLine($F)
    If @error    = -1 Then ExitLoop
    $count       = $count + StringLen($line)
    $iPercentage = Round(($count/$total)*100)
    GUICtrlSetData($GUIProgress, $iPercentage)
WEnd

FileClose($F)

You must take into account the @CRLF.

[GEOSoft]

FileGetSize is not a good way to actually get the what you are looking for since FileReadLine() strips @CR & @LF.

This function isn't tested but it should be pretty close.

$Total = _StringSize($Source)

Func _StringSize($sStr)
    If FileExists($sStr) Then $sStr = FileRead($sStr)
    Local $iSize = StringLen(StringReplace(StringStripCR($sStr)), @LF, "")
    Return $iSize
EndFunc

Another way would be this

$Total = _StringSize($Source)

Func _StringSize($sStr)
    If FileExists($sStr) Then $sStr = FileRead($sStr)
    StringRegExpReplace($sStr, "\V", "")
    Local $iSize = @Extended
    Return $iSize
EndFunc

Edited July 15, 2009 by GEOSoft

[KaFu]

Strange, even taking line feeds into account I didn't came nearly anywhere the real filesize. Anyway, filereadline() is quiet slow. Is it really necessary, esp. parsing a 1GB file?

#include <GUIConstants.au3>

$Source      = "C:\20080426(002).data" ;1Gb!
$total       = FileGetSize($Source)
$F           = FileOpen($Source, 0)
$count       = 0
$GUI         = GUICreate("GUI",400,60,-1,-1)
$GUIProgress = GUICtrlCreateProgress (10,10,380,40)
GUISetState (@SW_SHOW)

$BufferSize = 1024 * 10 ; 10kb

For $i = 1 To Ceiling($total / $BufferSize)
    $line = FileRead($F, $BufferSize)
    $count       += $BufferSize
    $iPercentage = Round(($count/$total)*100)
    GUICtrlSetData($GUIProgress, $iPercentage)
Next

FileClose($F)

Edited July 15, 2009 by KaFu

[DCCD]

@GEOSoft, Thanks "both" function works, but with small files!, fails reading 1GB file, see attached pic! My files between 1GB and 4GB.

@KaFu, Thank you so much, WORKS 100%, but takes forever!!!

Edited July 15, 2009 by DCCD