AutoIt Français

Bonjour,

le sujet n'est peut être pas le plus adéquat... mais là est le problème (je suppose).

J'ai un script qui choisi des fichier au hasard et enregistre le chiffre (random) dans un fichier .ini pour éviter qu'il n'apparaisse 2 fois. Or, la boucle continue même une fois que le fichier est choisi ce qui fait que je me retrouve avec des fichiers qui s'ouvrent toutes les 5 secondes...

► Afficher le texte

Code : Tout sélectionner

Global $str,$str1,$str2,$str3,$str4,$str5,$str6,$str7,$r,$c,$d,$s,$numbers = 6,$numbers1 = 1276,$numbers2 = 498,$numbers3 = 194,$numbers4 = 170,$numbers5 = 115,$numbers6 = 81,$numbers7 = 19,$bla,$bla1,$bla2,$bla3,$bla4,$bla5,$bla6,$bla7,$results
#include <GUIConstantsEx.au3>



If Not FileExists("bc34p.ini") Then
    IniWrite("bc34p.ini", "section2", "key", "")
Else
    $str = IniRead("bc34p.ini", "section2", "key", "default" )
EndIf

If Not FileExists("cc3314.ini") Then
    IniWrite("cc3314.ini", "section2", "key", "")
Else
    $str1 = IniRead("cc3314.ini", "section2", "key", "default" )
EndIf

If Not FileExists("cc3315.ini") Then
    IniWrite("cc3315.ini", "section2", "key", "")
Else
    $str2 = IniRead("cc3315.ini", "section2", "key", "default" )
EndIf

If Not FileExists("cc3316.ini") Then
    IniWrite("cc3316.ini", "section2", "key", "")
Else
    $str3 = IniRead("cc3316.ini", "section2", "key", "default" )
EndIf

If Not FileExists("cc3317.ini") Then
    IniWrite("cc3317.ini", "section2", "key", "")
Else
    $str4 = IniRead("cc3317.ini", "section2", "key", "default" )
EndIf

If Not FileExists("cc3318.ini") Then
    IniWrite("cc3318.ini", "section2", "key", "")
Else
    $str5 = IniRead("cc3318.ini", "section2", "key", "default" )
EndIf

If Not FileExists("cc3319.ini") Then
    IniWrite("cc3319.ini", "section2", "key", "")
Else
    $str6 = IniRead("cc3319.ini", "section2", "key", "default" )
EndIf

$bla = StringSplit($str,";;",1)
$bla1 = StringSplit($str1,";;",1)
$bla2 = StringSplit($str2,";;",1)
$bla3 = StringSplit($str3,";;",1)
$bla4 = StringSplit($str4,";;",1)
$bla5 = StringSplit($str5,";;",1)
$bla6 = StringSplit($str6,";;",1)
$bla7 = StringSplit($str7,";;",1)


$G_1 = GUICreate("random", 350, 130)
$B_1 = GUICtrlCreateButton("EtuLicPro", 10, 50, 100)
$B_2 = GUICtrlCreateButton("Reset", 10, 80, 100)
$B_3 = GUICtrlCreateButton("All Etu", 120, 50, 100)
$B_4 = GUICtrlCreateButton("Reset All Etu", 120, 80, 100)
$L_1 = GUICtrlCreateLabel("Randomizator :", 10, 10)
$L_2 = GUICtrlCreateLabel("NONE", 120, 10)
GUISetState()


While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ProcessClose("WinRAR.exe")
            ExitLoop
        Case $msg = $B_2
            $6 = MsgBox(4,"RESET ?","Are you sure to reset pics file memory ?")
                If $6 = 1276 Then
                    IniWrite("bc34p.ini", "section2", "key", "")
                    $str = IniRead("bc34p.ini", "section2", "key", "default" )
                EndIf
            
;pour $B_1 cela fonctionne sans erreur
        Case $msg = $B_1
            $file = randomnum()
            GUICtrlSetData($L_2,$file)
            ShellExecute("E:\etu\etulicpro.rar")
            Sleep(800)
            Send("pass{ENTER}")
            Sleep(2000)
            For $i = 1 to StringReplace($file,";","")
                Send("{down}")
            Next
            Send("{ENTER}")
            Sleep(1000)
            IniWrite("bc34p.ini", "section2", "key", $str)
            $c = 0
            If $bla[0] = $numbers1 Then
                reset()
            EndIf

;c'est là où ça se complique car le but est de choisir 1 fichier au hasard parmi 6 dossiers (choisis aussi au hasard) et c'est là où ça ne fonctionne pas "of course". c'est comme si la boucle continuait à tourner    
        Case $msg = $B_3
            $results = Random(1,$numbers,1)
            $file = randomnum2()
            GUICtrlSetData($L_2,$results)

            If $results = 1 Then
            ShellExecute("E:\etu\L1.rar")
            Sleep(800)
            Send("pass{ENTER}")
            Sleep(2000)
            Send("{DOWN}{ENTER}")
            Sleep(1500)
            Send("{DOWN}{ENTER}")
            EndIf
            For $i = 1 to StringReplace($file,";","")
                Send("{down}")
            Next
            Send("{ENTER}")
            Sleep(1000)
            IniWrite("cc3314.ini", "section2", "key", $str1)
            $c = 0
            If $bla1[0] = $numbers2 Then
                reset()
            EndIf
            
        
            If $results = 2 Then
            ShellExecute("E:\etu\L2.rar")
            Sleep(800)
            Send("pass{ENTER}")
            Sleep(2000)
            Send("{DOWN}{ENTER}")
            Sleep(1500)
            Send("{DOWN}{ENTER}")
            EndIf
            For $i = 1 to StringReplace($file,";","")
                Send("{down}")
            Next
            Send("{ENTER}")
            Sleep(1000)
            IniWrite("cc3315.ini", "section2", "key", $str2)
            $c = 0
            If $bla2[0] = $numbers3 Then
                reset()
            EndIf
            
        
            If $results = 3 Then
            ShellExecute("E:\etu\L3.rar")
            Sleep(800)
            Send("pass{ENTER}")
            Sleep(2000)
            Send("{DOWN}{ENTER}")
            EndIf
            For $i = 1 to StringReplace($file,";","")
                Send("{down}")
            Next
            Send("{ENTER}")
            Sleep(1000)
            IniWrite("cc3316.ini", "section2", "key", $str3)
            $c = 0
            If $bla3[0] = $numbers4 Then
                reset()
            EndIf
            
        
            If $results = 4 Then
            ShellExecute("E:\etu\M1r.rar")
            Sleep(800)
            Send("pass{ENTER}")
            Sleep(2000)
            EndIf
            For $i = 1 to StringReplace($file,";","")
                Send("{down}")
            Next
            Send("{ENTER}")
            Sleep(1000)
            IniWrite("cc3317.ini", "section2", "key", $str4)
            $c = 0
            If $bla4[0] = $numbers5 Then
                reset()
            EndIf
            
        
            If $results = 5 Then
            ShellExecute("E:\etu\M2r.rar")
            Sleep(800)
            Send("pass{ENTER}")
            Sleep(2000)
            EndIf
            For $i = 1 to StringReplace($file,";","")
                Send("{down}")
            Next
            Send("{ENTER}")
            Sleep(1000)
            IniWrite("cc3318.ini", "section2", "key", $str5)
            $c = 0
            If $bla5[0] = $numbers6 Then
                reset()
            EndIf
            
        
            If $results = 6 Then
            ShellExecute("E:\etu\M1p.rar")
            Sleep(800)
            Send("pass{ENTER}")
            Sleep(2000)
            EndIf
            For $i = 1 to StringReplace($file,";","")
                Send("{down}")
            Next
            Send("{ENTER}")
            Sleep(1000)
            IniWrite("cc3319.ini", "section2", "key", $str6)
            $c = 0
            If $bla6[0] = $numbers7 Then
                reset()
            EndIf
            
    EndSelect
WEnd


