ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð±Ðvba³o¬qµ{¦¡ªº·N«ä

¦^´_ 1# alsr
VBA ªº»¡©ú
Dictionary ª«¥ó
ª«¥ó¡A¥Î©óÀx¦s¸ê®ÆÃöÁä¦r©M¶µ¥Ø¹ï¡C
½Ðª`·N
Dictionary ª«¥ó»P PERL ¬ÛÃö°}¦C¥þµ¥¡C¥i¥H¬O¥ô¦ó«¬¦¡ªº¸ê®Æªº¶µ¥Ø³QÀx¦s¦b°}¦C¤¤¡C¨C­Ó¶µ¥Ø³£»P¤@­Ó°ß¤@ªºÃöÁä¦r¬ÛÃö¡C¸ÓÃöÁä¦r¥Î¨Ó¨ú¥X³æ­Ó¶µ¥Ø¡A³q±`¬O¾ã¼Æ©Î¦r¦ê¡A¥i¥H¬O°£°}¦C¥~ªº¥ô¦ó«¬ºA¡C

Split ¨ç¼Æ
¶Ç¦^¤@­Ó³¯¦C¯Á¤Þ±q¹s¶}©lªº¤@ºû°}¦C¡A¥¦¥]§t«ü©w¼Æ¥Øªº¤l¦r¦ê¡C
  1. Option Explicit
  2. Sub Ex()
  3.     Dim D As Object, KEY As Variant
  4.     Set D = CreateObject("SCRIPTING.DICTIONARY")  '¦r¨åª«¥ó
  5.     D("ABC") = "ISABC"    'ABC ¬O¦r¨åª«¥óªºKEY (ÃöÁä¦r) 'ISABC ¬O¦r¨åª«¥óªºITEM
  6.     D("BCD") = ""
  7.     [a1] = "Excel_VBA"
  8.     Set D("CDE") = [a1]
  9.     MsgBox Join(D.KEYS, ",")
  10.     MsgBox Join(D.ITEMS, ",")
  11.     For Each KEY In D.KEYS
  12.         Debug.Print KEY
  13.     Next
  14.     For Each KEY In D.ITEMS
  15.         Debug.Print KEY
  16.     Next
  17. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD