Looping Query

[mr-es335]

Good day,

My truly sincerest apologies for this one...but can someone please assist me in getting started with the example...

expandcollapse popup

; -----------------------------------------------
#include <AutoItConstants.au3>
; -----------------------------------------------
Global $iTimeOut = 100
Global $hSAWSTUDIO_MAIN = "CLASS:SAWSTUDIO_MAIN"
; -----------------------------------------------
Example()
; -----------------------------------------------
Func Example()
    Item1()
    OtherItems()
EndFunc   ;==>Example
; -----------------------------------------------
Func Item1()
    WinActivate($hSAWSTUDIO_MAIN)
    ; -----------------------------------------------
    Sleep($iTimeOut)
    MouseClick($MOUSE_CLICK_LEFT, 360, 180, 1, 0) ; FOR TESTING ONLY!!
    ; -------------------------
    Send("{F2}")
    ; Select item > Custom Cmds > Add
    ; 1st Item
    Sleep($iTimeOut)
    Send("{UP}")
    Sleep($iTimeOut)
    MouseClick($MOUSE_CLICK_LEFT, 250, 378, 1, 0)
    Sleep($iTimeOut)
    Send("{DOWN}+{ENTER}")
EndFunc   ;==>Item1
; -----------------------------------------------
Func OtherItems()
    ; Select item > Custom Cmds > Add
    ; 2nd Item
    Sleep($iTimeOut)
    Send("{HOME}")
    Sleep($iTimeOut)
    MouseClick($MOUSE_CLICK_LEFT, 250, 378, 1, 0)
    Sleep($iTimeOut)
    Send("{DOWN}+{ENTER}")
    ; -------------------------
    ; 3rd Item
    Sleep($iTimeOut)
    Send("{DOWN}")
    Sleep($iTimeOut)
    MouseClick($MOUSE_CLICK_LEFT, 250, 378, 1, 0)
    Sleep($iTimeOut)
    Send("{DOWN}+{ENTER}")
    ; -------------------------
    ; 4th Item
    Sleep($iTimeOut)
    Send("{DOWN}")
    Sleep($iTimeOut)
    MouseClick($MOUSE_CLICK_LEFT, 250, 378, 1, 0)
    Sleep($iTimeOut)
    Send("{DOWN}+{ENTER}")
    ; -------------------------
    ; 5th Item
    Sleep($iTimeOut)
    Send("{DOWN}")
    Sleep($iTimeOut)
    MouseClick($MOUSE_CLICK_LEFT, 250, 378, 1, 0)
    Sleep($iTimeOut)
    Send("{DOWN}+{ENTER}")
EndFunc   ;==>OtherItems
; -----------------------------------------------

As can be observed in the "OtherItems()" function, there are multiple items that require being added to a list.
• Though the above example shown 5 items, there are in total 32 items!
• Thus, I would require 31 iterations for this listing...from Item 2 to Item 32.

Any assistance in this matter would be greatly appreciated!

 

Edited Thursday at 07:02 PM by mr-es335

[ioa747]

Func OtherItems()
        ; 2nd Item
        ConsoleWrite("2) Item -----" & @CRLF)
        Sleep($iTimeOut)
        Send("{HOME}")
        Sleep($iTimeOut)
        MouseClick($MOUSE_CLICK_LEFT, 250, 378, 1, 0)
        Sleep($iTimeOut)
        Send("{DOWN}+{ENTER}")
    
    For $i = 3 to 32
        ConsoleWrite($i & ") Item -----" & @CRLF)
        Sleep($iTimeOut)
        Send("{DOWN}")
        Sleep($iTimeOut)
        MouseClick($MOUSE_CLICK_LEFT, 250, 378, 1, 0)
        Sleep($iTimeOut)
        Send("{DOWN}+{ENTER}")
    Next

EndFunc   ;==>OtherItems

Edited Thursday at 09:38 PM by ioa747
correction

[Werty]

@ioa747, maybe you (or copilot) overlooked something, it's only in the 2nd item he has {HOME}, in the other 3 he has {DOWN}.

Or is it me who is overlooking something. 😛

 

[ioa747]

1 hour ago, Werty said:

Or is it me who is overlooking something

You saw it well.  👀

[mr-es335]

Hello,

1) As noted, there is a list of 32 items.
2) As the list terminates on the last entry, I need to go to the top of the list - via Send("{HOME}")
3) At this point, the Func Item1() selects the first item as this function employs the initial Home command.
4) Items 2-32 are identical in operation.

In launching the provided example script, I am getting duplicate output of the top 3 items?

Also. the example script includes two functions - when I do believe that I only require one - one of Item 1, and one for items 2 to 32.

