"Thierry FLENET" <t.flenet@wanadoo.fr> écrivait news:41e44df3$1
@news.pcsoft.fr:
Est ce que je doit encore garder un r,pertoire partag, par l'ensemble
des
postes de gestion pour garder ces fichiers .INI ?
Salut,
Fait un fichier avec les rubrique suivantes :
- NomFichier (chaine sur 256)
- Section (chaine sur 100)
- Entrée (chaine sur 100)
- Valeur (mémo texte)
- Une clé composée (unique non sensible à la casse ni aux accents) de :
NomFichier + Section + Entrée
IniLit("UneSection","UneEntrée","ValeurDefaut","FichierIni")
Devient
HLitRecherchePremier(NomFichierHFPourIni,CleComp,
("FichierIni","UneSection","UneEntrée"))
SI HTrouve(NomFichierHFPourIni) alors
Renvoyer "ValeurDefaut"
SINON
Renvoyer NomFichierHFPourIni.Valeur
FIN
ET
IniEcrit("UneSection","UneEntrée","ValeurAEcrire","FichierIni")
Devient
HLitRecherchePremier(NomFichierHFPourIni,CleComp,
("FichierIni","UneSection","UneEntrée"))
SI HTrouve(NomFichierHFPourIni) alors
NomFichierHFPourIni.Valeur="ValeurAEcrire"
HModifie(NomFichierHFPourIni)
SINON
NomFichierHFPourIni.NomFichier="FichierIni"
NomFichierHFPourIni.Section="UneSection"
NomFichierHFPourIni.Entrée="UneEntrée"
NomFichierHFPourIni.Valeur="ValeurAEcrire"
HAjoute(NomFichierHFPourIni)
FIN
--
En esperant t'avoir aidé.