Desktop Management Scripting-Sprache › Funktionen › Funktionen für Initialisierungsdateien (.ini) › WriteIniEntry - Speichern eines Wertes in einer INI-Datei

WriteIniEntry - Speichern eines Wertes in einer INI-Datei

Gültig für UNIX und Windows.

Die Funktion "WriteIniEntry" speichert einen Wert in einer Initialisierungsdatei (.ini). Wenn die Datei nicht vorhanden ist, wird sie mit dieser Funktion neu erstellt.

Diese Initialisierungsdateifunktion (.ini) hat das folgende Format:

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

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

section

Gibt den Abschnitt an, in dem der Eintrag und der Wert gespeichert werden sollen.

entry

Gibt den Eintrag an, in dem der Wert gespeichert werden soll.

value

Gibt den zu speichernden Wert an.

grpfilename

Gibt den Namen der Initialisierungsdatei an.

Dateiname

Der Name der adressierten Initialisierungsdatei.

Hinweis: Im Fall von "WriteIniEntry{Filename as String} as Boolean" wird der Inhalt des Zwischenspeichers des Systems gelöscht, so dass die neuen Werte ohne Neustart aktiviert werden.

Bei erfolgreichem Abschluss gibt die Funktion TRUE zurück, andernfalls FALSE.

Beispiel: Funktion "WriteIniEntry"

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)
		exit
	end if
	closeFile(rtr)
end if
	
section = "Section 1"
value = "Param_1 = Wert_1" + LF + "Param_2 = Wert_2"

if WriteIniSection( section, value, file) then
	Print("WriteIniSection successfully completed.")
else
	Print("WriteIniSection failed.")
endif

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

if WriteIniEntry( section, entry, value, file) then
	Print("WriteIniFile successfully completed.")
else
	Print("WriteIniFile failed.")
endif

section = "Section 1"
rtr = ReadIniSection(section, value, file)
if (rtr > 0) then
	Print( Str(rtr) + CR + LF + value)
else
	Print("ReadIniSection failed.")
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("ReadIniEntry failed.")

endif