j'ai trouve ça:
Code : Tout sélectionner
#fenetre_principale = 0 : #gadget_affiche_texte = 0 : #gadget_editeur = 1
Procedure Ouvre_Fenetre_principale()
If OpenWindow ( #fenetre_principale , 0, 0, 200, 200, "fenêtre principale" , #PB_Window_SystemMenu | #PB_Window_WindowCentered )
If CreateGadgetList ( WindowID ( #fenetre_principale )) ; on créer la liste des éléments (gadget) de la fenètre
ButtonGadget ( #gadget_affiche_texte , 10, 10, 180, 20, "Créer le fichier texte" )
EditorGadget ( #gadget_editeur , 10, 40, 180, 150, Text1) ; on crée un EditorGadget
AddGadgetItem ( #gadget_editeur , 0, "Tapez du texte ici" ) ; on crée une ligne de texte dans l'EditorGadget
EndIf
EndIf
EndProcedure
Procedure Creation_Fichier_Texte()
Nombre_de_ligne = CountGadgetItems ( #gadget_editeur ) ; on compte le nombre de lignes
; on crée un fichier texte ( comme pas indiqué d'adresse de stockage, celui sera écrit à l'emplacement du programme )
If CreateFile (0, "EditorGadget.txt" ) ; On lit chaque ligne de l'EditorGadget, puis on l'enregistre dans le fichier "EditorGadget.txt"
For n = 0 To Nombre_de_ligne - 1 ; boucle For de la première ligne à la dernière
Texte.s = GetGadgetItemText ( #gadget_editeur , n, 0) ; on lit le texte de ligne n et l'enregistre dans fichiers "EditorGadget.txt"
WriteStringN (0,Texte) ; permet d'écrire dans le fichier en cours, ici, le 0 puis ajoute un saut de ligne
Next
; Une boucle fait évoluer une variable entre 2 valeurs, la valeur n va prendre les valeurs suivantes : 0, 1, 2, 3, 4, ... , Nombre_de_ligne - 1
; Pour chaque valeur de n, les actions placées entre le For et le Next seront executées
CloseFile (0) ; on ferme le fichier 0 qui correspond à "EditorGadget.txt"
EndIf
RunProgram ( "EditorGadget.txt" ) ; On ouvre le fichier texte avec les fonction RunProgram
EndProcedure
Ouvre_Fenetre_principale()
Repeat
Event = WaitWindowEvent ()
If Event = #PB_Event_Gadget
Select EventGadget ()
Case #gadget_affiche_texte
Creation_Fichier_Texte()
EndSelect
EndIf
Until Event = #PB_Event_CloseWindow : EndCode : Tout sélectionner
StandardFile$ = "C:\" ; set initial file+path to display
Pattern$ = "Text (*.txt)|*.txt;All files (*.*)|*.*"
Pattern = 0 ; use the first of the three possible patterns as standard
File$ = OpenFileRequester("Please choose file to load", StandardFile$, Pattern$, Pattern)je veux sauvegarder / recharger les sommes entrées dans les StringGadgets et le contenu d'un EditorGadget ?
merci[/quote]
