PKKO

¦^´_ 4# GBKEE

·PÁª©¤j,¤w¸g¤F¸Ñ,¶]°j°éªº¥Î³~¬OÅýDª«¥ó·|¦b°}¦C¤§¤º
¦b°j°é¤ºÅý­È¬°"" ¹ê»Ú¤W¥u¬Oitems·|Åܦ¨""
¤£¼vÅTÃöÁä¦r,¦]¦¹KEYS¥i¥H¥¿±`¿é¥X,·P®¦!!

GBKEE

¦^´_ 3# PKKO
¬°¦ó­nÅý¨C¤@­Ó°}¦C¤ºªºDª«¥ó³£Åܦ¨""
¦]¬°¥Î¤£¨ì°Ú

1. Option Explicit
   
2. Sub EX()
   
3.     Dim d                   '«Ø¥ß¤@­ÓÅܼÆ
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     '***********************
   
6.     d.Add "a", "Athens"     '¥[¤J¤@¨ÇÃöÁä¦r©M¶µ¥Ø
   
7.     d.Add "b", "Belgrade"
   
8.     d.Add "c", "Cairo"
   
9.     MsgBox Join(d.items, vbLf) '¶µ¥Ø
   
10.     MsgBox Join(d.keys, vbLf)  'ÃöÁä¦r
    
11. End Sub

½Æ»s¥N½X

PKKO

¦^´_ 2# GBKEE

ª©¤j¤Ó±j¤j¤F,§¹¥þ¥i¥H¨Ï¥Î
¥i§_½Ð±Ð¤@¤U
For Each E In AR

        D(E) = ""

    Next

¬°¦ó­nÅý¨C¤@­Ó°}¦C¤ºªºDª«¥ó³£Åܦ¨""
Keys ¤èªk Returns an array containing all existing keys in a Dictionary object.
D.KEYS
¹ê»Ú¤W³o­Óªº·N«ä¤£¬O«ÜÀ´!

GBKEE

¦^´_ 1# PKKO

¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub EX()
   
3.     Dim AR, D As Object, E As Variant
   
4.     AR = Array("XX", "aa", "ab", "ab", "ab", "XX", "ab")
   
5.     Set D = CreateObject("SCRIPTING.DICTIONARY")  '¦r¨åª«¥ó
   
6.     For Each E In AR
   
7.         D(E) = ""
   
8.     Next
   
9.     AR = D.KEYS
   
10.     MsgBox Join(AR, vbLf)
    
11.     Stop
    
12.     MsgBox Join(D.KEYS, vbLf)  '¦P¤W
    
13. End Sub

½Æ»s¥N½X