[Résolu]comment sauvegarder les meme donnée .....

[jbernard13]

bonjour à tous

je voudrais savoir , comment sauvegarder et charger le contenu d'une ListIconGadget + le contenu d'un Stringadget dans le meme fichier

je sais le faire separement pour une listeIcongadget et un stringadget mais j'arrive pas a comprendre comment faire pour mettre les donnée d'une ListIconGadget + d'un stringadget dans un meme fichier sauvegarder .
j'ai fait une recherche sur le forum mais j'ai rien trouver deplus .

j'ai besoin juste d'un exemple .

merci d'avance

Jbernard

[nico]

C'est simple, tu écris en premier dans ton fichier le nombre de données de ta listicon, ensuite les enregistrements de ta listicon puis de ton stringgadget; ainsi tu sauras où commence la lecture de ton stringgadget.

[jbernard13]

merci tu auras pas un petit exemple svp?

[venom]

Tu sais enregistrer un listicongadget et un stringgadget séparément, et tu ne sais pas faire les 2 en même temps je ne comprend pas tout





@++

[Ar-S]

Un contenu est un contenu, c'est toi qui le place ensuite dans le gadget que tu souhaites,

Utilise les préférences pour stocker les données c'est très simple, regarde l'exemple que j'ai fait ici :
http://www.purebasic.fr/french/viewtopi ... 27#p119427

[jbernard13]

Tu sais enregistrer un listicongadget et un stringgadget séparément, et tu ne sais pas faire les 2 en même temps je ne comprend pas tout





@++

eh non je me rappelle plus du tout

[jbernard13]

personne peux m'aider svp , je veux juste un petit exemple .

[Ar-S]

as tu regardé le lien que je t'ai donné ?

Allez un petit effort, voilà comment afficher les données d'un fichier prefs dans les gadgets appropriés

Le fichier jb13.txt

Code : Tout sélectionner

[DONNEES]
LIST01 = 1er contenu
LIST02 = 2eme contenu
STRING=Je porte un string
BTTXT = Quitter

le code

Code : Tout sélectionner

Global Liste1$,Liste2$,StringTXT$,BTtxt$
; On récupère les données du fichier pref
If OpenPreferences("jb13.txt")
  PreferenceGroup("DONNEES")
  Liste1$=ReadPreferenceString("LIST01","")
  Liste2$=ReadPreferenceString("LIST02","")
  StringTXT$=ReadPreferenceString("STRING","")
  BTtxt$=ReadPreferenceString("BTTXT","")
  ClosePreferences()
  Else
  MessageRequester("Erreur","ça chie, je ne trouve pas jb13.txt") 
  End
EndIf
; ------


Enumeration
  #Window_0
  #STRING
  #BT_QUIT
  #list
EndEnumeration

Procedure OpenWindow_Window_0()
  If OpenWindow(#Window_0, 450, 200, 400, 400, "Window_0", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
    If CreateGadgetList(WindowID(#Window_0))
      StringGadget(#STRING, 20, 345, 220, 25, StringTXT$)
      ButtonGadget(#BT_QUIT, 250, 345, 125, 25, BTtxt$)
      ListViewGadget(#list, 20, 45, 215, 275)
      AddGadgetItem(#list, 0, Liste1$)
      AddGadgetItem(#list, 1, Liste2$)
    EndIf
  EndIf
EndProcedure

OpenWindow_Window_0()

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_Gadget
      Select EventGadget()
        Case #BT_QUIT
          End
    Case #PB_Event_CloseWindow
      Select EventWindow()
        Case #Window_0
          CloseWindow(#Window_0)
          Break
      EndSelect
  EndSelect
ForEver

[jbernard13]

merci Ar-S

et avec une ListIconGadget ça marche pareil?

[Ar-S]

Une donnée est une donnée JB, donc oui ça marche.