Pourquoi réussir à faire simple quand on peut faire compliqué

Aide et conseils concernant AutoIt et ses outils.
Règles du forum
.
Répondre
Ciol13
Niveau 3
Niveau 3
Messages : 31
Enregistré le : mer. 01 juin 2016 20:10
Status : Hors ligne

Pourquoi réussir à faire simple quand on peut faire compliqué

#1

Message par Ciol13 »

Bonsoir

Et une petite seconde question pour la soirée :

j'ai essayé, j'ai cherché, j'ai fouillé, mais impossible d'arriver à simplifier ça, alors que je suis à peu près sur qu'il doit y avoir une combine, j'en appelle donc à vos esprits affutés pour m'apporter un peu d'aide, encore une fois :

Code : Tout sélectionner

					Case $Param1="CM"
						GUI_CM($Array[4][1])

					Case $Param1=$Array100[2][1]
						$Array = IniReadSection(@ScriptDir & "\PCG.ini", "GMR_CENTRE_" & $Array100[2][1])
						GUI_CM($Array[4][1])
					Case $Param1=$Array100[3][1]
						$Array = IniReadSection(@ScriptDir & "\PCG.ini", "GMR_CENTRE_" & $Array100[3][1])
						GUI_CM($Array[4][1])
					Case $Param1=$Array100[4][1]
						$Array = IniReadSection(@ScriptDir & "\PCG.ini", "GMR_CENTRE_" & $Array100[4][1])
						GUI_CM($Array[4][1])
					Case $Param1=$Array100[5][1]
						$Array = IniReadSection(@ScriptDir & "\PCG.ini", "GMR_CENTRE_" & $Array100[5][1])
						GUI_CM($Array[4][1])
					Case $Param1=$Array100[6][1]
						$Array = IniReadSection(@ScriptDir & "\PCG.ini", "GMR_CENTRE_" & $Array100[6][1])
						GUI_CM($Array[4][1])
					Case $Param1=$Array100[7][1]
						$Array = IniReadSection(@ScriptDir & "\PCG.ini", "GMR_CENTRE_" & $Array100[7][1])
						GUI_CM($Array[4][1])
					Case $Param1=$Array100[8][1]
						$Array = IniReadSection(@ScriptDir & "\PCG.ini", "GMR_CENTRE_" & $Array100[8][1])
						GUI_CM($Array[4][1])

					Case $Param1=$Array102[2][1]
						$Array = IniReadSection(@ScriptDir & "\PCG.ini", "GP_GMR_" & $Array102[2][1])
						Options($CentreMaint, $GroupMaint, $Array[4][1])
					Case $Param1=$Array102[3][1]
						$Array = IniReadSection(@ScriptDir & "\PCG.ini", "GP_GMR_" & $Array102[3][1])
						Options($CentreMaint, $GroupMaint, $Array[4][1])
					Case $Param1=$Array102[4][1]
						$Array = IniReadSection(@ScriptDir & "\PCG.ini", "GP_GMR_" & $Array102[4][1])
						Options($CentreMaint, $GroupMaint, $Array[4][1])
					Case $Param1=$Array102[5][1]
						$Array = IniReadSection(@ScriptDir & "\PCG.ini", "GP_GMR_" & $Array102[5][1])
						Options($CentreMaint, $GroupMaint, $Array[4][1])
					Case $Param1=$Array102[6][1]
						$Array = IniReadSection(@ScriptDir & "\PCG.ini", "GP_GMR_" & $Array102[6][1])
						Options($CentreMaint, $GroupMaint, $Array[4][1])
					Case $Param1=$Array102[7][1]
						$Array = IniReadSection(@ScriptDir & "\PCG.ini", "GP_GMR_" & $Array102[7][1])
						Options($CentreMaint, $GroupMaint, $Array[4][1])
					Case $Param1=$Array102[8][1]
						$Array = IniReadSection(@ScriptDir & "\PCG.ini", "GP_GMR_" & $Array102[8][1])
						Options($CentreMaint, $GroupMaint, $Array[4][1])

					Case $Param1=$Array103[2][1]
						$Array = IniReadSection(@ScriptDir & "\PCG.ini", "GP_GMR_" & $Array103[2][1])
						Options($CentreMaint, $GroupMaint, $Array[4][1])
					Case $Param1=$Array103[3][1]
						$Array = IniReadSection(@ScriptDir & "\PCG.ini", "GP_GMR_" & $Array103[3][1])
						Options($CentreMaint, $GroupMaint, $Array[4][1])
					Case $Param1=$Array103[4][1]
						$Array = IniReadSection(@ScriptDir & "\PCG.ini", "GP_GMR_" & $Array103[4][1])
						Options($CentreMaint, $GroupMaint, $Array[4][1])
					Case $Param1=$Array103[5][1]
						$Array = IniReadSection(@ScriptDir & "\PCG.ini", "GP_GMR_" & $Array103[5][1])
						Options($CentreMaint, $GroupMaint, $Array[4][1])
					Case $Param1=$Array103[6][1]
						$Array = IniReadSection(@ScriptDir & "\PCG.ini", "GP_GMR_" & $Array103[6][1])
						Options($CentreMaint, $GroupMaint, $Array[4][1])
					Case $Param1=$Array103[7][1]
						$Array = IniReadSection(@ScriptDir & "\PCG.ini", "GP_GMR_" & $Array103[7][1])
						Options($CentreMaint, $GroupMaint, $Array[4][1])
					Case $Param1=$Array103[8][1]
						$Array = IniReadSection(@ScriptDir & "\PCG.ini", "GP_GMR_" & $Array103[8][1])
						Options($CentreMaint, $GroupMaint, $Array[4][1])

					
