ASPʵÏÖHashMap

'--------------------------------------------------------------
'ASP°æHashMapʵÏÖ
'¸ÃʵÏÖ´æ´¢Êý¾ÝΪÓÐÐòÊý¾Ý,ÀàËÆJavaÖеÄLinkedHashMap
'--------------------------------------------------------------
Class HashMap
 dim arr()
 dim arr_len
 
 '¹¹Ô캯Êý
 private Sub Class_Initialize
 'ÆäÖÐ arr(0,n)Ϊkey,arr(1,n)Ϊvalue
  arr_len = 0
  redim arr(1,arr_len)
 End Sub
 
 '========================
 '*put·½·¨ ÍùMAPÖвåÈë¼üÖµ¶Ô,Èç¹ûKey´æÔÚÔò¸²¸Ç
 '@k ¼üÖµkey
 '@v key¶ÔÓ¦µÄvalueÖµ
 '========================
 public Sub put(k,v)
  dim is_update
  is_update = false
  arr_len = ubound(arr,2)
  for i=0 to arr_len-1
   if k=arr(0,i) then
    arr(1,i) = v
    is_update = true
    exit for
   end if
  next
  if not is_update then
    arr_len = arr_len +1
    redim preserve arr(1,arr_len)
    arr(0,arr_len-1) = k
    arr(1,arr_len-1) = v
  end if
 End Sub
 
 '========================
 '*getv·½·¨ ͨ¹ýkeyÖµ»ñÈ¡¶ÔÓ¦µÄvalue
 '@k ¼üÖµkey
 '========================
 public Function getv(k)
  dim v
  for i=0 to arr_len
   if k=arr(0,i) then
    v = arr(1,i)
    exit for
   end if
  next
  getv = v
 End Function
 
 '========================
 '*keys·½·¨ »ñÈ¡MapÖÐËùÓеÄKEY,ÒÔÊý×éÐÎʽ·µ»Ø
 '========================
 public Function keys()
  dim v()
  Redim v(arr_len)
  for i=0 to arr_len-1
   v(i) = arr(0,i)
  next
  keys = v
 End Function
 '===================