[R] En cas d'erreur,revenir à la ligne du début

[Raz2Kill]

Bonsoir à tous!

Voilà j'ai un script de création de galerie assez compliqué qui est censé se stopper en cas de données manquantes(l'Inputbox $Lien vide et/ou Base_HTML1.txt manquant).Seulement voilà je n'arrive pas à l'arrêter
Il faut que si l'une des données est manquante,un msgbox s'affiche pour informer l'utilisateur puis que cela retourne au Select,enfin à la GUI en attente d'action quoi

Code : Tout sélectionner

While 1
    $guimsg = GUIGetMsg()
    Select
    case $guimsg = $Bouton_apropos
        MsgBox(64, "Gallery Maker", "")
    case $guimsg = $Bouton_Generer
        $RLien = GUICtrlRead($Lien)
        If $RLien = "" Then
            Do
            Until MsgBox(48, "Gallery Maker", "Erreur : Aucun code n'a été collé!")
            Exitcas
        $BaseHTML1 = FileOpen("Base_HTML1.txt")
        If $BaseHTML1 = -1 Then
            Do
            Until MsgBox(48, "Gallery Maker", "Le fichier Base_HTML1.txt est introuvable!")
        Else
            $RBaseHTML1 = FileRead($BaseHTML1)
            GUICtrlSetData($Code_Genere, $RBaseHTML1)           
        EndIf
        EndIf
        ;Suite du script non fini
    case $guimsg = $GUI_EVENT_CLOSE
        ExitLoop
    EndSelect
WEnd
Exit

Merci d'avance pour votre aide

[Tlem]

Voici un code plus aéré et comme vous le souhaitez.
J'ai pas commenté les lignes, je pense que vous comprendrez vite.

► Afficher le texte

Code : Tout sélectionner

While 1
    $GuiMsg = GUIGetMsg()
    Switch $GuiMsg
        
        Case $Bouton_apropos
            MsgBox(64, "Gallery Maker", "")

        Case $Bouton_Generer
            If GUICtrlRead($Lien) = "" Then
                MsgBox(48, "Gallery Maker", "Erreur : Aucun code n'a été collé!")
                ContinueCase
            EndIf

            $RBaseHTML1 = FileRead("Base_HTML1.txt")
            If @error Then
                MsgBox(48, "Gallery Maker", "Le fichier Base_HTML1.txt est introuvable!")
                ContinueCase
            Else
                GUICtrlSetData($Code_Genere, $RBaseHTML1)
            EndIf

        Case $GUI_EVENT_CLOSE
            ExitLoop

    EndSwitch
WEnd

[Raz2Kill]

Merci pour la réponse rapide!

Un continucase ainsi qu'un switch merci pour le conseile.Si j'ai bien compris le

Code : Tout sélectionner

If @error

remplace le

Code : Tout sélectionner

If $BaseHTML1 = -1

?

Merci en tout les cas

[Tlem]

Un FileRead renvoi une erreur en cas d’échec et FileOpen renvoi -1, donc oui c'est similaire.

N'oubliez pas la balise [R] dans le titre de votre premier message si votre sujet est résolu.

[Raz2Kill]

J'ai modifié seulement maintenant mon script (n'étant revenu dessus que maintenant...) et je me rend compte qu'il y a un petit souci...

En cas d'erreur (généré par l'absence de lien ou du fichier Base_HTML1.txt),le script se quitte après avoir validé la Msgbox.Logique,puisque le dernier case est

Code : Tout sélectionner

        case $GUI_EVENT_CLOSE
            ExitLoop

    EndSwitch
WEnd

Or,je souhaiterais qu'en cas d'erreur avec le lien,le programme ne se quitte pas pour que l'utilisateur puisse en coller un dans l'inputbox.En revanche pour le fichier manquant je pense qu'il vaut mieux laisser comme ça car sans ce fichier,le programme n'a aucune utilité

Cordialement,

[Tlem]

Le dernier Case n'est exécuté que si vous fermez la fenêtre principale, donc si vous avez un problème, il ne vient pas de cette partie.

[Raz2Kill]

Le dernier Case n'est exécuté que si vous fermez la fenêtre principale, donc si vous avez un problème, il ne vient pas de cette partie.

