Determine Number of elements in array?

[tfayer]

How do I determine the number of elements in array?

 

[JohnYingling]

Dim lngNum as long

lngNum = UBound(ary) - LBound(ary) + 1

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[tfayer]

What if the array ellements are strings. Such as using the Split Function on the string "one two thre" delimetter = " ". I want it two return the value of 3.

 

[johnwm]

Exactly what problem are you seeing?
Did you actually try the solution given?

Using JohnYingling's solution works fine for me:

Dim myString As String
Dim myAry() As String
Dim myCount As Long
myString = "one two three"
myAry = Split(myString, " ")
myCount = UBound(myAry) - LBound(myAry) + 1
MsgBox myCount

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'People who live in windowed environments shouldn't cast pointers.'

 

[MichaelRed]

It is o.k. for the trivial (single dimension).

Public Function basNumAryElem(MyAry() As Variant) As Long

    'Michael Red    11/22/02

    Dim MyProd As Double
    Dim Idx As Integer

    On Error GoTo ErrTrap

    MyProd = 1
    Idx = 1

    While True = True
        MyProd = MyProd * UBound(MyAry, Idx)
        Idx = Idx + 1
    Wend
    
ErrTrap:
    basNumAryElem = MyProd
End Function
Public Function basTestumAryElem() As Long

    Dim MyArray(2, 3, 4, 5, 6) As Variant
    basTestumAryElem = basNumAryElem(MyArray())

End Function

MichaelRed
m.red@att.net

Searching for employment in all the wrong places