[R] Menu déroulant avec sélection depuis un fichier INI

[balouboy84]

Bonjour,

Je viens de débuter avec Autoit (deux jours) et mon premier projet consiste à créer un utilitaire qui irai télécharger via FTP des données sur des bornes à Gazole Distante.

Ayant plusieurs connexions à gérer j'ai donc opté pour la création d'un fichier INI tout simple afin de regrouper mes bornes.
Ce fichier INI est capable d'être nourri par une interface GUI "Ajout Borne" dans laquelle on renseigne le nom du site et son ip/URL puis cela va l'enregistrer dans mon ini comme suit:

[toto]
URL/IP=1.1.1.1
[tata]
URL/IP=2.2.2.2
[titi]
URL/IP=machintruc.no-ip.com

Maintenant je suis sur l'interface de Suppression de borne (accessible via le menu suppression dans la gui nommée toto pour l'occasion).

Dans cette interface j'ai mis un menu sur trois colonnes :
borne, IP/URL et Suppr.

Je désire lister dans ce menu les connexions du fichier INI et mettre en face un bouton radio pour sélectionner les connexions et quand j'appuie sur le bouton Suppression cela efface de mon INI les connexions sélectionnées.

jusqu'ici je suis arrivé à trouver mes réponses sur le forum + le net mais là je ne sais même pas comment orienter mes recherches infructueuses jusqu'ici.

met mon code afin que vous puissiez vous faire une idée globale de mon problème.

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <GuiListView.au3>
#include <WindowsConstants.au3>


;GUI Principale
$Main = GUICreate("toto", 617, 423, 314, 311)
$Menu = GUICtrlCreateMenu("&Menu")
$AdBorne = GUICtrlCreateMenuItem("Ajout Borne", $Menu)
$Delete = GUICtrlCreateMenuItem("Suppression Borne", $Menu)
$Quitter = GUICtrlCreateMenuItem("Quitter", $Menu)
GUISetBkColor(0xC0C0C0)
$connexion = GUICtrlCreateButton("Lancer connexions", 171, 173, 273, 73) 
$Copyright = GUICtrlCreateLabel("Appli  Copyright", 16, 384, 137, 17)


;GUI Ajout de borne
$Ajout  = GUICreate("Ajout Borne", 517, 242, 316, 142)
$Etiquette1 = GUICtrlCreateLabel("IP ou URL borne", 344, 32, 84, 17)
$URL = GUICtrlCreateInput("", 288, 56, 209, 21)
$Annuler1 = GUICtrlCreateButton("Annuler", 325, 144, 129, 25)
$Enregistrer1 = GUICtrlCreateButton("Enregistrer", 80, 144, 129, 25)
$Site = GUICtrlCreateInput("", 24, 55, 209, 21)
$Etiquette2 = GUICtrlCreateLabel("Site", 110, 32, 22, 17)


;GUI Suppression de borne
$Suppression_Borne = GUICreate("Suppression Borne", 552, 268, 201, 167, -1, BitOR($WS_EX_LEFTSCROLLBAR,$WS_EX_WINDOWEDGE))
$List_borne = GUICtrlCreateListView("Borne | IP/URL |Suppr", 73, 10, 408, 150, -1, 0)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 180)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 180)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 47)
$Delete_Borne = GUICtrlCreateButton("Suppression", 48, 189, 177, 33)
$Annuler2 = GUICtrlCreateButton("Annuler", 327, 189, 177, 33)

$ini = @ScriptDir& "\liste connexions.ini" 

GUISetState(@SW_SHOW, $Main)




While 1

 $nMsg = GUIGetMsg()
 Switch $nMsg

    Case $GUI_EVENT_CLOSE 
        Exit
    Case $connexion
    Case $Delete
        GUISetState(@SW_HIDE, $Main)
        GUISetState(@SW_SHOW, $Suppression_Borne)
        ; C'est Là que je sèche je ne sais pas comment traiter le remplissage de mon "menu" et je ne sais même pas si c'est bien là qu'il faut le mettre 
    Case $AdBorne
        GUISetState(@SW_HIDE, $Main)
        GUISetState(@SW_SHOW, $Ajout)

    Case $Annuler1
        GUISetState(@SW_HIDE, $Ajout)
        GUISetState(@SW_SHOW, $Main)
    Case $Annuler2
        GUISetState(@SW_HIDE, $Suppression_Borne)
        GUISetState(@SW_SHOW, $Main)
    Case $Enregistrer1
        $adsite = GUICtrlRead($Site)
        $adURL = GUICtrlRead($URL)
        If ($adsite = "") Or ($adURL = "")  Then
            MsgBox(16,"Erreur - toto GO","L'un des champs est vide Merci de recommencer !!!!")
        Else
            IniWrite ( $ini, $adsite, "URL/IP", $adURL)
            $msgbox = MsgBox (4, "Ajout Borne", "Voulez-vous ajouter d'autres bornes ?")
                    If $msgBox = 6 Then
                        GUICtrlSetData($URL, "")
                        GUICtrlSetData($Site, "")
                    Else
                        GUICtrlSetData($URL, "")
                        GUICtrlSetData($Site, "")
                        GUISetState(@SW_HIDE, $Ajout)
                        GUISetState(@SW_SHOW, $Main)
                    EndIf
        EndIf
    Case $Quitter
        Exit
 EndSwitch
WEnd
 

Par avance merci de vos lumières.

[mikell]

Bienvenue sur le forum

Une piste :

Code : Tout sélectionner

$List_borne = GUICtrlCreateListView("Borne | IP/URL", 73, 10, 408, 150, -1, [b]$LVS_EX_CHECKBOXES[/b] )

(la 3ème colonne ne sert à rien)

Code : Tout sélectionner

$bornes = IniReadSectionNames($ini)
For $i = 1 to $bornes[0]
      $url = IniRead($ini, $bornes[$i], "URL/IP", "vide")
      GUICtrlCreateListViewItem($bornes[$i] & "|" & $url, $List_borne)
Next

Pour la suite, il y a plein d'exemples sur le forum sur l'interaction listview/fichier ini, et sur l'action d'un bouton "suppr" sur une listview à checkboxes
Et le fichier d'aide d'AutoIt est ton meilleur ami

[balouboy84]

Bonsoir Mikel,

Merci beaucoup pour le coup de pouce je vais pouvoir continuer car là je séchais, je mets le post en résolu donc.