Dans ce cas...D'où viens le problème?J'ai beau chercher je ne vois pas
Voici le code dans son intégralité,pour peut-être identifier le problème

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Fenetre = GUICreate("Gallery Maker", 557, 259, 225, 133)
$Lien = GUICtrlCreateInput("", 181, 35, 90, 21)
$Texte1 = GUICtrlCreateLabel("Collez ci-dessous le code du lien du SWF uploadé sur www.swfcabin.com", 24, 5, 388, 17)
$Texte2 = GUICtrlCreateLabel("http://www.swfcabin.com/open/", 24, 38, 159, 17)
$Bouton_Generer = GUICtrlCreateButton("Generer", 432, 33, 75, 25)
$Code_Genere = GUICtrlCreateEdit("", 24, 72, 385, 113)
GUICtrlSetData(-1, "")
$Bouton_apropos = GUICtrlCreateButton("?", 528, 0, 27, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $guimsg = GUIGetMsg()
    Switch $guimsg

        case $Bouton_apropos
            MsgBox(64, "Gallery Maker", "Codé par Raz2Kill")

        case $Bouton_Generer
            If GUICtrlRead($Lien) = "" Then
                MsgBox(48, "Gallery Maker", "Erreur : Aucun code n'a été collé!")
                ContinueCase
            EndIf

            $RBaseHTML1 = FileRead("Base_HTML1.txt")
            If @error Then
                MsgBox(48, "Gallery Maker", "Le fichier Base_HTML1.txt est introuvable!")
                ContinueCase
            Else
                GUICtrlSetData($Code_Genere, $RBaseHTML1)
            EndIf
        
        case $GUI_EVENT_CLOSE
            MsgBox(0,"Gallery Maker","Chéri,ça va couper...")
            ExitLoop

    EndSwitch
WEnd

Le dernier MsgBox est simplement là pour signaler la fermeture du programme.Et j'ai essayé plusieurs méthodes mais sans succès,juste des erreurs qui plantent le script dès le démarrage

Merci d'avance

Cordialement

[Tlem]

Mettez le Case $GUI_EVENT_CLOSE au début de la liste des cas et là ça fonctionne.

Edit :
Finalement, je reviens sur le code que j'ai proposé, car en réalité, il n'a pas vraiment toute la logique nécessaire.
Voici donc la dernière version de la boucle While qui présente cette fois-ci toutes les caractéristiques d'une boucle standard.

► Afficher le texte

Code : Tout sélectionner

While 1
    $guimsg = GUIGetMsg()
    Switch $guimsg

        case $Bouton_apropos
            MsgBox(64, "Gallery Maker", "Codé par Raz2Kill")

        case $GUI_EVENT_CLOSE
            MsgBox(0,"Gallery Maker","Chéri,ça va couper...")
            ExitLoop ; sort du While

        case $Bouton_Generer
            If GUICtrlRead($Lien) = "" Then
                MsgBox(48, "Gallery Maker", "Erreur : Aucun code n'a été collé!")
            EndIf

            $RBaseHTML1 = FileRead("Base_HTML1.txt")
            If @error Then
                MsgBox(48, "Gallery Maker", "Le fichier Base_HTML1.txt est introuvable!")
            Else
                GUICtrlSetData($Code_Genere, $RBaseHTML1)
                ExitLoop ; sort du While
            EndIf

    EndSwitch
WEnd

[ani]

C'est une soluce tlem d'indiquer le gui_event_close en première position met çà ne résoudra pas la suite du programme pour ma part je voit plus le "continuecase" remplace le par "ContinueLoop" comme c'est une condition de IF ... Then.

le fichier base_html1.txt y a quoi dedans ?
et le $Lien il te sert à quoi ?

bonne continuation et merci pour le site

[Tlem]

C'est pour cela que j'ai rectifier par un edit mon message.

[Raz2Kill]

Désolé pour ma réponse tardive!

J'ai essayé les 2 solutions.Je préfère garder le Case $GUI_EVENT_CLOSE en début de While car une boucle standard me rendait les choses bien trop compliquées...

le fichier base_html1.txt y a quoi dedans ?
et le $Lien il te sert à quoi ?

Ce programme récupère un lien sur le site http://www.swfcabin.com (hébergement de fichier SWF) et génère à la place un code HTML ready-to-copy dans un forum par exemple
Le fichier base_html1.txt contient ainsi une partie du code à rajouter en plus du lien

Même si je pourrais le faire manuellement ce script me facilite nettement la tâche

Merci pour vos réponses

Sujet Résolu!