TestScript/pro2.vbs

   1 '-----------------------------------
   2 '  \8f\89\8aú\89»\83t\83@\83C\83\8b INI\81@\82Ì\83A\83N\83Z\83X2
   3 '-----------------------------------
   4 ' \8eÀ\8ds\82·\82é\82ÆINI\83t\83@\83C\83\8b\82ð\96K\82Ë\82Ä\82«\82Ü\82·
   5 ' \8ew\92è\82·\82é\82Æ\88È\91O\82ÌINI\83t\83@\83C\83\8b\82Ì\93à\97e\82ð\98A\91z\94z\97ñ\82É\8ai\94[\82µ\82Ü\82·
   6 ' \82»\82Ì\8c\8b\89Ê\82ð\81A\82 \82½\82ç\82µ\82¢\95Ê\82ÌINI\83t\83@\83C\83\8b\82É\95Û\91¶\82µ\82Ü\82·\81B
   7
   8 option explicit
   9
  10 dim pro1,pro2,shl,dlg,map,section,outname
  11 set pro1 = createobject("SeraphyScriptTools.privateprofile")
  12 set pro2 = createobject("SeraphyScriptTools.privateprofile")
  13 set shl = createobject("SeraphyScriptTools.Shell")
  14 set dlg = createobject("SeraphyScriptTools.commdialog")
  15 set map = createobject("SeraphyScriptTools.ObjectMap")
  16
  17 pro1.profilepath = "c:\test.ini"
  18 pro2.profilepath = "c:\test.txt"
  19 do
  20         pro1.profilepath = dlg.OpenFileDialog(pro1.profilepath)
  21         if(len(pro1.profilepath) <= 0) then exit do
  22         set section = pro1.OpenSection("TEST-DATA")
  23         map.LoadProfile section
  24         pro2.profilepath = dlg.SaveFileDialog(pro2.profilepath)
  25         if(len(pro2.profilepath) <= 0) then exit do
  26         set section = pro2.OpenSection("DUPLICATE")
  27         map.SaveProfile section
  28 loop
  29
  30
  31