Visual Basic Scripting Edition | ÕZÑÔ…¢¿¼ |
ÔO(sh¨¨)Öûò·µ»Ø Dictionary Œ¦(du¨¬)ÏóÖÐÖ¸¶¨µÄ key Œ¦(du¨¬)‘ª(y¨©ng)µÄ item£¬»ò·µ»Ø¼¯ºÏÖлùÓÚÖ¸¶¨µÄ key µÄ item¡£¿É×xŒ‘¡£
object.Item(key) [= newitem]
object
±Øßxí—(xi¨¤ng)¡£‘ª(y¨©ng)žé¼¯ºÏ»ò Dictionary Œ¦(du¨¬)ÏóµÄÃû·Q¡£
key
±Øßxí—(xi¨¤ng)¡£Åc™zË÷»òÌí¼ÓµÄ item ÏàêP(gu¨¡n)“(li¨¢n)µÄ key¡£
newitem
¿Éßxí—(xi¨¤ng)¡£ƒHÓÃÓÚ Dictionary Œ¦(du¨¬)Ï󣬲»ÄÜ‘ª(y¨©ng)ÓÃÓÚ¼¯ºÏ¡£Èç¹ûÌṩ´Ë…¢”µ(sh¨´)£¬„t newitem ÊÇÅcÖ¸¶¨µÄ key ÏàêP(gu¨¡n)“(li¨¢n)µÄí—(xi¨¤ng)Ä¿µÄÐÂÖµ¡£
Èç¹û¸ü¸Ä item •r(sh¨ª)δÕÒµ½ key£¬„tʹÓÃÖ¸¶¨µÄ newitem „“(chu¨¤ng)½¨Ò»‚€(g¨¨)Ð嵀 key¡£Èç¹ûÔ‡ˆD·µ»ØÒ»‚€(g¨¨)ÒÑÓÐí—(xi¨¤ng)Ä¿•r(sh¨ª)δÕÒµ½ key£¬„t„“(chu¨¤ng)½¨Ò»‚€(g¨¨)Ð嵀 key ²¢ÇÒËüŒ¦(du¨¬)‘ª(y¨©ng)µÄí—(xi¨¤ng)Ä¿žé¿ÕÖµ¡£
ÏÂÃæÀý×ÓÅeÀýÕfÃ÷ÈçºÎʹÓà Item ŒÙÐÔ£º
Function ItemDemo Dim d '
„“(chu¨¤ng)½¨×ƒÁ¿.
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens" '
Ìí¼ÓæIºÍí—(xi¨¤ng)Ä¿Œ¦(du¨¬).
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
ItemDemo = d.Item("c") '
µÃµ½í—(xi¨¤ng)Ä¿.
End Function
CompareMode ŒÙÐÔ | Count ŒÙÐÔ | Key ŒÙÐÔ
‘ª(y¨©ng)ÓÃÓÚ£ºDictionary Œ¦(du¨¬)Ïó | Drives ¼¯ºÏ | Files ¼¯ºÏ | Folders ¼¯ºÏ | Matches ¼¯ºÏ