Desktop Management Scripting-Sprache › Funktionen › Funktionen für Initialisierungsdateien (.ini) › ReadIniEntry - Abrufen eines Wertes aus einem bestimmten Abschnitt

ReadIniEntry - Abrufen eines Wertes aus einem bestimmten Abschnitt

Gültig für UNIX und Windows.

Die Funktion "ReadIniEntry" übernimmt einen Wert aus einem angegebenen Abschnitt in einer Initialisierungsdatei (.ini).

Diese Initialisierungsdateifunktion (.ini) hat das folgende Format:

ReadIniEntry(section as String, entry as String, result as String, filename as String) as Integer

section

Gibt den Abschnitt an, der den Eintrag enthält.

entry

Gibt den Eintrag an, dessen zugehörige Zeichenfolge abgerufen werden soll.

Dateiname

Gibt den Namen der Initialisierungsdatei (.ini) an. Wenn nur der Dateiname angegeben wird, wird in Windows-Umgebungen das Windows-Verzeichnis und in Nicht-Windows-Umgebungen das aktuelle Verzeichnis durchsucht.

result

Kennzeichnet die Zeichenfolgenvariable, die den Wert übernehmen soll.

Bei erfolgreichem Aufruf geben "ReadIniEntry()" und "ReadIniSection(") einen positiven Wert zurück. Andernfalls wird null (0) zurückgegeben. Diese Funktion durchsucht die Initialisierungsdatei nach einem Eintrag, der mit dem durch "entry" angegebenen Namen unter der durch "section" angegebenen Abschnittsüberschrift übereinstimmt. Die betreffende Zeichenfolge wird in die Variable "result" kopiert.

Beispiel: Funktion "ReadIniEntry"

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