[Ex] NotePad plus simple

[alex1205]

Bonjour, je viens de programmer un "NotePad"se nommant "TxtNER" en anglais et en français c'est "TxtNEL" et en anglais ça veut dire "Text New Edit Read" et donc en français "Texte Nouveau Éditer Lire".
Je voudrais bien vous le montrer

► Afficher le texte

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
 

EDIT1 = Mis à jour:
- Plus grand
- Il a ces extensions(.txtnel)

TxtNEL complet.zip

(403.77 Kio) Téléchargé 265 fois

[pop45]

Loin de moi l'idee de te critiquer mais c'est pas fait a la va vite
Un conseil : agrandit l'espace d'edition

[Tlem]

@alex1205
Dans un sujet comme le votre, on ne s'amuse pas à copier le fichier dans un nouveau message à chaque fois qu'il y a une mise à jour.

J'ai donc effacé les 2 messages que vous aviez fait.

A chaque modification, mettez à jour la pièce jointe de votre premier message.

Merci.