Lib pour compter le nbre de "groups" d'un fichier
Publié : jeu. 27/août/2009 23:06
Voilà,
Dans mes suggestions d'amélioration il manque à mon gout une commande dans les PreferenceGroups permettant de renvoyer le nombre de groupes contenu dans un fichier pref.
J'ai donc fait une tite Lib en attendant une éventuelle commande native pour les prochaines moutures de PB.
La lib est dispo ICI
Dans mes suggestions d'amélioration il manque à mon gout une commande dans les PreferenceGroups permettant de renvoyer le nombre de groupes contenu dans un fichier pref.
J'ai donc fait une tite Lib en attendant une éventuelle commande native pour les prochaines moutures de PB.
Code : Tout sélectionner
; By Ar-S / 2009 - PB.4.30 - Windows XP x86
ProcedureDLL CountPrefGroups(file$)
If OpenPreferences(file$)
If ExaminePreferenceGroups()
NumGroup=0
While NextPreferenceGroup()
NumGroup=NumGroup+1
Wend
Else
NumGroup=0
EndIf
ClosePreferences()
EndIf
ProcedureReturn NumGroup
EndProcedure
; EXAMPLE
; Test=CountPrefGroups("VotrefichierPref")
; Debug Test
; End