... etc, etc etc

Merci beaucoup, et bonne soirée
Avatar du membre
mikell
Spammer !
Spammer !
Messages : 6292
Enregistré le : dim. 29 mai 2011 17:32
Localisation : Deep Cévennes
Status : Hors ligne

Re: Pourquoi réussir à faire simple quand on peut faire compliqué

#2

Message par mikell »

Hum. L'idée d'une base de données SQLite semble de plus en plus s'imposer comme une lumineuse évidence :mrgreen:
" L'échec est le fondement de la réussite. " (Lao-Tseu )
" Plus ça rate, plus on a de chances que ça marche " (les Shadoks )
Ciol13
Niveau 3
Niveau 3
Messages : 31
Enregistré le : mer. 01 juin 2016 20:10
Status : Hors ligne

Re: Pourquoi réussir à faire simple quand on peut faire compliqué

#3

Message par Ciol13 »

Bon, il va vraiment falloir que j'étudie ce truc là rapidement alors, j'avais commencé à lire, mais il semble qu'il va falloir que je continue!! :?
Avatar du membre
A2Energie
Niveau 5
Niveau 5
Messages : 140
Enregistré le : ven. 15 nov. 2013 20:22
Status : Hors ligne

Re: Pourquoi réussir à faire simple quand on peut faire compliqué

#4

Message par A2Energie »

Salut a toi,

Pour ma part, je fais de cette manière habituellement :
Je crée un tableau de mes paramètres (facile à modifier par la suite)
Puis je fais référence à ce tableau :
(attention a vérifier le script car j'ai pas pu le tester.
$Array_Ubound = 3
Dim $Mes_Array[$Array_Ubound+1][5] = [[$Array_Ubound, "Nom", "Lien", "Paramètre", "Fonction"] _
, ["", "Array100", @ScriptDir & "\PCG.ini", "GMR_CENTRE_", "GUI_CM"] _
, ["", "Array102", @ScriptDir & "\PCG.ini", "GP_GMR_", "Options"] _
, ["", "Array103", @ScriptDir & "\PCG.ini", "GP_GMR_", "Options"] _
]
If $Param1 = "CM" Then
   GUI_CM($Array[4][1])
Else
   For $i = 1 To $Mes_Array[0][0]
     $Mon_ArrayTemp1 = Eval($Mes_Array[$i][1])
     For $ii = 2 To 8
       If $Param1 = $Mon_ArrayTemp1[$ii][1] Then
         $Array = IniReadSection($Mes_Array[$i][2], $Mes_Array[$i][3] & $Mon_ArrayTemp1[$ii][1])
         If $Mes_Array[$i][4] = "GUI_CM" Then
            GUI_CM($Array[4][1])
         ElseIf $Mes_Array[$i][4] = "Options" Then
            Options($CentreMaint, $GroupMaint, $Array[4][1])
         EndIf
         ExitLoop 2
       EndIf
     Next
   Next
EndIf
Répondre