<-- Previous || Up || Next -->

Character Counts To Variant Vector Function
Character Arrays Class

Public Function CharacterCountsToVariantVector( _
      ByRef rCounts() As Variant _
    , ByVal vString As Variant _
    ) As Boolean

Fill the elements of an Integer array so that they each represent the number of occurrences of the character with that ASCII value in string vString.

       Dim avarCounts() As Variant
    for example
       CharacterCountsToVariantVector avarCounts(), "ABBCCC"
       LBound(avarCounts) = 0
       UBound(avarCounts) = 255
       avarCounts(X) = 0
    except for
       avarCounts(Asc("A")) = avarCounts(65) = 1
       avarCounts(Asc("B")) = avarCounts(66) = 2
       avarCounts(Asc("C")) = avarCounts(67) = 3
See also:
    FileCharacterFrequency Function
    SortCharactersByFrequency Function
rCounts: The dynamic array of Variants in which the character counts will be stored.
vString: The strings whose character counts are to be determined. Function returns False and leaves rCounts uninitialized if vString is Null or cannot be fixed up to a String.

Function returns True upon success.

Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.