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