scripting.dictionary

[HESH]

Hello All
I want a clear example to understand the mechanism of scripting.dictionary
I have read much about it, But the idea did not receive
Can anyone explain to me


Your help is my appreciation and my respect

 

[GTO]

Greetings Hesh,

It may seem an odd question, but what year Excel are you using?

As to Dictionary, what parts are giving you fits? In the most general sense, I would describe it as a collection of unique keys, wherein each key has an associated defintion or value. Sort of like a two dimensional array, wherein each element of the first dimension is required to be unique. Is that making any sense?

Mark

 

[HESH]

Thank you Mark
i am using excel from 2007
and i will try to understand every thing
just please start

 

[Kenneth Hobson]

From script56.chm:

A Dictionary object is the equivalent of a PERL associative array. Items can be any form of data, and are stored in the array. Each item is associated with a unique key. The key is used to retrieve an individual item and is usually an integer or a string, but can be anything except an array.

 

[Weaver]

Do you have a specific application in mind or is it just curiosity?

The scripting dictionary object, as GTO says, is a container. It starts off empty and the way it's set up makes it easy to determine whether a given piece of data already exists in the container. If not, you can add it, if it does, you can increment or otherwise amend the value associated with it. This makes it very useful for quickly building up lists of unique values from otherwise duplicated data, among other things.

Why it's called "scripting dictionary", well, I have no idea. It confused the heck out of me, the first time I encountered it.

 

[HESH]

Weaver
just curiosity
i want to learn it

 

[brettdj]

Patrick Matthews (Excel MVP) has written an excellent article on using dictionaries in VBA, see http://www.experts-exchange.com/A_3391.html (this is freely accessible outside the EE paywall)

Cheers

Dave

 

[HESH]

Patrick Matthews (Excel MVP) has written an excellent article on using dictionaries in VBA, see http://www.experts-exchange.com/A_3391.html (this is freely accessible outside the EE paywall)

Cheers

Dave

i dead it before
but i want an example please with some explain

 

[Kenneth Hobson]

Download the help file. It explains what is what and gives an example. Searching gives lots of examples.

Sub DicDemo()
'Early Binding method requires Reference: MicroSoft Scripting Runtime, scrrun.dll
  Dim a, i As Integer   ' Create some variables.
  Dim pos As Integer
  'Dim d As Object 'Late Binding method
  Dim s As String
  Dim d As Dictionary     'Early Binding method
  Set d = New Dictionary  'Early Binding Method
  
  'Set d = CreateObject("Scripting.Dictionary")  'Late Binding method

  d.Add "a", "Athens"   ' Add some keys and items.
  d.Add "aa", "Athens" '
   
  Rem d.Add "a", "Belgrade"    'Illegal, no duplicate keys allowed.

  d.Add "b", "Cairo"

  d.Add "c", "Belgrade"

  a = d.Items    ' Get the items.
  'a = d.Keys      ' Get the keys.
   
  For i = 0 To d.Count - 1 ' Iterate the array.
    s = s & a(i) & "<BR>" ' Return results.
  Next i

  pos = WorksheetFunction.Match("Athens", WorksheetFunction.Transpose(a), 0)
  MsgBox "Athens = position " & pos
  
  pos = WorksheetFunction.Match("cairo", WorksheetFunction.Transpose(a), 0)
  MsgBox "Cairo = position " & pos
  
  MsgBox "Item Position 1 = " & d.Items(1) & vbCrLf & _
    "Item Position 3 = " & d.Items(3)
  d.Items
  On Error Resume Next
  pos = 0
  pos = WorksheetFunction.Match("Athens, Greece", WorksheetFunction.Transpose(a), 0)
  If pos <> 0 Then
    MsgBox "Athens, Greece = position " & pos
    Else
    MsgBox "Athens, Greece = Not Found"
  End If
  
  MsgBox d.Keys(1), , d.Items(1)
  
End Sub

 

[repairman615]

Hello,

Here is an example posted by ChrisOswald. This was the first time I have seen the scripting.dictionary. It is very interesting.


I cannot offer any insight, however I thought the examlple could help.

Here is the post:

http://www.mrexcel.com/forum/showpost.php?p=2851136&postcount=12


and here is the link to the thread:

http://www.mrexcel.com/forum/showthread.php?t=535754


-Jeff