PS: Just for completeness, the end result of this script is to create a 2nd list of the data.

Edited Thursday at 11:58 PM by mr-es335

[mr-es335]

Hello,

Okay....updating the example provided by ioa747...here is what I have...and it DOES APPEAR to work as expected...

Spoiler

expandcollapse popup

; -----------------------------------------------
#include <AutoItConstants.au3>
; -----------------------------------------------
Global $iTimeOut = 100
; ---------------------
Global $hSAWSTUDIO_MAIN = "CLASS:SAWSTUDIO_MAIN"
Global $hSAWSTUDIO_MULTITRACK = "[CLASS:SAWSTUDIO_MULTITRACK]"
; -----------------------------------------------
; Add the 27 Control Track Cmds to Custom Cmds
; -----------------------------------------------
PartB()
; -----------------------------------------------
Func PartB()
    SelectI01()
    SelectF2()
    FirstItem()
    OtherItems()
    SelFirstItem()
EndFunc   ;==>PartB
; -----------------------------------------------
Func SelectI01()
    WinActivate($hSAWSTUDIO_MULTITRACK)
    ; -----------------------------------------------
    Sleep($iTimeOut)
    Send("{DOWN}")
EndFunc   ;==>SelectI01
; -----------------------------------------------
SelectF2()
Func SelectF2()
    WinActivate($hSAWSTUDIO_MAIN)
    ; -----------------------------------------------
    Sleep($iTimeOut)
    Send("{F2}")
EndFunc   ;==>SelectF2
; -----------------------------------------------
Func FirstItem()
    ConsoleWrite("Add Item #1" & @CRLF)
    Sleep($iTimeOut)
    Send("{HOME}")
    Sleep($iTimeOut)
    MouseClick($MOUSE_CLICK_LEFT, 250, 378, 1, 0)
    Sleep($iTimeOut)
    Send("{DOWN}+{ENTER}")
EndFunc   ;==>FirstItem
; -----------------------------------------------
Func OtherItems()
    For $i = 2 To 3
        ConsoleWrite("Add Item #" & $i & @CRLF)
        Sleep($iTimeOut)
        Send("{DOWN}")
        Sleep($iTimeOut)
        MouseClick($MOUSE_CLICK_LEFT, 250, 378, 1, 0)
        Sleep($iTimeOut)
        Send("{DOWN}+{ENTER}")
    Next
EndFunc   ;==>OtherItems
; -----------------------------------------------
Func SelFirstItem()
    Sleep($iTimeOut)
    Send("{HOME}")
EndFunc   ;==>SelFirstItem
; -----------------------------------------------

 

Thanks again to the both of your...especially to ioa747!!!

[ioa747]

expandcollapse popup

#include <AutoItConstants.au3>
; -----------------------------------------------
Global $iTimeOut = 100
; ---------------------
Global $hSAWSTUDIO_MAIN = "CLASS:SAWSTUDIO_MAIN"
Global $hSAWSTUDIO_MULTITRACK = "[CLASS:SAWSTUDIO_MULTITRACK]"
; -----------------------------------------------
; Add the 27 Control Track Cmds to Custom Cmds
; -----------------------------------------------
PartB()
; -----------------------------------------------
Func PartB()
    SelectI01()
    SelectF2()
    AddItems(27) ; 👈 Add 27 Items and SelFirstItem
EndFunc   ;==>PartB
; -----------------------------------------------
Func SelectI01()
    WinActivate($hSAWSTUDIO_MULTITRACK)
    ; -----------------------------------------------
    Sleep($iTimeOut)
    Send("{DOWN}")
EndFunc   ;==>SelectI01
; -----------------------------------------------
Func SelectF2()
    WinActivate($hSAWSTUDIO_MAIN)
    ; -----------------------------------------------
    Sleep($iTimeOut)
    Send("{F2}")
EndFunc   ;==>SelectF2
; -----------------------------------------------
Func AddItems($iItems = 1)
    Local $sKey ; dummy
    For $i = 1 To $iItems
        ConsoleWrite("Add Item #" & $i & @CRLF)
        Sleep($iTimeOut)
        $sKey = ($i = 1 ? Send("{HOME}") : Send("{DOWN}"))
        Sleep($iTimeOut)
        MouseClick($MOUSE_CLICK_LEFT, 250, 378, 1, 0)
        Sleep($iTimeOut)
        Send("{DOWN}+{ENTER}")
    Next

    ; SelFirstItem
    Sleep($iTimeOut)
    Send("{HOME}")
EndFunc   ;==>AddItems
; -----------------------------------------------