help needed with progress for commandline app

[Tiboi]

ok this script have given me a headace. can anyone please help me with this script?

I am trying to make a progressbar for a commandline app that runs showing percentages of its progress.

expandcollapse popup

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>

Global $totalTicks

#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Form2", 413, 298, 192, 131)
$Progress1 = GUICtrlCreateProgress(128, 184, 150, 17)
$Input1 = GUICtrlCreateInput("Input1", 112, 24, 137, 21)
$Button1 = GUICtrlCreateButton("Button1", 168, 248, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            progress()
    EndSwitch
WEnd

Func progress() ;<--
    Local $Browse = GUICtrlRead($Input1) ;<--
    If $Browse = "" Then ;<--If no file path in $Input1 the if loop ends
    Else
        $maxTicks = 11 ;<-- Set the max number of % to expect from 0% - 100% = 11
        Local $comexe = Run(@ScriptDir & "commandlineprogram.exe", @SW_HIDE, 2) ;<--
        While 1
            Local $readTicks = StdoutRead($comexe) ;<--Read from the child's STDOUT
            If @error = -1 Then ExitLoop ; <--if StdoutRead sets @error to -1 we're at EOF, so exit
            StringReplace($readTicks, "%", "0") ; <--StringReplace keeps a count of chars it replaces in @extended
            Local $totalTicks += @extended ; <-- Dont know what that's for
            Local $tickPercent = (($totalTicks / $maxTicks) * 100) ; <--Calculate something
            GUICtrlSetData(-1, $tickPercent) ; <--Adjust the progress bar
        WEnd
        Sleep(500)
        ProgressOff() ;<--Hide the progress bar
        MsgBox(0, "Debug", "Done.")
        ; Finished
    EndIf
EndFunc   ;==>progress

[jaberwacky]

Change this:

Local $comexe = Run(@ScriptDir & "commandlineprogram.exe", @SW_HIDE, 2) ;<--

To this:

Local $comexe = Run(@ScriptDir & "\commandlineprogram.exe", @SW_HIDE, 2) ;<--

[wakillon]

Change this too :

Local $comexe = Run(@ScriptDir & "\commandlineprogram.exe", @SW_HIDE, 2) 
Local $readTicks, $tickPercent, $totalTicks
        
While ProcessExists ( $comexe )
    $readTicks = StdoutRead($comexe) 
    If Not @error And $readTicks <> '' Then
    StringReplace($readTicks, "%", "0")
    $totalTicks =+ @extended
    $tickPercent = (($totalTicks / $maxTicks) * 100)
    GUICtrlSetData(-1, $tickPercent) 
    EndIf
WEnd

What's your commandline app ?

Edited May 27, 2010 by wakillon

[Tiboi]

this is a screen shot of what the commandline app look like

i want to run the app, hide this and show a progress in my main app.

i tried this code but it still does not work. any more ideas please?

expandcollapse popup

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>


#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Form2", 413, 298, 192, 131)
$Progress1 = GUICtrlCreateProgress(128, 184, 150, 17)
$Input1 = GUICtrlCreateInput("Input1", 112, 24, 137, 21)
$Button1 = GUICtrlCreateButton("Button1", 168, 248, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            progress()
    EndSwitch
WEnd
Func progress() ;<--
    ;Local $Browse = GUICtrlRead($Input1) ;<--
    ;If $Browse = "" Then ;<--If no file path in $Input1 the if loop ends
    ;Else
        $maxTicks = 80 ;<-- Set the max number of % to expect from 0% - 100% = 11
        Local $comexe = Run(@ScriptDir & "\commandlineprogram.exe", @SW_HIDE, 2)
        Local $readTicks, $tickPercent, $totalTicks

        While ProcessExists($comexe)
            $readTicks = StdoutRead($comexe)
            If Not @error And $readTicks <> '' Then
                StringReplace($readTicks, "%", "0")
                $totalTicks = +@extended
                $tickPercent = (($totalTicks / $maxTicks) * 100)
                GUICtrlSetData(-1, $tickPercent)
            EndIf
        WEnd
        ;MsgBox(0, "Debug", "Done.")
    ;EndIf;### Tidy Error -> "endfunc" is closing previous "if" on line 27
EndFunc   ;==>progress

[jaberwacky]

Try changing this:

GUICtrlSetData(-1, $tickPercent)

To This:

GUICtrlSetData($Progress1, $tickPercent)

[Tiboi]

Try changing this:

GUICtrlSetData(-1, $tickPercent)

To This:

GUICtrlSetData($Progress1, $tickPercent)

still dont work.

Edited May 27, 2010 by Tiboi

[Tiboi]

can someone create a script that will show a command-line window displaying percentages from 1 - 100 so that debugging scripts like mine with progress bars would be easier. something like the command line screen shot i have above.

[zorphnog]

This is probably just a parsing error in your code. Use ConsoleWrite or MsgBox to display the raw data that you are receiving from the StdoutRead calls and post it.

[Tiboi]

This is probably just a parsing error in your code. Use ConsoleWrite or MsgBox to display the raw data that you are receiving from the StdoutRead calls and post it.

consolewrite outputs a LOT of this: 76417641764176417641764176417641764176417641764176417

[jaberwacky]

Ok Two things, While ProcessExists($comexe) won't work because the process is ran and exited before this block is even executed.

I made a commandlineapp. I used Aut2Exe with console checked as an option so it should write to a stream but it isn't being read by your script. I'm still working on this so maybe we'll work it out. I'll try a c/c++ program too to see if that makes a difference.

[jaberwacky]

GOT IT!

Put this exe in your script directory:

Be sure to back up your original commandlineprogram.exe!

(after you DL this I'm going to delete it because it takes up too much room)

And then use this modified code:

expandcollapse popup

#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_AU3Check_Stop_OnWarning=y
#AutoIt3Wrapper_AU3Check_Parameters=-w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -d 
#AutoIt3Wrapper_Run_Tidy=y
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>

Global $totalTicks, $nMsg = ''

#region ### START Koda GUI section ### Form=
Global $Form2 = GUICreate("Form2", 413, 298, 192, 131)
Global $Progress1 = GUICtrlCreateProgress(128, 184, 150, 17)
Global $Input1 = GUICtrlCreateInput("Input1", 112, 24, 137, 21)
Global $Button1 = GUICtrlCreateButton("Button1", 168, 248, 75, 25, $WS_GROUP)
GUISetState()
#endregion ### END Koda GUI section ###

Do
    $nMsg = GUIGetMsg()

    Switch $nMsg
        Case $Button1
            progress()
    EndSwitch

    Sleep(20)
Until $nMsg = $GUI_EVENT_CLOSE

Exit

Func progress() ;<--
    Local $Browse = GUICtrlRead($Input1) ;<--

    If $Browse <> '' Then ;<--If no file path in $Input1 the if loop ends
        Local $maxTicks = 11 ;<-- Set the max number of % to expect from 0% - 100% = 11
        Local $comexe = Run("commandlineprogram.exe", @ScriptDir, @SW_HIDE, 2) ;<--
        Local $readTicks, $tickPercent

        While 1
            $readTicks = StdoutRead($comexe)

            If @error Then ExitLoop

            If $readTicks <> '' Then
                ConsoleWrite($readTicks & @CRLF)
                StringReplace($readTicks, "%", "0")
                $totalTicks += @extended
            EndIf

            $tickPercent = (($totalTicks / $maxTicks) * 100)
            GUICtrlSetData($Progress1, $tickPercent)
        WEnd

        Sleep(500)

        ProgressOff() ;<--Hide the progress bar
        MsgBox(0, "Debug", "Done.")
        ; Finished
    EndIf
EndFunc ;==>progress

Edited May 27, 2010 by jaberwocky6669

[Tiboi]

thanks this works. i'll edit it to suit my app thanks a bunch

[jaberwacky]

thanks this works. i'll edit it to suit my app thanks a bunch

No problem, we'll talk about how much you owe over lunch, m'kay?

[Tiboi]

No problem, we'll talk about how much you owe over lunch, m'kay?

lol

i had to do some serious modding to get it to work in my app but i finally got it.

now another problem: if i hit the button once its ok but if i hit it again it dont do the same thing over. the progress bar stays full and the message box comes up quicker. any ideas?

oh and my tool will be free. you just tell me where to post it but i am not sharing the source:)

Edited May 27, 2010 by Tiboi

[jaberwacky]

The ProgressOff() won't work in this case because you need to use ProgressOn() to create the progress bar (but dont quote me on that).

Try using GUICtrlSetData($progress1, 0) in place of ProgressOff().

[GEOSoft]

You can remove the ProgressOff() line. It's not required with a GUI Progrees bar

[GEOSoft]

Here is a simpler method that should do the same thing.

Func progress() ;<--
    Local $Browse = GUICtrlRead($Input1) ;<--

    If $Browse <> '' Then ;<--If no file path in $Input1 the if loop ends
        Local $sSTO, $sPercent
        Local $comexe = Run("commandlineprogram.exe", @ScriptDir, @SW_HIDE, 2) ;<--

        While 1
            $sSTO = StdoutRead($comexe)
            If @error Then ExitLoop
        $sPercent = StringRegExpReplace($sSTO, ".*(\d+)%(?:\v|\z)+", "$1")
            If GUICtrlRead($Progress1) <> $sPercent Then GUICtrlSetData($Progress1, $sPercent)
        WEnd

        Sleep(500)
        MsgBox(0, "Debug", "Done.")
        ; Finished
    EndIf
EndFunc ;==>progress

[Tiboi]

Here is a simpler method that should do the same thing.

Func progress() ;<--
    Local $Browse = GUICtrlRead($Input1) ;<--

    If $Browse <> '' Then ;<--If no file path in $Input1 the if loop ends
        Local $sSTO, $sPercent
        Local $comexe = Run("commandlineprogram.exe", @ScriptDir, @SW_HIDE, 2) ;<--

        While 1
            $sSTO = StdoutRead($comexe)
            If @error Then ExitLoop
        $sPercent = StringRegExpReplace($sSTO, ".*(\d+)%(?:\v|\z)+", "$1")
            If GUICtrlRead($Progress1) <> $sPercent Then GUICtrlSetData($Progress1, $sPercent)
        WEnd

        Sleep(500)
        MsgBox(0, "Debug", "Done.")
        ; Finished
    EndIf
EndFunc ;==>progress

tried your code like this but the progress bar showed nothing

expandcollapse popup

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>

Global $totalTicks, $nMsg = '', $Browse

#Region ### START Koda GUI section ### Form=
Global $Form2 = GUICreate("Form2", 413, 298, 192, 131)
Global $Progress1 = GUICtrlCreateProgress(128, 184, 150, 17)
Global $Input1 = GUICtrlCreateInput("Input1", 112, 24, 137, 21)
Global $Button1 = GUICtrlCreateButton("Button1", 168, 248, 75, 25, $WS_GROUP)
GUISetState()
#EndRegion ### END Koda GUI section ###

Do
    $nMsg = GUIGetMsg()

    Switch $nMsg
        Case $Button1
            progress()
    EndSwitch

    Sleep(20)
Until $nMsg = $GUI_EVENT_CLOSE

Exit
Func progress() ;<--
    Local $Browse = GUICtrlRead($Input1) ;<--

    ;If $Browse <> '' Then ;<--If no file path in $Input1 the if loop ends
        Local $sSTO, $sPercent
        Local $comexe = Run("commandlineprogram.exe", @ScriptDir, @SW_HIDE, 2) ;<--

        While 1
            $sSTO = StdoutRead($comexe)
            If @error Then ExitLoop
        $sPercent = StringRegExpReplace($sSTO, ".*(\d+)%(?:\v|\z)+", "$1")
            If GUICtrlRead($Progress1) <> $sPercent Then GUICtrlSetData($Progress1, $sPercent)
        WEnd

        Sleep(500)
        MsgBox(0, "Debug", "Done.")
        ; Finished
    ;EndIf
EndFunc ;==>progress

[GEOSoft]

Okay, we change the RegExp (remember we don't have your commandline file to test) so it works like this

Func progress() ;<--
    Local $Browse = GUICtrlRead($Input1) ;<--

    If $Browse <> '' Then ;<--If no file path in $Input1 the if loop ends
        Local $sSTO, $sPercent
        Local $comexe = Run("commandlineprogram.exe", @ScriptDir, @SW_HIDE, 2) ;<--

        While 1
            $sSTO = StdoutRead($comexe)
            If @error Then ExitLoop
            $sPercent = StringRegExpReplace($sSTO, ".+([1-9]0+)%", "$1")
            If @Extended Then
                If GUICtrlRead($Progress1) <> $sPercent Then GUICtrlSetData($Progress1, $sPercent)
            EndIf
        WEnd

        Sleep(500)
        MsgBox(0, "Debug", "Done.")
        ; Finished
    EndIf
EndFunc ;==>progress

There are just so many ways to do this. Since the image you showed has it incrementing in steps of 10 this should also be correct.

Func progress() ;<--
    Local $Browse = GUICtrlRead($Input1) ;<--

    If $Browse <> '' Then ;<--If no file path in $Input1 the if loop ends
        Local $sSTO, $iPercent
        Local $comexe = Run("commandlineprogram.exe", @ScriptDir, @SW_HIDE, 2) ;<--

        While 1
            $sSTO = StdoutRead($comexe)
            If @error Then ExitLoop
            StringReplace($sSTO, "%")
            $iPercent = @Extended
            If $iPercent > 1 Then
                $iPercent = ($iPercent -1) *10
                If GUICtrlRead($Progress1) <> $iPercent Then GUICtrlSetData($Progress1, $iPercent)
            EndIf
        WEnd

        Sleep(500)
        MsgBox(0, "Debug", "Done.")
        ; Finished
    EndIf
EndFunc ;==>progress

Edited May 27, 2010 by GEOSoft

[Tiboi]

ok try this exact script with the commandlineprogram.exe above you will see the problem i have.

expandcollapse popup

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>

Global $totalTicks, $nMsg = '';, $Browse

#Region ### START Koda GUI section ### Form=
Global $Form2 = GUICreate("Form2", 413, 298, 192, 131)
Global $Progress1 = GUICtrlCreateProgress(128, 184, 150, 17)
Global $Input1 = GUICtrlCreateInput("Input1", 112, 24, 137, 21)
Global $Button1 = GUICtrlCreateButton("Button1", 168, 248, 75, 25, $WS_GROUP)
GUISetState()
#EndRegion ### END Koda GUI section ###

Do
    $nMsg = GUIGetMsg()

    Switch $nMsg
        Case $Button1
            progress()
    EndSwitch

    Sleep(20)
Until $nMsg = $GUI_EVENT_CLOSE

Exit

Func progress() ;<--
    ;Local $Browse = GUICtrlRead($Input1) ;<--

    ;If $Browse <> '' Then ;<--If no file path in $Input1 the if loop ends
    Local $sSTO, $iPercent
    Local $comexe = Run("commandlineprogram.exe", @ScriptDir, @SW_HIDE, 2) ;<--

    While 1
        $sSTO = StdoutRead($comexe)
        If @error Then ExitLoop
        StringReplace($sSTO, "%")
        $iPercent = @extended
        If $iPercent > 1 Then
            $iPercent = ($iPercent - 1) * 10
            If GUICtrlRead($Progress1) <> $iPercent Then GUICtrlSetData($Progress1, $iPercent)
        EndIf
    WEnd

    Sleep(500)
    MsgBox(0, "Debug", "Done.")
    ; Finished
    ;EndIf
EndFunc   ;==>progress

edit: i guess it was removed. well here is a copy

http://www.mediafire.com/?ygjhzdn2dfm

Edited May 27, 2010 by Tiboi