Avec ce programme, on peut taper un texte et l'enregistrer.
Je voudrais que dans mon enregistrement soit inclus (en plus du texte) la date et l'heure de sauvegarde du fichier (en haut de page)
J'ai essayé de bidouiller plein de truc mais je ne trouve pas
Si qq un pouvait m'aider, bien que cela aura surement l'air très simple pour vous....
Merci d'avance....
#TITRE = "Bloc Note"
#LARGEUR = 400
#HAUTEUR = 300
#FICHIER1 = "C:\blocnote_1.txt"
Procedure Sauver(texte.s,fichier.s)
If CreateFile(0,fichier)
WriteString(texte)
CloseFile(0)
EndIf
EndProcedure
OpenWindow(0, 0, 0, #LARGEUR, #HAUTEUR, #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget, #TITRE)
CreateGadgetList(WindowID())
EditorGadget(0,5,5,#LARGEUR-10,#HAUTEUR-35)
ButtonGadget(1,#LARGEUR-80,#HAUTEUR-25,75,20,"Quitter")
ButtonGadget(2,5,#HAUTEUR-25,75,20,"Sauver [1]")
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow : Break
Case #PB_Event_Gadget
Select EventGadgetID()
Case 1 : Break
Case 2 : Sauver(GetGadgetText(0),#FICHIER1)
EndSelect
EndSelect
ForEver
End
rajout texte avant enregistrement
Code : Tout sélectionner
#TITRE = "Bloc Note"
#LARGEUR = 400
#HAUTEUR = 300
#FICHIER1 = "C:\blocnote_1.txt"
Procedure Sauver(texte.s,fichier.s)
If CreateFile(0,fichier)
WriteStringN(FormatDate("%dd:%mm:%yyyy", Date()) + " * " + FormatDate("%hh:%ii:%ss", Date()))
WriteString(texte)
CloseFile(0)
EndIf
EndProcedure
OpenWindow(0, 0, 0, #LARGEUR, #HAUTEUR, #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget, #TITRE)
CreateGadgetList(WindowID())
EditorGadget(0,5,5,#LARGEUR-10,#HAUTEUR-35)
ButtonGadget(1,#LARGEUR-80,#HAUTEUR-25,75,20,"Quitter")
ButtonGadget(2,5,#HAUTEUR-25,75,20,"Sauver [1]")
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow : Break
Case #PB_Event_Gadget
Select EventGadgetID()
Case 1 : Break
Case 2 : Sauver(GetGadgetText(0),#FICHIER1)
EndSelect
EndSelect
ForEver
End