Func randomnum()
    While $c <> 1
        $r = String(";"&Random(1,$numbers1,1)&";")
        If Not StringInStr($str,$r,1) Then
            $str = $str&$r
            $bla = StringSplit($str,";;",1)
            $c = 1
            IniWrite("bc34p.ini", "section2", "key", $str)
            Return $r
        EndIf
    WEnd
EndFunc


Func randomnum2()
    
    
    If $results = 1 Then
    While $c <> 1
        $r = String(";"&Random(1,$numbers2,1)&";")
        If Not StringInStr($str1,$r,1) Then
            $str1 = $str1&$r
            $bla1 = StringSplit($str1,";;",1)
            $c = 1
            IniWrite("cc3314.ini", "section2", "key", $str1)
            Return $r
        EndIf
    WEnd
EndIf

If $results = 2 Then
    While $c <> 1
        $r = String(";"&Random(1,$numbers3,1)&";")
        If Not StringInStr($str2,$r,1) Then
            $str2 = $str2&$r
            $bla2 = StringSplit($str2,";;",1)
            $c = 1
            IniWrite("cc3315.ini", "section2", "key", $str2)
            Return $r
        EndIf
    WEnd
EndIf

If $results = 3 Then
    While $c <> 1
        $r = String(";"&Random(1,$numbers4,1)&";")
        If Not StringInStr($str3,$r,1) Then
            $str3 = $str3&$r
            $bla3 = StringSplit($str3,";;",1)
            $c = 1
            IniWrite("cc3316.ini", "section2", "key", $str3)
            Return $r
        EndIf
    WEnd
EndIf

If $results = 4 Then
    While $c <> 1
        $r = String(";"&Random(1,$numbers5,1)&";")
        If Not StringInStr($str4,$r,1) Then
            $str4 = $str4&$r
            $bla4 = StringSplit($str4,";;",1)
            $c = 1
            IniWrite("cc3317.ini", "section2", "key", $str4)
            Return $r
        EndIf
    WEnd
EndIf

If $results = 5 Then
    While $c <> 1
        $r = String(";"&Random(1,$numbers6,1)&";")
        If Not StringInStr($str5,$r,1) Then
            $str5 = $str5&$r
            $bla5 = StringSplit($str5,";;",1)
            $c = 1
            IniWrite("cc3318.ini", "section2", "key", $str5)
            Return $r
        EndIf
    WEnd
EndIf

If $results = 6 Then
    While $c <> 1
        $r = String(";"&Random(1,$numbers7,1)&";")
        If Not StringInStr($str6,$r,1) Then
            $str6 = $str6&$r
            $bla6 = StringSplit($str6,";;",1)
            $c = 1
            IniWrite("cc3319.ini", "section2", "key", $str6)
            Return $r
        EndIf
    WEnd
EndIf

EndFunc





Func reset()
    If $bla1[0] >= $numbers1 Then
        $6 = MsgBox(4,"THE END","RESET???")
        If $6 = 1276 Then
            IniWrite("bc34p.ini", "section2", "key", "")
            $str1 = IniRead("bc34p.ini", "section2", "key", "default" )
        Else
            Exit
        EndIf
    EndIf
EndFunc

Je suis plutôt débutant en codage, je pense d'ailleurs que cela est flagrant vu mon code

J'ai essayé une quantité de solutions et glaner sur les topics mais rien n'y fait... Un codeur aguerri ou non pourrait il me dire ce qui ne va pas svp ?

335 lignes de code !!!
Je préfèrerais un fichier joint car là ca commence à faire beaucoup.

J'ai survolé le code et j'avoue avoir du mal à tout comprendre.

Juste une remarque, lorsque vous testez la valeur de retour d'une Msgbox, vous utilisez la valeur 1276 !!!
D'où vous vient cette valeur ? Car dans la documentation cela va de 1 à 11.

Ensuite, vous pourriez diminuer les 50 premières lignes en utilisant une simple fonction pour l'écriture de vos fichiers .ini.

► Afficher le texte

Idem pour la fin.

