PROCEDURE FusionneINI(sINISource, sINIDestination)
// sINISource : Chemin du fichier .INI qui sera copié dans la destination
// sINIDestination : Chemin du fichier .INI qui recevra le fichier source
// Aprés traitement sINIDestination a son contenu initial et en plus celui de sINISource
// Si une entrée est commune, c'est celle de sINISource qui est conservée au final
// Si sINIDestination est vide ou inexistant, il deviendra sINISource
sListeSectionSource, sSection sont des chaines
sListeMotcleSource, sMotCle sont des chaines
sListeSectionSource = INILit("","","", sINISource)
POUR TOUTE CHAINE sSection DE sListeSectionSource SEPAREE PAR RC
sListeMotcleSource = INILit(sSection, "", "", sINISource)
POUR TOUTE CHAINE sMotCle DE sListeMotcleSource SEPAREE PAR RC
SI sSection <> "" ET sMotCle <> "" ALORS
INIEcrit(sSection, sMotCle, ...
INILit(sSection, sMotCle, "", sINISource),...
sINIDestination)
FIN
FIN
FIN