Enregistrement fichier
Publié : ven. 19/mai/2023 13:42
Salut les gars,
J’aurais besoin d'un petit coup de main. je cherche à charger un fichier texte et afficher sont contenus dans un EditorGadget. Jusque là pas de problème seulement si j'ajoute du texte et que je veut l'enregistrer et recharger le contenu du fichier je n'y arrive pas. Mon code recharge bien le contenus du fichier mais ma multiplié par 2 le contenus. Voici le code de mon bouton pour enregistrer dans le fichier. Merci d'avance pour votre aide.
J’aurais besoin d'un petit coup de main. je cherche à charger un fichier texte et afficher sont contenus dans un EditorGadget. Jusque là pas de problème seulement si j'ajoute du texte et que je veut l'enregistrer et recharger le contenu du fichier je n'y arrive pas. Mon code recharge bien le contenus du fichier mais ma multiplié par 2 le contenus. Voici le code de mon bouton pour enregistrer dans le fichier. Merci d'avance pour votre aide.
Code : Tout sélectionner
Case #Window_Button_Valider
If OpenFile(1, "Fichier.txt", #PB_File_Append|#PB_UTF8)
Resultat$ = GetGadgetText(#Window_Editor)
ClearGadgetItems(#Window_Editor)
WriteString(1, Resultat$)
MessageRequester("Information:", "Les modifications du fichier ont bien été effectuées.", #PB_MessageRequester_Ok )
CloseFile(1)
Else
MessageRequester("Information","Impossible de modifier le fichier!")
EndIf
If OpenFile(0, "Fichier.txt")
ClearGadgetItems(#Window_Editor)
While Eof(0) = 0
Texte$ = ReadString(0)
AddGadgetItem(#Window_Editor, -1, Texte$)
Wend
CloseFile(0)
Else
MessageRequester("Information","Impossible d'ouvrir le fichier!")
EndIf