ISIntCollection.Clear

Example

Display the number of the integer values within the collection before and after the clearing.

Dim aItemCount
Dim aIntColl
Dim aValue
Dim aResultCount
Dim aUsedIndices
Dim aIndex
Dim aMessage

aItemCount = 70

Set aIntColl = Profile.CreateIntCollection

for i = 1 to aItemCount
  aValue = i * 10
  aIntColl.Add(aValue)
next

Randomize

aResultCount = 10
set aUsedIndices = Profile.CreateIntCollection
aMessage = aMessage & vbNewLine &_
  "The number of the integer values in the collection before the clearing is " & " " & aIntColl.Count
do
  aIndex = Int(aItemCount * Rnd)
  aUsedIndices.AddSortedDistinct(aIndex) 
loop until aUsedIndices.Count = aResultCount   

for i = 0 to aUsedIndices.Count - 1
  aIndex = aUsedIndices.Item(i)
  aValue = aIntColl.Item(aIndex) 

  aMessage = aMessage & vbNewLine & "IntValue(" & aIndex & ") = " & aValue  
next 

aIntColl.Clear

aMessage = aMessage & vbNewLine &_
  "The number of the integer values in the collection after the clearing is " & " " & aIntColl.Count  

Profile.MsgBox(aMessage)