[R] Deux petit problème avec la zone d'édition, a l'aide !

[Utilisateur 3643 supprimé]

Bonjour j'ai un problème, je suis complètement perdue, je voudrait faire plusieurs choses et je ne sais pas comment les faire:
-ajouter un texte automatiquement sur la dernière ligne d'une zone d'édition quand on click sur un bouton
-créer un fichier texte avec ce que l'on a dans la zone d'édition

Merci, j’attends vos réponse avec impatience dépéchez vous =D

[PandiPanda]

je pense que ceci devrai vous aider à avancer? ^^

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
    Global $Form1 = GUICreate("Form1", 335, 157, 192, 124)
    Global $Edit1 = GUICtrlCreateEdit("", 16, 8, 241, 137)
    GUICtrlSetData(-1, "test du Panda")
    Global $Button1 = GUICtrlCreateButton("File", 272, 16, 57, 25, $WS_GROUP)
    Global $Button2 = GUICtrlCreateButton("Ligne", 272, 48, 57, 25, $WS_GROUP)
    GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $file=FileOpen(@ScriptDir&"\Maxoulou.txt",1)
            If $file = -1 Then
                MsgBox(0, "Error", "Unable to open file.")
                Exit
            EndIf
            FileWrite($file,GUICtrlRead($Edit1))
        Case $Button2
            $txt="la ligne du pandaaaaa :D"
            GUICtrlSetData($Edit1,GUICtrlRead($Edit1)&@CRLF&$txt)
    EndSwitch
WEnd

[Utilisateur 3643 supprimé]

je pense que ceci devrai vous aider à avancer? ^^

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
    Global $Form1 = GUICreate("Form1", 335, 157, 192, 124)
    Global $Edit1 = GUICtrlCreateEdit("", 16, 8, 241, 137)
    GUICtrlSetData(-1, "test du Panda")
    Global $Button1 = GUICtrlCreateButton("File", 272, 16, 57, 25, $WS_GROUP)
    Global $Button2 = GUICtrlCreateButton("Ligne", 272, 48, 57, 25, $WS_GROUP)
    GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $file=FileOpen(@ScriptDir&"\Maxoulou.txt",1)
            If $file = -1 Then
                MsgBox(0, "Error", "Unable to open file.")
                Exit
            EndIf
            FileWrite($file,GUICtrlRead($Edit1))
        Case $Button2
            $txt="la ligne du pandaaaaa :D"
            GUICtrlSetData($Edit1,GUICtrlRead($Edit1)&@CRLF&$txt)
    EndSwitch
WEnd

c'est ce que je cherche merci =D