PureBasic

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

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

super
je ne pensais pas avoir une réponse aussi rapide
ça marche!!!

encore merci!!!!!!!!!!!!!!!

PureBasic

rajout texte avant enregistrement

rajout texte avant enregistrement