[R] Aide pour un menu

[africanism]

Bonjour a tous
voila je me suis cree un menu
dans ce menu j'ai 3 champ
NOM
CHEMIN DE L'IMAGE
DESCRIPTION DE L'IMAGE

et un bouton valider

commen je peut faire pour que je que je met dans chaque champ s'incrive dans un fichier txt
quand je clic sur le bouton valider.

je m'explique le champ NOM (copier ce qui a dans ce champ dans un fichier nommer nom.txt)
Chemin (idem mais dans un fichier chemin.txt)
Description (idem mais dans un fichier description.txt)

merci pour vos reponse
voici le cript

Code : Tout sélectionner

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=c:\program files\autoit3\templates\test.kxf
$Form1_1 = GUICreate("Menu PXE", 633, 447, 274, 184)
GUICtrlCreateInput("", 88, 80, 449, 21)
$Nom = GUICtrlCreateLabel("Nom de la Session", 90, 62, 92, 17)
GUICtrlCreateInput("", 89, 165, 449, 21,$WS_EX_CLIENTEDGE)
; et la façon de le récupérer
FileWrite("d:\log.txt", ""& GUICtrlRead($Nom))
$Chemin = GUICtrlCreateLabel("Chemin de l'image du PC", 90, 147, 121, 17)
GUICtrlCreateInput("", 91, 255, 449, 21)
$Description = GUICtrlCreateLabel("Descripyion du Master", 94, 236, 109, 17)
$Valider = GUICtrlCreateButton("Valider", 250, 336, 137, 25, 0)
$Progression = GUICtrlCreateProgress(212, 384, 217, 25)
GUICtrlSetColor(-1, 0xC0DCC0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Nom
EndSwitch
WEnd

[jbnh]

Je l'ai un peu remagné a ma sauce

Code : Tout sélectionner

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=c:\program files\autoit3\templates\test.kxf
$Form1_1 = GUICreate("Menu PXE", 633, 447, 274, 184)



GUICtrlCreateLabel("Nom de la Session", 90, 62, 92, 17)
$Nom = GUICtrlCreateInput("", 88, 80, 449, 21)


GUICtrlCreateLabel("Chemin de l'image du PC", 90, 147, 121, 17)
$Chemin = GUICtrlCreateInput("", 89, 165, 449, 21,$WS_EX_CLIENTEDGE)


GUICtrlCreateLabel("Descripyion du Master", 94, 236, 109, 17)
$Description = GUICtrlCreateInput("", 91, 255, 449, 21)

$Valider = GUICtrlCreateButton("Valider", 250, 336, 137, 25, 0)

$Progression = GUICtrlCreateProgress(212, 384, 217, 25)
GUICtrlSetColor(-1, 0xC0DCC0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1

    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    
        Case $msg = $valider
        If Not FileExists("nom.txt") Then
        FileWrite("nom.txt",GUICtrlRead($Nom))
        EndIf
        
        If Not FileExists("chemin.txt") Then
        FileWrite("chemin.txt",GUICtrlRead($Chemin))
        EndIf
        
        If Not FileExists("description.txt") Then
        FileWrite("description.txt",GUICtrlRead($Description))
        EndIf
            
    EndSelect       

WEnd

[africanism]

c'est tout a fait ca
je te remerci
je vait peut etre en rajoute comment je peut faire pour ajoute un bouton parcourir a cote de chemin de l'image pour lui indique le chemin .
?

[jbnh]

Code : Tout sélectionner

$Input_1 = GUICtrlCreateInput("", 10, 10, 220, 20)
$Button_1 = GUICtrlCreateButton("...", 240, 10, 20, 20)

........

    Case $Msg = $Button_1
        $Opened_File = FileOpenDialog("Open Picture File", "", "All Picture Files (*.bmp;*.jpg;*.png;*gif;*jpeg)|All Files (*.*)",12)
        GUICtrlSetData($Input_1, $Opened_File)

De mémoire donc vérifie si ca marche

[africanism]

ca fontionne pas
revoici le script

Code : Tout sélectionner

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=c:\program files\autoit3\templates\test.kxf
$Form1_1 = GUICreate("Menu PXE", 633, 447, 274, 184)



GUICtrlCreateLabel("Nom de la Session", 90, 62, 92, 17)
$Nom = GUICtrlCreateInput("", 88, 80, 449, 21)


GUICtrlCreateLabel("Chemin de l'image du PC", 90, 147, 121, 17)
$Chemin = GUICtrlCreateInput("", 89, 165, 449, 21,$WS_EX_CLIENTEDGE)

$Input_1 = GUICtrlCreateInput("", 10, 10, 220, 20)
$Button_1 = GUICtrlCreateButton("...", 240, 10, 20, 20)

........

    Case $Msg = $Button_1
        $Opened_File = FileOpenDialog("Open Picture File", "", "All Picture Files (*.bmp;*.jpg;*.png;*gif;*jpeg)|All Files (*.*)",12)
        GUICtrlSetData($Input_1, $Opened_File)


GUICtrlCreateLabel("Descripyion du Master", 94, 236, 109, 17)
$Description = GUICtrlCreateInput("", 91, 255, 449, 21)

$Valider = GUICtrlCreateButton("Valider", 250, 336, 137, 25, 0)

GUISetState(@SW_SHOW)


#EndRegion ### END Koda GUI section ###

While 1

    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
   
        Case $msg = $valider
        If Not FileExists("nom.txt") Then
        FileWrite("nom.txt",GUICtrlRead($Nom))
        EndIf
       
        If Not FileExists("chemin.txt") Then
        FileWrite("chemin.txt",GUICtrlRead($Chemin))
        EndIf
       
        If Not FileExists("description.txt") Then
        FileWrite("description.txt",GUICtrlRead($Description))
        EndIf
           
    EndSelect      

WEnd

[jbnh]

je re ce soir et je te le fais, je ferai un edit de ce post!

[africanism]

je te remerci je vais faire des recherche aussi merci pour tout

[africanism]

salut voila
j'ai trouve
mais la validation ne fonctionne pas

voici le code

Code : Tout sélectionner

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=y:\###appz###\script\form1_1.kxf
$Form1_1 = GUICreate("Menu PXE", 634, 448, 275, 185)

GUICtrlCreateLabel("Nom de la Session", 90, 62, 92, 17)
$Nom = GUICtrlCreateInput("", 88, 80, 361, 21)

GUICtrlCreateLabel("Chemin de l'image du PC", 90, 147, 121, 17)
$Chemin = GUICtrlCreateInput("", 89, 165, 369, 21, $ES_AUTOHSCROLL)

GUICtrlCreateLabel("Description du Master", 94, 236, 109, 17)
$Description = GUICtrlCreateInput("", 91, 255, 449, 21)

$Valider = GUICtrlCreateButton("Valider", 250, 336, 137, 25)

$Parcourir = GUICtrlCreateButton("Parcourir", 469, 163, 136, 25)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1

    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
   
        Case $msg = $valider
        If Not FileExists("nom.txt") Then
        FileWrite("nom.txt",GUICtrlRead($Nom))
        EndIf
       
        If Not FileExists("chemin.txt") Then
        FileWrite("chemin.txt",GUICtrlRead($Chemin))
        EndIf
       
        If Not FileExists("description.txt") Then
        FileWrite("description.txt",GUICtrlRead($Description))
        EndIf
        
        Case $msg = $Parcourir
        $Opened_File = FileOpenDialog("Open Picture File", "", "All Picture Files (*.bmp;*.jpg;*.png;*gif;*jpeg)|All Files (*.*)",12)
        GUICtrlSetData($Chemin, $Opened_File)
        
         
     EndSelect
             
        
WEnd

[ani]

bonjour

indique plutôt ceux-ci pour le bouton $valider

Case $msg = $valider
FileWriteLine("nom.txt",GUICtrlRead($Nom))
FileWriteLine("chemin.txt",GUICtrlRead($Chemin))
FileWriteLine("description.txt",GUICtrlRead($Description))

et si tu désire lors du click sur le bouton valider que les champs se remette à zero
indique juste ceux-ci en dessous des filewriteline.

Guictrlsetdata($Nom,"")
Guictrlsetdata($Chemin,"")
Guictrlsetdata($Description,"")

ps: créer trois fichier texte çà va etre dure pour s'y retrouver non ?
pour ma part je ferai plutot un fichier ini dans ce style.

[NOM]
Description=Chemin


voilàvoilà

[africanism]

PARFAIS POUR LA MISE A ZERO PARCONTRE IL NE ME CRE PAS LES FICHIER.
QUAND JE VALIDE

[africanism]

ps: créer trois fichier texte çà va etre dure pour s'y retrouver non ?
pour ma part je ferai plutot un fichier ini dans ce style.

[NOM]
Description=Chemin


voilàvoilà

non pas du tout car j'ai un autre script qui lui va me les effacer. par la suite

[africanism]

C'est bon j'ai trouve voici le script

Code : Tout sélectionner

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=y:\###appz###\script\form1_1.kxf
$Form1_1 = GUICreate("Menu PXE", 634, 448, 275, 185)

GUICtrlCreateLabel("Nom de la Session", 90, 62, 92, 17)
$Nom = GUICtrlCreateInput("", 88, 80, 361, 21)

GUICtrlCreateLabel("Chemin de l'image du PC", 90, 147, 121, 17)
$Chemin = GUICtrlCreateInput("", 89, 165, 369, 21, $ES_AUTOHSCROLL)

GUICtrlCreateLabel("Description du Master", 94, 236, 109, 17)
$Description = GUICtrlCreateInput("", 91, 255, 449, 21)

$Valider = GUICtrlCreateButton("Valider", 250, 336, 137, 25)

$Parcourir = GUICtrlCreateButton("Parcourir", 469, 163, 136, 25)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1

    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
   
        Case $msg = $valider
        FileWriteLine("nom.txt",GUICtrlRead($Nom))
        FileWriteLine("chemin.txt",GUICtrlRead($Chemin))
        FileWriteLine("description.txt",GUICtrlRead($Description))
        
        Guictrlsetdata($Nom,"")
        Guictrlsetdata($Chemin,"")
        Guictrlsetdata($Description,"")
        
            
         
     EndSelect
    Select
            Case $msg = $Parcourir
        $Opened_File = FileOpenDialog("Selection fichier Ghost", "", "Fichier gho (*.gho)|All Files (*.*)",12)
        GUICtrlSetData($Chemin, $Opened_File)
    EndSelect   
WEnd

[ani]

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>

Dim $Form1_1, $nom, $Chemin, $Description, $valider, $Parcourir

#Region ### START Koda GUI section ### Form=y:\###appz###\script\form1_1.kxf
$Form1_1 = GUICreate("Menu PXE", 634, 448, 275, 185)

GUICtrlCreateLabel("Nom de la Session", 90, 62, 92, 17)
$nom = GUICtrlCreateInput("", 88, 80, 361, 21)

GUICtrlCreateLabel("Chemin de l'image du PC", 90, 147, 121, 17)
$Chemin = GUICtrlCreateInput("", 89, 165, 369, 21, $ES_AUTOHSCROLL)

GUICtrlCreateLabel("Description du Master", 94, 236, 109, 17)
$Description = GUICtrlCreateInput("", 91, 255, 449, 21)

$valider = GUICtrlCreateButton("Valider", 250, 336, 137, 25)

$Parcourir = GUICtrlCreateButton("Parcourir", 469, 163, 136, 25)

GUISetState(@SW_SHOW)
#EndRegion ### START Koda GUI section ### Form=y:\###appz###\script\form1_1.kxf


While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop

        Case $msg = $valider
            FileWriteLine("nom.txt", GUICtrlRead($nom))
            FileWriteLine("chemin.txt", GUICtrlRead($Chemin))
            FileWriteLine("description.txt", GUICtrlRead($Description))
            GUICtrlSetData($nom, "")
            GUICtrlSetData($Chemin, "")
            GUICtrlSetData($Description, "")
            
        Case $msg = $Parcourir
            $Opened_File = FileOpenDialog("Open Picture File", "", "All Picture Files (*.bmp;*.jpg;*.png;*gif;*jpeg)|All Files (*.*)", 12)
            GUICtrlSetData($Chemin, $Opened_File)
    EndSelect
WEnd

Les fichiers Texte se crée dans le même répertoire que ton script, chez moi çà fonctionne

[africanism]

merci a tous pour votre aide

une autre petite chose est t'il possible par rapport a ce menu
qu'il majoute une ligne avec des info dans ce fichier.

ghost.cmd

voici le fichier

Code : Tout sélectionner

start /min C:\Progra~1\Symantec\Ghost\ghostsrv.exe [color=#FF0000](Chemin du fichier)[/color] [color=#FF0000](NOM)[/color] -disk1 -O1 -R
 

[africanism]

j'ai une erreur la dessus mais je sais pas ou ?

Code : Tout sélectionner

FileWriteLine("d:\ghost\ghost.cmd","start /min C:\Progra~1\Symantec\Ghost\ghostsrv.exe",guictrlread($chemin))

ou est mon erreur ?

[Tlem]

Vous envoyez 3 paramètres au lieu de 2.
Il est bien de lire l'aide fournie avec AutoIt pour voir comment formater une commande !!!

[africanism]

merci comment je peut faire pour envoyer plusieur commande ?
car je voudrais que ca ecrive dans un fichier ex: ghost.txt

texte ($chemin) ($session) texte

[Tlem]

Je ne suis pas sur d'avoir compris votre demande, mais je suppose ceci :

Code : Tout sélectionner

FileWriteLine("d:\ghost\ghost.cmd","start /min C:\Progra~1\Symantec\Ghost\ghostsrv.exe " & guictrlread($chemin))

[africanism]

c'est tout a faite ca
comment je peut mettre un espace entre & guictrlread($chemin) et & guictrlread($session)
?

[Tlem]

Tout simplement comme ceci :

Code : Tout sélectionner

guictrlread($chemin) & " " & guictrlread($session)