ISProfile.GetDictionary

Description

This function returns the dictionary by its name.

Syntax

object.GetDictionary(Name)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`Name`	In, Required	string	The name of the dictionary

Return Value

ISDictionary

Returns the dictionary by its name.

Example

Display the name of the dictionary, the list of dictionary entries and some information about them.

Dim aAllEntries
Dim aEntry
Dim aDictInfo
Dim i

Set aDictionary = Profile.GetDictionary("Legal")
set aAllEntries = aDictionary.AllEntries  

aDictInfo = _
  "Dictionary name: " & aDictionary.Name & vbNewLine &_  
  "Entry Count: " & aAllEntries.Count & vbNewLine & vbNewLine &_ 
  "#  Main Sing.    Main Plur.    Abbr. Sing.    Abbr. Plur."  

for i = 0 to aAllEntries.Count - 1
  set aEntry =  aAllEntries.Item(i) 
  aDictInfo = aDictInfo & vbNewLine & (i + 1) & ") " &_
    aEntry.SingleMain & "           " & aEntry.PluralMain & "        " &_
    aEntry.AbbrSingleMain & "                 " & aEntry.AbbrPluralMain         
next

Profile.MsgBox(aDictInfo)

Note:

In Profile Client v8 on User Interface Dictionary can be found in Maintain > Lexicon.

Version information

Added in v7.8.0