TestScript/map.vbs

   1 ' \98A\91z\94z\97ñ
   2
   3 dim obj,obj2
   4 set obj = createobject("seraphyscripttools.objectmap")
   5 set obj2 = obj.createmap
   6
   7 obj.value("VAL1") = "SAMPLE1"
   8 obj.value("VAL2") = "SAMPLE2"
   9
  10 msgbox "\8aÂ\8b«\95Ï\90\94\93W\8aJ\82È\82µ" & vbcrlf & obj.expandvariables("VAL1=(%VAL1%)"+vbcrlf+"VAL2=(%VAL2%)" + vbcrlf + "\8aÂ\8b«\95Ï\90\94TMP(%TEMP%)",0)
  11 msgbox "\8aÂ\8b«\95Ï\90\94\93W\8aJ\82 \82è" & vbcrlf & obj.expandvariables("VAL1=(%VAL1%)"+vbcrlf+"VAL2=(%VAL2%)" + vbcrlf + "\8aÂ\8b«\95Ï\90\94TMP(%TEMP%)",1)
  12
  13 dim prof,sec,dlg
  14 set dlg  = createobject("seraphyscripttools.commdialog")
  15 set prof = createobject("seraphyscripttools.privateprofile")
  16 prof.profilepath = dlg.savefiledialog( ,"\8f\89\8aú\89»\83t\83@\83C\83\8b(*.ini)|*.ini|\82·\82×\82Ä(*.*)|*.*")
  17 if(len(prof.profilepath) > 0) then
  18         set sec  = prof.opensection("TEST")
  19         obj.saveprofile sec
  20         obj2.loadprofile sec
  21         for each x in obj2
  22                 msgbox x & vbcrlf & "= " & obj2.value(x)
  23         next
  24 end if