Manuel du langage de script Desktop Management › Fonctions › Fonctions de fichier d'initialisation (.ini) › WriteIniEntry : Stocker une valeur dans un fichier .ini

WriteIniEntry : Stocker une valeur dans un fichier .ini

Valide sous UNIX et Windows

La fonction WriteIniEntry stocke une valeur dans un fichier d'initialisation (.ini). Si le fichier n'existe pas, cette fonction le crée.

Format de la fonction :

WriteIniEntry(section as String, entry as String, value as String, grpfilename as String) as Boolean

WriteIniEntry(filename as String) as Boolean (Windows only)

section

Identifie la section dans laquelle stocker l'entrée et la valeur.

entrée

Spécifie l'entrée dans laquelle stocker la valeur.

value

Identifie la valeur à stocker.

grpfilename

Identifie le nom du fichier d'initialisation.

nom_fichier

Nom du fichier d'initialisation adressé.

Remarque :Dans le cas de WriteIniEntry{Filename as String} as Boolean, le cache du système est vidé. Par conséquent, les nouvelles valeurs deviennent actives sans redémarrage.

En cas de réussite, la fonction renvoie la valeur True. Dans le cas contraire, elle renvoie la valeur False.

Exemple :

Dim file, section, entry, value as string

Dim LF, CR as char
Dim rtr as integer

ClrScr()
LF = 0x0a
CR = 0x0d
file = "c:\dmscript.ini"
if Not(ExistFile(file)) then
	rtr = CreateFile(file, O_TEXT)
	if rtr = -1 then
		SetStatus(1)
		quitter
	end if
	closeFile(rtr)
end if
	
section = "Section 1"
value = "Param_1 = Valeur_1" + LF + "Param_2 = Valeur_2"

if WriteIniSection( section, value, file) then
	Print("Réussite de WriteIniSection.")
else
	Print("Echec de WriteIniSection.")
endif

section = "Section 2"
entry = "Param_3"
value = "Valeur_3"

if WriteIniEntry( section, entry, value, file) then
	Print("Réussite de WriteIniFile.")
else
	Print("Echec de WriteIniFile.")
endif

section = "Section 1"
rtr = ReadIniSection(section, value, file)
if (rtr > 0) then
	Print( Str(rtr) + CR + LF + value)
else
	Print("Echec de ReadIniSection.")
endif

section = "Section 2"
entry = "Param_3"
rtr = ReadIniEntry(section, entry, value, file)

if (rtr > 0) then
	Print( Str(rtr) + CR + LF + entry + " = " + value)
else
	Print("Echec de ReadIniEntry.")

endif