Scripting.Dictionary :)

Det jeg kender til et Site Server Commerce Edition der har et dictionary object. Er det det du snakker om ?

Eh...det ved jeg ik...tror jeg ik?

Jeg mener hvor man bruger det i forbindelse med

Set objFS = Server.CreateObject(\"Scripting.Dictionary\")
Application.Lock
Application(\"users\") = objFS
Application.UnLock

Osv..?

Nu er jeg lidt mere med. Jeg har lige taget et hurtigt kig i VBS dokumentationen.

Scripting.dictionary objektet virket stort set som et 2 dimensionelt array, hvar man har et nøglefelt og et datafelt.

Man kan så nemt tilføje: objFS.Add \"nøgle1\", \"data1\"

Finde data igen
objFS.Item(\"nøgle1\") (returnere \"data1\")

osv.

Kig selv i VBS dokumantationen

NB. jeg har ikke prøvet noget af det.

Og tælle items:
objFS.count

Kan det her på nogen måde laves med det?

<%@ LANGUAGE=\"VBSCRIPT\" %>
<%
Option Explicit
Dim objFS, i, username

username = request(\"username\")
Set objFS = CreateObject(\"Scripting.Dictionary\")
for i = 1 to 100
if objFS.Item(i) = \"\" Then
objFS.Add i = username
set objFS = nothing
response.redirect(\"view.asp\")
end if
next
%>

Dictionary er et objekt der implementerer et Associativt array, dvs et array hvor du udfra en nøgle kan finde indhold. Det er stor set ligesom et array - hvor man f.eks.  A[0] A[1] til at hente det første eller andet element frem.

\'Almindeligt array
A = ARRAY(\"A\",\"B\",\"C\")
A[0] indeholder \"A\"

\'Associativt array:
Set objDic = CreateObject(\"Scripting.Dictionary\")
objDic.Add 1,\"A\"
objDic.Add 2,\"B\"
objDic.Add 3,\"C\"

objDic.Item(1) returnerer \"A\"

\'Eller:
Set objDic = CreateObject(\"Scripting.Dictionary\")
objDic.Add \"User1\",\"password1\"
objDic.Add \"User2\",\"password2\"
objDic.Add \"User3\",\"password3\"
\' hente:
objDic.Item(\"User1\") returnerer \"password1\"

\'Udskrive alle sammen
For Each Key In objDic
  Response.Write(Key &\",\" &objDic.Item(Key) &\"<BR>\")


Læs mere om objektet her:
http://www.activeserverpages.dk/iishelp/vbscript/htm/vbsfsoTOC.htm

Next \' manglede ;=)

Hm...det var ca. det jeg læste mig fram til på netcoders :)

Rydder op!