'-----------------------------------
'  初期化ファイル INI　のアクセス2
'-----------------------------------
' 実行するとINIファイルを訪ねてきます
' 指定すると以前のINIファイルの内容を連想配列に格納します
' その結果を、あたらしい別のINIファイルに保存します。

option explicit

dim pro1,pro2,shl,dlg,map,section,outname
set pro1 = createobject("SeraphyScriptTools.privateprofile")
set pro2 = createobject("SeraphyScriptTools.privateprofile")
set shl = createobject("SeraphyScriptTools.Shell")
set dlg = createobject("SeraphyScriptTools.commdialog")
set map = createobject("SeraphyScriptTools.ObjectMap")

pro1.profilepath = "c:\test.ini"
pro2.profilepath = "c:\test.txt"
do
	pro1.profilepath = dlg.OpenFileDialog(pro1.profilepath)
	if(len(pro1.profilepath) <= 0) then exit do
	set section = pro1.OpenSection("TEST-DATA")
	map.LoadProfile section
	pro2.profilepath = dlg.SaveFileDialog(pro2.profilepath)
	if(len(pro2.profilepath) <= 0) then exit do
	set section = pro2.OpenSection("DUPLICATE")
	map.SaveProfile section
loop