Creer une boucle et enregistrer dans un INI

Aide et conseils concernant AutoIt et ses outils.
Règles du forum
.
Verrouillé
YuChan
Niveau 4
Niveau 4
Messages : 56
Enregistré le : jeu. 12 nov. 2020 14:09
Status : Hors ligne

Creer une boucle et enregistrer dans un INI

#1

Message par YuChan »

Bonjour a tous,

J'essaye de faire une boucle qui demande un choix dans une liste box.

Code : Tout sélectionner

$Combo1 = GUICtrlCreateCombo("", 72, 56, 169, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Choix1|Choix2|Choix3|END")
$Label1 = GUICtrlCreateLabel("Selectionnez un choix", 48, 16, 226, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ButtonValiderCreateTrajet = GUICtrlCreateButton("&OK", 73, 107, 75, 25)
$ButtonCancelCreateTrajet = GUICtrlCreateButton("&Cancel", 170, 107, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Le but est de enregistrer a chaque fois le choix dans une fichier INI jusq'a ce que le choix END est selectionné

Pouvez m'aider a faire cette boucle while ou for ?

Merci
Avatar du membre
jl56
Niveau 7
Niveau 7
Messages : 384
Enregistré le : mer. 24 oct. 2007 22:42
Localisation : 56000
Status : Hors ligne

Re: Creer une boucle et enregistrer dans un INI

#2

Message par jl56 »

Bonjour,

Voici un exemple
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Form1", 615, 437, 192, 124)






$Combo1 = GUICtrlCreateCombo("", 72, 56, 169, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Choix1|Choix2|Choix3|END")
$Label1 = GUICtrlCreateLabel("Selectionnez un choix", 48, 16, 226, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ButtonValiderCreateTrajet = GUICtrlCreateButton("&OK", 73, 107, 75, 25)
$ButtonCancelCreateTrajet = GUICtrlCreateButton("&Cancel", 170, 107, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Local $nbr_choix = 1

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
      Case $ButtonCancelCreateTrajet
         Exit
      Case $ButtonValiderCreateTrajet
         $choix = GUICtrlRead($Combo1)
         If $choix = "END" Then
            Exit
         Else
            IniWrite(@ScriptDir & "\choix.ini", "liste choix", "choix n° " & $nbr_choix, $choix)
            $nbr_choix = $nbr_choix + 1
         EndIf

   EndSwitch
WEnd
cordialement,

JL56
YuChan
Niveau 4
Niveau 4
Messages : 56
Enregistré le : jeu. 12 nov. 2020 14:09
Status : Hors ligne

Re: Creer une boucle et enregistrer dans un INI

#3

Message par YuChan »

Merci,

Pour la suite j'ai sa dans mon ini :

Code : Tout sélectionner

[CHOIX]
CHOIX1=TEST
CHOIX2=TEST2
[ACTION]
ACTION1=TEST1
ACTION2=TEST2
Avec cet e exemple comment créer la boucle avec la section [CHOIX] et incrementer la clés.
Si par exermple je choisis END comment ecrire la section 2 ([ACTION]) et reincrementer la cles
Avatar du membre
jchd
AutoIt MVPs (MVP)
AutoIt MVPs (MVP)
Messages : 2200
Enregistré le : lun. 30 mars 2009 22:57
Localisation : Sud-Ouest de la France (43.622788,-1.260864)
Status : Hors ligne

Re: Creer une boucle et enregistrer dans un INI

#4

Message par jchd »

Merci de cesser de nous prendre pour des jambons !
Vous vous faites verrouiller vos posts sur le forum US pour non respect des règles et vous revenez ici la bouche en coeur poser les mêmes questions ???
La cryptographie d'aujourd'hui c'est le taquin plus l'électricité.
Avatar du membre
mikell
Modérateur
Modérateur
Messages : 6090
Enregistré le : dim. 29 mai 2011 17:32
Localisation : Deep Cévennes
Status : Hors ligne

Re: Creer une boucle et enregistrer dans un INI

#5

Message par mikell »

jchd a écrit : lun. 18 janv. 2021 07:46Vous vous faites verrouiller vos posts sur le forum US pour non respect des règles
Merci pour le signalement
OK, je verrouille le sujet par conformité avec la décision du forum US sur le sujet équivalent , même si ça me parait un tantinet capillotracté
J'avais déjà demandé à Melba son avis là-dessus la semaine dernière et il m'avait répondu :
"until he actually posts something incriminating he is, in my eyes, free to continue. Banning people solely because we think they are guilty is the first step on a very long road to perdition"
" L'échec est le fondement de la réussite. " (Lao-Tseu )
" Plus ça rate, plus on a de chances que ça marche " (les Shadoks )
Verrouillé