[R] Problème avec Treeview

[kaki]

Bonjour, je vient poster sur le forum devant ma problématique.
Cela doit faire une bonne semaine que je cherche mais je trouve pas comment appliquer ce que je veut faire.

ma problématique est la suivante:

je cherche a faire une boucle qui:
A) retrouve dans une treeview le premier élément cocher.
B) lance l'application associer
C) attend la fin de l'exécution de l'application
D) décoche cette élément
E) repart cherche l'élément suivant


Le point C) et E) ne me pose pas de problème à mettre en place dans la boucle.
Mettre en place la condition de sortie de boucle non plus si je trouve la solution pour le point A).

Le programme a pour but de crée des auto installation est lancer les installations cocher.
Donc la treeview n'aura j'aimais le même nombre d'élément ni le même noms pour les éléments.
Les donnée sont stoker dans un fichier .ini lors de la création de l'élément, ce qui permet au programme de charger les élément dan la treeview au démarrage.


oui ils manque un bout de mon code.

Code : Tout sélectionner

Func install()
    Global $var1 = GUICtrlRead ($TreeView,$GUI_CHECKED)

    MsgBox (0,"",_GUICtrlTreeView_GetSelection($TreeView))
;~  Global $no0 = 1
;~  While 1
;~      Sleep(100)
;~      For $j = 1 To $var1[0]
;~          _GUICtrlTreeView_Add($TreeView, 0, $var1[$j])
;~      Next
;~      If $no0 < 500 Then
;~          ExitLoop
;~      EndIf
;~      Global $no0 = $no0 + 1
;~  WEnd

EndFunc   ;==>install

 

j'ai écraser a plusieurs reprise mon code qui est devenue un peu fouillis.
Le problème avec la récupération de donnée était que je récupérais tout le temps le dernier élément cliquer. (bien qu'il ne sois pas cocher)

Je peut m'être le code entier si besoin.

[Tlem]

Si cela fait une semaine, vous devez sans doute avoir essayé plusieurs codes ou lignes de code. Il serait bien de nous présenter votre travail ...

[kaki]

Je peut m'être le code entier si besoin.

[mikell]

Pas besoin
Les _GUICtrlTreeView_Add retournent les handles des items créés, il te faut stocker ces handles quelque part (dans une array par exemple)
Ensuite tu fais une boucle et tu mets dedans

Code : Tout sélectionner

If _GUICtrlTreeView_GetChecked($treeview, $item) = true Then     ; si l'item est coché
    RunWait(....)        ; lance une application et attend qu'elle ait fini
    _GUICtrlTreeView_SetChecked($treeview, $item, false)     ; décoche l'item
EndIf   

[kaki]

Merci pour ce bout de code qui est exactement ce que je demander.

Si vous me permettais d'abuser de votre gentillesse.

Je ne vois pas comment exploiter ce code avec ma boucle (qui récupéré les items précédemment crée dans un ini).

► Afficher le textele code en entier

Code : Tout sélectionner

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#AutoIt3Wrapper_Add_Constants=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------

    AutoIt Version : 3.3.6.0
    Auteur:         MonNom

    Fonction du Script :
    Modèle de Script AutoIt.

#ce ----------------------------------------------------------------------------

; Début du script - Ajouter votre code ci-dessous.
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <TreeViewConstants.au3>
#include <GuiTreeView.au3>
Opt("GUIOnEventMode", 1)
Global $Input10
Global $Form3
Global $ini = @ScriptDir &"\Config\"& "\Liste.ini"
Global $lvl = 0
Global $adresse = @ScriptDir


#region ### START Koda GUI section ### Form=C:\Users\KAKI\Desktop\installeur\interface.kxf
Global $Form2 = GUICreate("Interface 1", 377, 406, 336, 140)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form2Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form2Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form2Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "Form2Restore")
Global $Label1 = GUICtrlCreateLabel("SYSTEM", 130, 8, 110, 33)
GUICtrlSetFont($Label1, 20, 400, 0, "Modern No. 20")
GUICtrlSetColor($Label1, 0x000080)
Global $TreeView = GUICtrlCreateTreeView(16, 48, 345, 257, $TVS_CHECKBOXES)
affichage()

Global $Button1 = GUICtrlCreateButton("Ajouter", 16, 312, 89, 33, $WS_GROUP)
GUICtrlSetOnEvent($Button1, "Button1Click")
Global $Button2 = GUICtrlCreateButton("INSTALL", 112, 312, 153, 65, $WS_GROUP)
GUICtrlSetOnEvent($Button2, "Button2Click")
Global $Button3 = GUICtrlCreateButton("Supprimer", 272, 312, 89, 33, $WS_GROUP)
GUICtrlSetOnEvent($Button3, "Button3Click")
Global $Label2 = GUICtrlCreateLabel("By kaki", 317, 384, 44, 17)
GUICtrlSetFont($Label2, 10, 400, 0, "Miriam")

GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

While 1
    Sleep(100)

WEnd

#region from

Func Form2Close()
    Exit
EndFunc   ;==>Form2Close
Func Form2Maximize()

EndFunc   ;==>Form2Maximize
Func Form2Minimize()

EndFunc   ;==>Form2Minimize
Func Form2Restore()

EndFunc   ;==>Form2Restore
Func Form3Close()   ;ok
    GUIDelete($Form3)
EndFunc   ;==>Form3Close

Func Form3Restore()

EndFunc   ;==>Form3Restore
#endregion from

#region boutton
Func Button10Click()    ;ok
    Global $Input10 = GUICtrlRead ($Input11)
    IniWrite(@ScriptDir &"\Config\"& "Liste.ini", $Input10, "Localisation", @ScriptDir&"\Config\"&$Input10&".exe")
    Form3Close()
    Run (@ScriptDir&"\Config\"&"\Au3Record\Au3Record.exe")
    WinWaitActive ("AU3Record 3.3 - ( Made for AutoIt v3 )","",30)
    If @error Then
        MsgBox (0,"ERROR","Manque executable")
    Else
        WinWaitActive ("Save AutoIt Script")

        Send ($adresse&"\Config\"&$Input10)
        Send ("{enter}")
        Sleep (300)
        Send ("{enter}")
        WinClose ("AU3Record 3.3 - ( Made for AutoIt v3 )")
        WinWaitNotActive ("AU3Record 3.3 - ( Made for AutoIt v3 )")
        convertion()
    EndIf
EndFunc
Func Button1Click()
    ajouter()

EndFunc   ;==>Button1Click
Func Button2Click()

    install()

EndFunc   ;==>Button2Click
Func Button3Click()
    Supprimer()
EndFunc   ;==>Button3Click
#endregion boutton




Func Supprimer() ;ok
    $r = GUICtrlRead($TreeView, 1)
    MsgBox(0, "", $r)
    _GUICtrlTreeView_Delete($TreeView, $r)
    IniDelete(@ScriptDir & "\Config\Liste.ini", $r)

EndFunc   ;==>Supprimer

Func ajouter()  ;ok
    ;graphique
    Global $Form3 = GUICreate("Ajouter", 171, 64, 448, 292)
    GUISetOnEvent($GUI_EVENT_CLOSE, "Form3Close")
    GUISetOnEvent($GUI_EVENT_RESTORE, "Form3Restore")
    Global $Input11 = GUICtrlCreateInput("Nouveau programe", 8, 8, 157, 21)
    Global $Button10 = GUICtrlCreateButton("Ajouter", 8, 32, 157, 25, $WS_GROUP)
    GUICtrlSetOnEvent($Button10, "Button10Click")
    GUISetState(@SW_SHOW)


EndFunc   ;==>ajouter

Func localisationinstall()

    Global $vardir = FileOpenDialog("Selectionner install", "", "(*.*)", 1 + 4 )
    IniWrite(@ScriptDir & "\Config\Liste.ini", $Input10, "Localisation",$vardir)

EndFunc   ;==>localisationinstall

Func convertion()   ;ok

    $file = FileOpen(@ScriptDir&"\Config\"&$Input10&".au3", 0)
    ; Lecture du contenu dans la variable $txt
    $txt = FileRead($file)
    ; Fermeture du fichier.
    FileClose($file)
    ; Remplacement de la chaine de caractère.
    $txt2 = StringReplace($txt,"_","")
    ; Ouverture du fichier en ecriture.
    $file = FileOpen(@ScriptDir&"\Config\"&$Input10&"1.au3", 2)
    ; Ecriture du contenu de la variable $txt dans le fichier.
    FileWrite (@ScriptDir&"\Config\"&$Input10&"1.au3", $txt2 )
    ; Fermeture du fichier.
    FileClose($file)

    Sleep (2000)

    Run (@ScriptDir&"\Config\Aut2Exe\Aut2exe.exe")
    WinWaitActive ("Aut2Exe v3 - AutoIt Script to EXE Converter")

    Send ("{tab}")
    Sleep (100)
    Send (@ScriptDir&"\Config\"&$Input10&"1.au3")
    Sleep (100)
    Send ("{tab}")
    Sleep (100)
    Send ("{tab}")
    Sleep(100)
    Send (@ScriptDir&"\Config\"&$Input10&".exe")
    Sleep(100)
    Send ("!c")
    WinWaitActive ("Aut2Exe","Conversion complete.")
    Send ("{enter}")
    WinWaitClose ("Aut2Exe","Conversion complete.")
    WinClose("Aut2Exe v3 - AutoIt Script to EXE Converter")
    Sleep (500)
    WinWaitNotActive("Aut2Exe v3 - AutoIt Script to EXE Converter")
    FileDelete (@ScriptDir&"\Config\"&"*.au3")
    affichage()




EndFunc

Func install()

    While 1
        Sleep(100)


        If _GUICtrlTreeView_GetChecked($treeview, $item) = true Then     ; si l'item est coché
            MsgBox (0,"",$item)
;~          RunWait(....)        ; lance une application et attend qu'elle ait fini
            _GUICtrlTreeView_SetChecked($treeview, $item, false)     ; décoche l'item
        EndIf

        If $item > 100 Then
            ExitLoop
        EndIf
        Global $no0 = $no0 + 1
    WEnd

EndFunc   ;==>install

Func affichage() ;ok


    _GUICtrlTreeView_DeleteAll($TreeView)
    Global $no = 1
    Global $var = IniReadSectionNames(@ScriptDir & "\Config\Liste.ini")
    While 1
        Sleep(100)
        For $i = 1 To $var[0]
            Global $item =_GUICtrlTreeView_Add($TreeView, 0, $var[$i])
        Next
        If $no > 100 Then
            ExitLoop
        EndIf
        Global $no = $no + 1
    WEnd


EndFunc   ;==>affichage
 

► Afficher le texteles deux fonctions problématique

Code : Tout sélectionner

Func install()

    While 1
        Sleep(100)


        If _GUICtrlTreeView_GetChecked($treeview, $item) = true Then     ; si l'item est coché
            MsgBox (0,"",$item)
;~          RunWait(....)        ; lance une application et attend qu'elle ait fini
            _GUICtrlTreeView_SetChecked($treeview, $item, false)     ; décoche l'item
        EndIf

        If $item > 100 Then
            ExitLoop
        EndIf
        Global $no0 = $no0 + 1
    WEnd

EndFunc   ;==>install

Func affichage() ;ok


    _GUICtrlTreeView_DeleteAll($TreeView)
    Global $no = 1
    Global $var = IniReadSectionNames(@ScriptDir & "\Config\Liste.ini")
    While 1
        Sleep(100)
        For $i = 1 To $var[0]
            Global $item =_GUICtrlTreeView_Add($TreeView, 0, $var[$i])
        Next
        If $no < 100 Then
            ExitLoop
        EndIf
        Global $no = $no + 1
    WEnd


EndFunc   ;==>affichage
 

[mikell]

OK, je ne sais pas comment est bâti ton ini, mais d'après ton code, comme tu utilises IniReadSectionNames ça veut dire que les items de la treeview correspondront aux noms des sections du ini
Dans ce cas, pour l'écriture de la treeview :

Code : Tout sélectionner

$var = IniReadSectionNames(@ScriptDir & "\Config\Liste.ini")

Dim $items[$var[0]]  ; création d'une array de taille $var[0] pour contenir les handles des futurs items

For $i = 1 To $var[0]
         ; attention, dans l'array $items l'indexation commence à 0, donc faut faire $i-1
         $items[$i-1] =_GUICtrlTreeView_Add($TreeView, 0, $var[$i])
Next

et pour sa lecture :

Code : Tout sélectionner

For $i = 0 to UBound($items)-1
    If _GUICtrlTreeView_GetChecked($treeview, $items[$i]) = true Then     ; si l'item est coché
         MsgBox (0,"",$items[$i])
;~      RunWait(....)        ; lance une application et attend qu'elle ait fini
        _GUICtrlTreeView_SetChecked($treeview, $items[$i], false)     ; décoche l'item
   EndIf
Next

Et par pitié, pour Aut2exe vire-moi tous ces Send horribles et utilise les options ligne de commande
Regarde dans l'aide à Using Autoit > Compiling scripts => method 3

[kaki]

Merci de ton aide
Je m'occupe des send ce soir.
Puis-je te demander la donc sur les ligne de code que tu ma fourni.
Il faut que je retravaille tout sa.

Merci

[mikell]

Puis-je te demander la donc sur les ligne de code que tu ma fourni.

Hey mon ami, check un peu le fichier d'aide il est amazing !

Code : Tout sélectionner

$oIE=ObjCreate("Shell.Explorer.2")
$gui = GUICreate("", 700, 450, -1, -1, -1, 0x80) 
$gX = GUICtrlCreateObj($oIE, 0, 0, 700, 450)
GUISetState()
$oIE.Navigate("mk:@MSITStore:" & StringRegExpReplace(@Autoitexe, '(.+)\\[^\\]+', "$1") _  
    & "\UDFs3.chm::/html/libfunctions/" & "GuiTreeView Management.htm")
While GuiGetMsg()<>-3
Wend