'----------------------------------
'  初期化ファイル INI　のアクセス
'----------------------------------
' 実行するとINIファイルの保存先を訪ねてきます
' 指定すると以前のINIファイルの内容を加算します。
' 加算されると結果をメモ帳で開きます

dim obj,shl
set obj = createobject("SeraphyScriptTools.privateprofile")
set shl = createobject("SeraphyScriptTools.Shell")
set dlg = createobject("SeraphyScriptTools.commdialog")

obj.profilepath = "c:\test.ini"
do
	obj.profilepath = dlg.savefiledialog(obj.profilepath)
	if(len(obj.profilepath) <= 0) then exit do
	dim sec
	set sec = obj.opensection("TEST_SECTION1")
	sec.value("VALUE1") = sec.value("VALUE1") + 1
	sec.value("VALUE2") = sec.value("VALUE2") + 10
	set sec = obj.opensection("TEST_SECTION2")
	sec.value("VALUE1") = sec.value("VALUE1") + 100
	sec.value("VALUE2") = sec.value("VALUE2") & "ABC"
	dim array,mes
	array = sec.GetKeyNames()
	for each x in array
		mes = mes & "," & x
	next
	msgbox mes
	shl.ShellExecute("notepad.exe",obj.profilepath).wait -1
loop