ISDictionaryEntry.SingleMain

Description

The singular form of the source word from the dictionary entry.

Syntax

object.SingleMain

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

Restriction: This property is readonly.

Return Value

string

Example

Display the name of the dictionary and the short information about its entries, including the singular forms of the source words.

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 entries can be found in Maintain > Lexicon.

Version information

Added in v7.8.0