Desktop Management スクリプト言語 › 関数 › 初期化ファイル（.INI）関数 › WriteIniEntry - .ini ファイルへの値の格納

WriteIniEntry - .ini ファイルへの値の格納

UNIX および Windows で有効です。

WriteIniEntry 関数は、初期化（.ini）ファイルに値を格納します。 ファイルがない場合は、作成されます。

この初期化ファイル（.ini）関数の形式は、以下のとおりです。

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

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

section

エントリおよび値を格納するセクションを指定します。

entry

値を格納するエントリを指定します。

value

格納する値を指定します。

grpfilename

初期化ファイルの名前を指定します。

filename

アドレス指定された初期化ファイルの名前。

注： WriteIniEntry{Filename as String} as Boolean の場合は、システムのキャッシュがフラッシュされるため、新しい値はリブートしなくてもアクティブになります。

この関数が正常に完了すると、TRUE が返されます。それ以外の場合は、FALSE が返されます。

例： 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