@Tlem : Ta fonction a été faite à la hâte n'est-ce pas ?
Sous sa forme actuelle, elle ne pourrait pas fonctionner

@Pierre
Tu aurais grandement avantage à apprendre à utiliser
eval et assign en conjonction avec les boucles.
Tu pourrais écrire le même code avec beaucoup moins de lignes
( facilement 50 % de lignes en moins ) et par conséquent, trouver
une simple erreur serait une tâche moins ardue.

Par exemple :

Code : Tout sélectionner

$bla = StringSplit($str,";;",1)
$bla1 = StringSplit($str1,";;",1)
$bla2 = StringSplit($str2,";;",1)
$bla3 = StringSplit($str3,";;",1)
$bla4 = StringSplit($str4,";;",1)
$bla5 = StringSplit($str5,";;",1)
$bla6 = StringSplit($str6,";;",1)
$bla7 = StringSplit($str7,";;",1)

pourrait très bien être réduit à :

Code : Tout sélectionner

For $i = 0 To 8
    Assign("bla" & $i,StringSplit(Eval("str" & $i),";;",1),2)
Next

Si tu as de la difficulté à comprendre ce bout de code, le voilà sous sa
plus simple expression.

Code : Tout sélectionner

For $i = 0 To 8 
    $eval = Eval("str" & $i)
    $data = StringSplit($eval,";;",1)
    Assign("bla" & $i,$data,2)
    Next

En plus de prendre moins de lignes, la modification de ces lignes devient beaucoup moins
pénible puisque tu peux affecter l'intégralité de cette section de code d'un seul coup.

Sinon, en survolant ton code, je n'ai pas aperçu l'erreur mais pour t'aider tu peux ajouter
cette ligne au début de ton code afin de déterminer les lignes de codes sur lesquelles ton
code se répète à l'infini.

Code : Tout sélectionner

Opt("TrayIconDebug",1)

Aussi, n'hésite pas à intégrer des "msgbox" aux endroits clés pour t'aider
à débugger le code.

Oups ....

J'ai effectivement oublié de placer la variable du fichier dans la fonction.
J'ai sans doute été interrompu lors de la rédaction du message.

J'ai corrigé le code.
Merci.

Merci pour ces astuces qui vont me simplifier la vie ! Je n'avais jamais utilisé les fonctions assign et eval et n'y avait même jamais pensé ! Je sais que d'autres choses peuvent être améliorées telle que un seul fichier .ini en utilisant plusieurs sections mais je n'est pas réussi ( et puis tant que ça marche

).

Quelques explications sur le code : une msgbox me propose 2 choix :
- le premier choix: EtuLicPro (ouvre le dossier .rar, choisi un fichier au hasard (parmi les 1276), et enregistre le chiffre dans le fichier .ini). Les fichiers sont sélectionnés très simplement : boucle send down puis send enter.
(Tlem, la valeur de retour de la msgbox avec la valeur 1276 me sert à réinitialiser le fichier .ini, mais pour l'instant je ne l'utilise pas)

► Afficher le texte

Cette partie là fonctionne sans aucun problème.

- le second choix : All Etu (choix aléatoire parmi 6 dossiers .rar, ouvre dossier .rar puis choix aléatoire d'un fichier, puis enregistre le chiffre dans le fichier .ini correspondant).
Et là ça fonctionne à moitié : c'est à dire que les choix aléatoire s'effectuent et un fichier s'ouvre, mais au lieu de s'arrêter là (comme pour la partie précédente), les choix aléatoires continuent et les fichiers s'ouvrent continuellement (jusqu'à erreur de winrar).

► Afficher le texte

Il n'y a donc pas d'erreur "réelle" mais un défaut dans mon codage (oui, il y en a même plusieurs j'imagine

). Cela peut il venir du fait que les fonction case et if soient incompatibles ? Bref, comment faire ?

je joint le fichier en l'état et ses 335 lignes !

merci

Pour écrire plusieurs section dans le même fichier ini, c'est aussi simple que

Code : Tout sélectionner

