ouvrir un fichier text

[venom]

bonsoir , voici mon probleme j'ai reussi a faire pour enregistrer un stringgadget en fichier *.txt.

mais je n'arrive pas a ouvrir ce fichier ou meme n'importe quel fichier *.txt.

donc je vous donne un exemple si quelquin sait comment faire car meme sur le forum je ne trouve pas. surement que je doit mal chercher car je ne doit pas etre le 1er a demander sa . desoler mais j'ai beau chercher pas moyen voici mon exemple.

Code : Tout sélectionner

Procedure saveas()
fichier$ = SaveFileRequester("Enregistrer sous", "document texte"+".txt","texte", 0) 
         If CreatePreferences(fichier$)
             Texte$ = GetGadgetText(1)
              PreferenceComment(Texte$)
               ClosePreferences()
         EndIf
EndProcedure

Procedure opentxt()
fichier$ = OpenFileRequester("ouvrir un texte", "", "fichier texte|*.txt", 0)
            If OpenPreferences(fichier$)
               SetGadgetText(1, fichier$)
               ClosePreferences()
            EndIf
EndProcedure

If OpenWindow(0, 0, 0, 600, 300, #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget, "exemple")And CreateGadgetList(WindowID(0))
    StringGadget(1,5, 5, 590,260,"ecrir un texte ici puis sauvegarder. ensuite ouvrir ce meme texte ou un autre. pas moyen de le lire donc j'ai commencer un peut ma procedure opentxt() mais je trouve pas peut-tu m'aider stp ? je n'arrive pas a le relire ce texte ci. essaye enregistre et ouvre le tu verra. merci d'avance", #PB_String_MultiLine|#WS_VSCROLL|#ESB_DISABLE_LEFT|#ESB_DISABLE_RIGHT)
    ButtonGadget(2, 5, 270, 100, 20, "enregistrer sous")
    ButtonGadget(3, 115, 270, 100, 20, "ouvrir")
EndIf
  
  Repeat 
   Event = WaitWindowEvent() 
    If Event = #PB_EventGadget 
     Select EventGadgetID()

      Case 2
       saveas()
      
      Case 3
       opentxt()
       
     EndSelect
    EndIf
  Until Event = #PB_EventCloseWindow

voila en esperant que sa peut vous aider sur ce bonne soiree a tous le forum et a bientot.


@++
venom