[R] Fonction "Filter" librairie OTAcom (QC)

[Oversid3]

Bonjour,

Mon soucis est assez specifique, mais j'ai trouvé un sujet de 2009 ou quelqu'un avait déjà pu aider, alors je me lance.

Le sujet : http://autoitscript.fr/forum/viewtopic. ... lit=OTA+QC

Mon soucis vient d'une fonction "Filter", pour laquelle je trouve des millions d'exemple en VBA mais impossible d'implementer la solution sous AutoIT.

Voici à quoi ressemble le code VB :

Code : Tout sélectionner

  Set aFilter = TDConnection.TSTestFactory.Filter
  aFilter.Filter("TC_TEST_ID") = 1
  Set testInstances = aFilter.Newlist
  For i = 1 To testInstances.Count
      MsgBox testInstances.Item(i).ID
  Next

Et voici mon implementation (qui ne fonctionne pas pour l'instant) :

Code : Tout sélectionner

Global $aFilter=$Tdc.TSTestFactory.Filter
;$FilterID=ID d'un test selectionné precedement dans le script
Global $aFilter.Filter("TC_TEST_ID")=$FilterID
Global $testInstances=$aFilter.Newlist
For $i=1 to $testInstances.Count
    Msgbox (1,"Test",$testInstances.Item[$i].ID)
Next

Je ne sais pas comment l'ajouter mais j'ai a disposition le .chm de l'OTAcom

D'avance merci.

[Oversid3]

Le plus proche que j'obtiens c'est :

Code : Tout sélectionner

Global $findinstance=$tdc.TSTestFactory 
    Global $Fol=$findinstance.Filter
    $Fol.Filter("TC_TEST_ID") = $FilterID
;~  ConsoleWrite(VarGetType($Fol) & @CRLF)

    Global $Lis=$findinstance.Newlist("")
    Global $con=$Lis.item(1)
    Global $co=$con.name
    Msgbox(1,"Test",$co)
 

Mais le "Filtre" sur $FilterID ne fonctionne pas. Le script me renvoi l'objet (1) de la Newlist, qui contient elle-meme tous les script.
Normalement il devrait filtrer cette Newlist sur le testID.

[TommyDDR]

Essaye ça :

Code : Tout sélectionner

Global $findinstance=$tdc.TSTestFactory.Filter
    $findinstance.Filter("TC_TEST_ID") = $FilterID

    Global $Lis=$findinstance.Newlist("")
    Global $con=$Lis.item(1)
    Global $co=$con.name
    Msgbox(1,"Test",$co)

[Oversid3]

Merci

Ca fonctionne !!