[ok] Manque ou Bug dans CreatePreferenceGroup()
Publié : lun. 08/mars/2010 21:13
Ai-je loupé quelque chose ou est-ce impossible de créer un 'groupe' seul, sans préférences dans un fichier créé avec CreatePreference ??
En gros si vous testez le code suivant, celui n'écrit rien dans le fichier liste, mais si vous 'dé-commentez' la ligne 9, là ça fonctionne.
C'est très gênant pour moi, je fais un code n'utilisant que des noms de groupes pour créer une liste facilement gérable mais je suis obligé de créer aussi un champ de valeur ou de chaine bidon pour qu'il puisse s'écrire dans le fichier. Auriez vous une astuce ou dois-je faire avec ?
En gros si vous testez le code suivant, celui n'écrit rien dans le fichier liste, mais si vous 'dé-commentez' la ligne 9, là ça fonctionne.
C'est très gênant pour moi, je fais un code n'utilisant que des noms de groupes pour créer une liste facilement gérable mais je suis obligé de créer aussi un champ de valeur ou de chaine bidon pour qu'il puisse s'écrire dans le fichier. Auriez vous une astuce ou dois-je faire avec ?
Code : Tout sélectionner
rep$=GetCurrentDirectory()
liste$="liste.txt"
Pref$=rep$+liste$
Global TOTO$
CreatePreferences(Pref$)
TOTO$="TOTO"
PreferenceGroup(TOTO$)
;WritePreferenceString("TOTO2","chaine bidon")
ClosePreferences()
NewList Apprec.s()
If OpenPreferences(Pref$)
ExaminePreferenceGroups()
While NextPreferenceGroup()
AddElement(Apprec())
Apprec()=PreferenceGroupName()
Wend
SortList(Apprec(), #PB_Sort_Ascending|#PB_Sort_NoCase )
ForEach Apprec()
Debug "Chaine TOTO$ : "+TOTO$
Debug "Nom du groupe : "+Apprec()
Next
ClosePreferences()
EndIf