$ini = "Fichier.ini"
IniWrite($ini,"Section 1","Élément 1","value")
IniWrite($ini,"Section 1","key 2","Blu !!!")

Personnellement, je préfère mettre le nom de mon fichier dans une variable car ça me facilite la tâche
si jamais je souhaite changer le nom de fichier par la suite, mais ce n'est pas obligatoire.

Pouvez-vous synthétiser la fonction de votre script, car je comprend que c'est pour extraire des fichiers d'une archive, mais je ne comprend pas pourquoi vous passez par l'interface graphique !

synthétiser la fonction du script, c'est à dire ?
La fonction principale est d'ouvrir un fichier aléatoirement dans un des 6 dossiers .rar et de ne pas retomber sur ce même dossier. Le but est de vérifier des documents administratifs (sous divers formats) au hasard en sachant qu'ils ne pourront pas tous être vérifié par manque de temps. La fonction random a montré ses limites car nous retombions régulièrement sur les mêmes fichiers, d'où l'utilisation des .ini)
J'ai fait ce code avec mon niveau (faible), la gui n'est peut être donc pas nécessaire mais c'est peut être plus "convivial". Cela me permettait aussi d'avoir 1 seul script au lieu de deux (un script pour un seul dossier .rar (indépendant) + un script pour les 6 autres .rar).
Je ne sais pas si je suis clair et si cela répond à vos questions...

pierre a écrit :synthétiser la fonction du script, c'est à dire ?

Hé bien faire ce que vous avez fait ...

Bon, sinon pour votre cas, je vous conseillerait plutôt de trouver une solution plus 'ergonomique'.

Si vous utilisiez l'UDF Unrar (voir forum Anglais), ou 7zip afin de lister les fichiers contenu dans votre archive, il serait sans doute plus simple de choisir un nombre de fichier aléatoire plus rapidement.

7zip ne fonctionne hélas pas avec du .rar
Pour l'UDF Unrar, vous m'aviez déjà dirigé vers cette solution dans un précédent post. Ce qui me chagrine, c'est de revoir tout mon code alors qu'il fonctionnait presque... Je vais tout de même essayer et certainement revenir avec d'autres questions sur le forum

.

Il fonctionne sans doute 'presque', mais pas complètement ...

Et puis en cas de modification (sur l'affichage de Winrar ou autre) cela risque de poser des problèmes et de ne plus fonctionner.

En ce qui concerne 7Zip et les archives RAR, vous êtes sur que cela ne fonctionne pas, car sur mon PC, 7Zip ouvre sans aucun problème les fichiers .rar.

je n'ai pas réussi à ouvrir du rar avec 7zip, mais je vais réessaierai

Tlem a écrit :Il fonctionne sans doute 'presque', mais pas complètement ...

.
c'est bien là le problème !!!!! et moi qui pensais qu'une simple modif dans mon script aurait suffit...
Il semblerai que je peux recommencer de zéro

(

AutoIt Français

[...] Boucle qui devrait s'arrêter mais qui ne le fait pas

[...] Boucle qui devrait s'arrêter mais qui ne le fait pas

Re: [...] Boucle qui devrait s'arrêter mais qui ne le fait pas

Re: [...] Boucle qui devrait s'arrêter mais qui ne le fait pas

Re: [...] Boucle qui devrait s'arrêter mais qui ne le fait pas

Re: [...] Boucle qui devrait s'arrêter mais qui ne le fait pas

Re: [...] Boucle qui devrait s'arrêter mais qui ne le fait pas

Re: [...] Boucle qui devrait s'arrêter mais qui ne le fait pas

Re: [...] Boucle qui devrait s'arrêter mais qui ne le fait pas

Re: [...] Boucle qui devrait s'arrêter mais qui ne le fait pas

Re: [...] Boucle qui devrait s'arrêter mais qui ne le fait pas

Re: [...] Boucle qui devrait s'arrêter mais qui ne le fait pas

Re: [...] Boucle qui devrait s'arrêter mais qui ne le fait pas