AutoIt Français

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
dim $FileReadPage
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 706, 584, 192, 124)
$MenuItem1 = GUICtrlCreateMenu("&Fichier")
$MenuItem2 = GUICtrlCreateMenuItem("Enregistrer sous", $MenuItem1)
$MenuItem3 = GUICtrlCreateMenuItem("Quitter", $MenuItem1)
$MenuItem4 = GUICtrlCreateMenu("&Aide")
$MenuItem5 = GUICtrlCreateMenuItem("Aide sur le site de l'éditeur", $MenuItem4)
$Tab1 = GUICtrlCreateTab(24, 32, 617, 497)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Créer un fichier .txt")
$Label1 = GUICtrlCreateLabel("Enregistrer où :", 72, 392, 75, 17)
$Input1 = GUICtrlCreateInput("C:\", 176, 392, 289, 21)
$Button1 = GUICtrlCreateButton("...", 472, 392, 19, 17)
$Button2 = GUICtrlCreateButton("Enregistrer", 248, 456, 75, 25)
$Edit1 = GUICtrlCreateEdit("", 128, 96, 329, 193)
GUICtrlSetData(-1, "")
GUICtrlSetCursor (-1, 5)
$TabSheet2 = GUICtrlCreateTabItem("Editer un fichier .txt")
$Edit2 = GUICtrlCreateEdit("", 136, 184, 329, 201)
$Button3 = GUICtrlCreateButton("Enregistrer", 255, 445, 75, 33)
$Input2 = GUICtrlCreateInput("C:\", 175, 101, 289, 21)
$Button4 = GUICtrlCreateButton("...", 487, 101, 18, 17)
$Label2 = GUICtrlCreateLabel("Ouvrir :", 108, 105, 38, 17)
$TabSheet3 = GUICtrlCreateTabItem("Lire un fichier .txt")
$Label3 = GUICtrlCreateLabel("", 88, 168, 44, 17)
$Button5 = GUICtrlCreateButton("...", 493, 114, 18, 17)
$Input3 = GUICtrlCreateInput("C:\", 188, 112, 289, 21)
$Label4 = GUICtrlCreateLabel("Ouvrir :", 124, 118, 38, 17)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
Dim $Form1_AccelTable[1][2] = [["^s", $MenuItem2]]
GUISetAccelerators($Form1_AccelTable)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button4
    $Fileopen = FileOpenDialog ( "Ouvrir un fichier pour l'éditer", "","Texte (*.txt)")
    $FileRead = FileRead ( $Fileopen)
    GUICtrlSetData($Edit2, $FileRead) 
    GuiCtrlSetData ( $Input2, $Fileopen)
Case $Button3
FileWrite($Fileopen, GUICtrlRead($Edit2))
Case $Button5
    $FileReadPage = FileOpenDialog ( "Ouvrir un fichier pour le lire", "","Texte (*.txt)")
    GuiCtrlSetData ( $Input3, $FileReadPage)
    $FileReadPage01  =  FileRead( $FileReadPage)
    GuiCtrlSetData ( $Label3, $FileReadPage01)
Case $Button1
    $FileNew = FileSaveDialog ( "Créer un fichier .txt","", "Texte (*.txt)")
    GuiCtrlSetData ( $Input1, $FileNew&".txt")
Case $Button2
    FileWrite($FileNew&".txt", GUICtrlRead($Edit1))
    EndSwitch
WEnd