How can I save data out of a loop before the loop iterates. - (Moved)

[Kruxe]

Hey Guys! 

I was hopping I could get some help on this topic, I will try to explain what i am trying to do as clearly as I can!

In a nutshell, I am using the API a program and attempting to find all of the "TRACE FIELD" objects within its active page. using the code you see below i can do just that, upon executing the code the For loop will run over and over, going through each trace field and grabbing the text in each one until there are none left.  My question is how could I take the text from each instance and save it into either individual variables or one large variable that houses all the data before the look resets and wipes the text from the previous iteration?  I hope this made sense, thanks in advanced guys! 

Kruxe 

 

 

[Jos]

Moved to the appropriate forum, as the AutoIt Example Scripts forum very clearly states:

Quote

Share your cool AutoIt scripts, UDFs and applications with others.

---

Do not post general support questions here, instead use the AutoIt Help and Support forums.

Moderation Team

[Nine]

Just put the $Tracefields into a 1D array that you increment at every find.

I would have given you an example, but with an image, I did not have the courage of rewriting your script.

Next time, please use this tool, when you post code...

Edited February 13, 2020 by Nine

[Kruxe]

Local $DmisApp = ObjCreate("PCDLRN.Application")
Local $DmisActivePartProgram = $DmisApp.ActivePartProgram
Local $DmisCommands = $DmisActivePartProgram.Commands
Local $CommandCount = $DmisCommands.Count
Local $DmisCommand = $DmisCommands.Item($CommandCount)





For $DmisCommand In $DmisCommands

    If $DmisCommand.Type = "191" Then

        $Tracefield = $DmisCommand.GetText(258,0)

        MsgBox("","",$Tracefield)

    EndIf

        

Next

@Nine sorry about that, still very new here. Here you go!

[Nine]

Try this :

#include <Array.au3>

Local $DmisApp = ObjCreate("PCDLRN.Application")
Local $DmisActivePartProgram = $DmisApp.ActivePartProgram
Local $DmisCommands = $DmisActivePartProgram.Commands
Local $CommandCount = $DmisCommands.Count
Local $DmisCommand = $DmisCommands.Item($CommandCount)
Local $aResult[$DmisCommand], $iCount = 0

For $DmisCommand In $DmisCommands
  If $DmisCommand.Type = "191" Then
    $Tracefield = $DmisCommand.GetText(258, 0)
    $aResult[$iCount] = $Tracefield
    $iCount += 1
  EndIf
Next
Redim $aResult[$iCount]
_ArrayDisplay ($aResult)

 

Edited February 13, 2020 by Nine

[Kruxe]

@Nine Good Morning,

 

I Tried to run the code you provided but i received this message...

==>Array variable has incorrect number of subscripts or subscript dimension range exceeded.:

$aResult[$iCount] = $Tracefield
^ ERROR

 

any idea why that is?

[Kruxe]

@Nine I figured it out, just had to change $aResult[DmisCommand] to $aResult[9] and it popped right up! Thank you so much for the help!