ISDictionary.EntryCount

Description

The number of entries in the dictionary.

Syntax

object.EntryCount

Part	Attribute	Type	Description
`object`	Required	ISDictionary	The `object` always implements the ISDictionary interface

Restriction: This property is readonly.

Return Value

int

Example

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

Dim aDictionary
Dim aAllEntries, 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 the dictionary can be found in Maintain > Lexicon.

Version information

Added in v7.8.0