Typing Text from Array, Continue with Steps, then Loop

[lukers83]

I have a piece of code (below) that reads information into an array, does some steps, and calls the array by typing into a selected text box. However, I want to type element one of the array, do many more steps, and then repeat the code starting with the first control click, but call element two and so on. What's the best way to do this?

#include <file.au3>
#include <array.au3> ; only for _ArrayDisplay()

$sFile = "patlistmrn.txt"

;Read in lines of text into 1D array
Dim $text
If Not _FileReadToArray($sFile, $text) Then
    MsgBox(4096, "Error", " Error reading text file to Array error:" & @error)
    Exit
EndIf
_ArrayDisplay($text, "Debug: $text")

ControlClick("Hill-Rom WatchChild-II", "Archive", "[NAME:cmdArchive]")
Sleep(1000)
ControlClick("frmMessagePopup", "OK", "[NAME:HillRomButton]")
Sleep(1000)
MouseMove(2806, 48, 1)
Sleep(100)
MouseClick($MOUSE_CLICK_LEFT)
MouseMove(2806, 105, 1)
Sleep(100)
MouseClick($MOUSE_CLICK_LEFT)
Sleep(200)
ControlClick("frmArchiveRetrival", "", "[NAME:HillRomTextBox; INSTANCE:2]")

For $vElement In $text
    Send($vElement & @CRLF)
Next

 

[Subz]

Just place the actions you wish to repeat into a function, basic example (untested):

#include <file.au3>
#include <array.au3> ; only for _ArrayDisplay()

$sFile = "patlistmrn.txt"

;Read in lines of text into 1D array
Dim $aElement
If Not _FileReadToArray($sFile, $aElement) Then
    MsgBox(4096, "Error", " Error reading text file to Array error:" & @error)
    Exit
EndIf
For $i = 0 To UBound($aElement) - 1
    _MyFunc($aElement[$i])
Next
_ArrayDisplay($aElement, "Debug: $aElement")

Func _MyFunc($_vElement)
    ControlClick("Hill-Rom WatchChild-II", "Archive", "[NAME:cmdArchive]")
    Sleep(1000)
    ControlClick("frmMessagePopup", "OK", "[NAME:HillRomButton]")
    Sleep(1000)
    MouseMove(2806, 48, 1)
    Sleep(100)
    MouseClick($MOUSE_CLICK_LEFT)
    MouseMove(2806, 105, 1)
    Sleep(100)
    MouseClick($MOUSE_CLICK_LEFT)
    Sleep(200)
    ControlClick("frmArchiveRetrival", "", "[NAME:HillRomTextBox; INSTANCE:2]")
    Send($_vElement & @CRLF)
EndFunc

 

Edited June 17, 2019 by Subz

[lukers83]

That worked. Thanks!