Progress bar in For loop

[tempman]

Hi,

I want to put Progress bar in For loop

#include <File.au3>

$message = "Open Log file..."

$PATH = FileOpenDialog($message, @WorkingDir & "\", "Log (*.log)", 1 + 4 )
If @error Then Exit

$search = InputBox("Search", "What to serch for", "")

$FILE = FileOpen($PATH, 0)

For $INDEX = 1 To _FileCountLines($PATH)
$LINE = FileReadLine($FILE,$INDEX)
$FIND = StringInStr($LINE,$search)
If Not @error And $FIND <> 0 Then MsgBox(48,"Found!",$LINE)
Next

FileClose($FILE)

MsgBox(64, "Search", "Finished!")

Exit

Heed help, cheers!!!

[water]

And your question is?

[tempman]

where to to put Progress bar in code to script work properly?

[water]

Check functions ProgressSet, ProgressOn and ProgressOff in the help file. The example scripts there show you what to do.

[tempman]

I already done that, but since file size is larger than 500kb the progress bar doesn't work correctly

[water]

Can you post the code you have (including the failing progressbar)?

[tempman]

#include <File.au3>

$message = "Open Log file..."

$PATH = FileOpenDialog($message, @WorkingDir & "\", "Log (*.log)", 1 + 4 )
If @error Then Exit

$search = InputBox("Search", "What to serch for", "")

$Form          =  GUICreate("GUI",450,200)
$progressbar    =  GUICtrlCreateProgress(10, 150, 430, 20)
GUISetState(@SW_SHOW)

$FILE = FileOpen($PATH, 0)
For $INDEX = 1 To _FileCountLines($PATH)
    $LINE = FileReadLine($FILE,$INDEX)
    $FIND = StringInStr($LINE,$search)
    If Not @error And $FIND <> 0 Then MsgBox(48,"Found!",$LINE)
    GUICtrlSetData($progressbar,$INDEX)
Next
FileClose($FILE)

MsgBox(64, "Search", "Finished!")

Exit

I know this is wrong so i didn't publish it at the first place...

[water]

You have to specify percent so the script should look like:

#include <File.au3>

$message = "Open Log file..."

$PATH = FileOpenDialog($message, @WorkingDir & "", "Log (*.log)", 1 + 4)
If @error Then Exit

$search = InputBox("Search", "What to serch for", "")

$Form = GUICreate("GUI", 450, 200)
$progressbar = GUICtrlCreateProgress(10, 150, 430, 20)
GUISetState(@SW_SHOW)

$FILE = FileOpen($PATH, 0)
$iRecords = _FileCountLines($PATH)
For $INDEX = 1 To $iRecords
    $LINE = FileReadLine($FILE, $INDEX)
    $FIND = StringInStr($LINE, $search)
    If Not @error And $FIND <> 0 Then MsgBox(48, "Found!", $LINE)
    GUICtrlSetData($progressbar, Int($iRecords * 100 / $INDEX))
Next
FileClose($FILE)

MsgBox(64, "Search", "Finished!")

Exit

[tempman]

With all due respect, this not working

Progress bar went from 0-100% less than a second..

This app need to work on xp intel celeron 2.4ghz

Edited August 1, 2012 by tempman

[water]

I see. But this works - tested

#include <File.au3>

$message = "Open Log file..."

$PATH = FileOpenDialog($message, @WorkingDir & "", "Log (*.log)", 1 + 4)
If @error Then Exit

$search = InputBox("Search", "What to serch for", "")

ProgressOn("Searching Log Files", "Log File: " & $PATH)
$FILE = FileOpen($PATH, 0)
$iRecords = _FileCountLines($PATH)
For $INDEX = 1 To $iRecords
    $LINE = FileReadLine($FILE, $INDEX)
    $FIND = StringInStr($LINE, $search)
    If Not @error And $FIND <> 0 Then MsgBox(48, "Found!", $LINE)
    $percent = Int(($INDEX * 100) / $iRecords)
    ProgressSet($percent, $percent & "%")
Next
ProgressOff()
FileClose($FILE)

MsgBox(64, "Search", "Finished!")

Exit

[tempman]

Yes, thank you for this, but Progress bar is always on top, so when message box appears it is behind Progress bar.

Can that be fixed?

Cheers!

[water]

Sure:

#include <File.au3>

$message = "Open Log file..."

$PATH = FileOpenDialog($message, @WorkingDir & "", "Log (*.log)", 1 + 4)
If @error Then Exit

$search = InputBox("Search", "What to serch for", "")

ProgressOn("Searching Log Files", "Log File: " & $PATH, "", default, (@DesktopHeight/2)-250, 2)
$FILE = FileOpen($PATH, 0)
$iRecords = _FileCountLines($PATH)
For $INDEX = 1 To $iRecords
    $LINE = FileReadLine($FILE, $INDEX)
    $FIND = StringInStr($LINE, $search)
    If Not @error And $FIND <> 0 Then MsgBox(48, "Found!", $LINE)
    $percent = Int(($INDEX * 100) / $iRecords)
    ProgressSet($percent, $percent & "%")
Next
ProgressOff()
FileClose($FILE)

MsgBox(64, "Search", "Finished!")

Exit

[tempman]

Cheers mate!!!

I find also this:

262144 MsgBox has top-most attribute set 0x40000

so if this:

If Not @error And $FIND <> 0 Then MsgBox(48, "Found!", $LINE)

change to this:

If Not @error And $FIND <> 0 Then MsgBox(262144, "Found!", $LINE)

problem is also solved!

Thank you for your time...

Edited August 1, 2012 by tempman

[water]