[R] Checkbox dynamique avec un fichier ini

[luxus]

Bonjour à tous

Je voudrais générer des checkbox dynamique basé sur un fichier ini.

Je m'explique :
Ce script servira à installer des packages sur des postes clients de plusieurs sites. J'ai regardé un peu partout sur le net et j'ai trouvé ceci :

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>
#include <file.au3>

$Dir = @ScriptDir & '\Packs\'
$Packs = _FileListToArray($Dir)
Dim $Checks[$Packs[0] + 1]

$Height = ($Packs[0] * 20) + 50

If $Height > @DesktopHeight Then
    MsgBox(0x0,"Erreur", "Il y a plus de fichiers que ne peut en contenir la fenêtre    ", 3)
    $Height = @DesktopHeight - 50
EndIf

GUICreate("Nombre de packs trouvés: " & $Packs[0], 300, $Height)
For $i = 1 To $Packs[0]
    $Height = $i * 20
    $Checks[$i] = GUICtrlCreateCheckbox($Packs[$i], 5, $Height, 150, 15)
Next

$btn = GUICtrlCreateButton("Start", 200, 30, 60, 30)

GUISetState()
While 1
    $Msg = GUIGetMsg()
    Select
        Case $Msg = $GUI_EVENT_CLOSE
        Exit
        Case $Msg = $btn
            for $x = 1 to $Packs[0]
                If _IsChecked($Checks[$x]) Then
;~              do something Run or ??
                MsgBox(0x0,"#=" &$x,"control = " & GUICtrlRead($Checks[$x] & "   ", 1), 2)

            EndIf
        Next
    EndSelect
WEnd

Func _IsChecked($control)
    Return BitAnd(GUICtrlRead($control),$GUI_CHECKED) = $GUI_CHECKED
EndFunc

Mon problème est que ce bout de code liste les fichiers .exe présent dans un répertoire, ce qui ne me convient pas, mais je n'arrive pas à le modifier pour qu'il me récupère les clés de mon fichier ini.

Si je comprends bien, il faut récupérer dans la variable $packs la liste de toutes les clés de mon fichier ini pour qu'il puisse créer les checkbox.
Dans l'aide d'autoIt je trouve bien les commandes pour pouvoir lire les sections ou les valeurs mais pas les clés… Est-ce normal ou c'est moi qui est loupé quelque chose?

Forme de mon fichier .ini

[Nom du site]
Nom du programme = chemin du programme

Ce que je veux récupérer c'est tous les "Nom du programme" que recense mon fichier ini

J'espère avoir été claire dans mon explication^^

Merci pour vos réponses

[Tlem]

Ce type de code à déjà été présenté deux ou trois fois par des membres qui voulaient faire des installations automatisées de divers logiciels.
Une bonne recherche sur le forum s'impose !

[jl56]

Bonjour

j'avais fournit un exemple regarde ici
http://www.autoitscript.fr/forum/viewto ... f=6&t=6347
cela traite de la génération d'un menu mais tu devrais pouvoir l'adapter

A+ JL56

[luxus]

Du coup je me suis replongé dans la recherche sur forum mais je n'avais pas vu le tien.
Je regarde ça ce midi.

Merci pour le lien

[luxus]

Effectivement, avec ça je devrais être capable de l'adapter.
Je mettrais le sujet résolu en fin de weekend au cas ou j’aurais une petite question dessus :p

En tout cas merci bien

[luxus]

J'ai fusionné 2 scripts en 1 pour pouvoir obtenir ce que je veux mais j'ai des erreurs

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>

$var = IniReadSection(@ScriptDir & '\menuauto.ini', "site1")
If @error Then
    MsgBox(4096, "", "Error occurred, probably no INI file.")
Else
    For $i = 1 To $var[0][0]
        MsgBox(4096, "", "Key: " & $var[$i][0] & @CRLF & "Value: " & $var[$i][1])
    Next
EndIf

Dim $Checks[$var[0] + 1]

$Height = ($var[0] * 20) + 50

If $Height > @DesktopHeight Then
    MsgBox(0x0,"Erreur", "Il y a trop pour votre ecran", 3)
    $Height = @DesktopHeight - 50
EndIf

GUICreate("Nombre de progs: " & $var[0], 300, $Height)

For $i = 1 To $var[0]
    $Height = $i * 20
    $Checks[$i] = GUICtrlCreateCheckbox($var[$i], 5, $Height, 150, 15)
Next

$btn = GUICtrlCreateButton("Start", 200, 30, 60, 30)

GUISetState()
While 1
    $Msg = GUIGetMsg()
    Select
        Case $Msg = $GUI_EVENT_CLOSE
        Exit
        Case $Msg = $btn
    EndSelect
WEnd

Func _IsChecked($control)
    Return BitAnd(GUICtrlRead($control),$GUI_CHECKED) = $GUI_CHECKED
EndFunc

Mon erreur se situe à ligne 14 :

► Afficher le texte

C:\Script\Projet\Copie de Test3.au3 (14) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
$Height = ($var[0] * 20) + 50
$Height = (^ ERROR

C'est la première fois que je me frotte aux arrays et j'avoue que je galère bien... Si une âme charitable veux bien me donner quelques explications, je suis preneur

[Tlem]

IniReadSection vous renvoi un tableau 2D, mais vous utilisez un tableau 1D, donc AutoIt ne comprend pas !

Pourtant dans la première boucle vous partez bien, puisque vous faites :

Code : Tout sélectionner

For $i = 1 To $var[0][0]

mais on ne sais pas pourquoi, d'un coup d'un seul, vous passez d'un tableau 2D à un tableau 1D.

[luxus]

Autant pour moi^^ Merci pour votre remarque, j'ai un peu bêtement recopié le script sans m'en inquiété :/
Je ne risque pas de refaire la même bourde de si tôt

[luxus]

Au cas où qq chercherait ce code :

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>

$var = IniReadSection(@ScriptDir & '\menuauto.ini', "site1")
If @error Then
    MsgBox(4096, "", "Error occurred, probably no INI file.")
Else
    For $i = 1 To $var[0][0]
;~         MsgBox(4096, "", "Key: " & $var[$i][0] & @CRLF & "Value: " & $var[$i][1])
    Next
EndIf

;~ MsgBox(0, "", "Key: " & $var[0][0])

Dim $Checks[$var[0][0] + 1]

$Height = ($var[0][0] * 20) + 50

If $Height > @DesktopHeight Then
    MsgBox(0x0,"Erreur", "Il y a trop pour votre ecran", 3)
    $Height = @DesktopHeight - 50
EndIf

GUICreate("Nombre de progs: " & $var[0][0], 300, $Height)

For $i = 1 To $var[0][0]
    $Height = $i * 20
    $Checks[$i] = GUICtrlCreateCheckbox($var[$i][0], 5, $Height, 150, 15)
Next

$btn = GUICtrlCreateButton("Start", 200, 30, 60, 30)

GUISetState()
While 1
    $Msg = GUIGetMsg()
    Select
        Case $Msg = $GUI_EVENT_CLOSE
        Exit
        Case $Msg = $btn
    EndSelect
WEnd

Func _IsChecked($control)
    Return BitAnd(GUICtrlRead($control),$GUI_CHECKED) = $GUI_CHECKED
EndFunc