Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Array width?
Message
From
14/06/2001 11:57:02
 
 
General information
Forum:
Visual Basic
Category:
Coding, syntax & commands
Title:
Miscellaneous
Thread ID:
00519394
Message ID:
00519445
Views:
10
>How to find out an arrays width?
>Finding the length/records is done but what about the width/number of elements?
>
>I am sure I have missed a very simple function somewhere...

Hopefully there is a more elegant solution than what I have done here, but I had to move forward on this I am still hopefull. :)
' **************************************************************
' GetArrayWidth: This function Return the width of array elements
'     Author: Joe Johnston 6/14/2001  
'     Parameters: aArray - Array to be checked
' **************************************************************
Public Function GetArrayWidth(aArray) as integer
    Dim i As Integer, x
    'Dim aArray(3, 1 To 10, 1 To 15, 25) ' for testing
    
    On Error Resume Next  ' dont stop on error
    For i = 1 To 32000    ' 32000 max should more than enough
                          '   didn't Bill Gates say something 
                          '   similar about 640K ?? 
        x = UBound(aArray, i)            ' a call might work here 
        If Err.Number = 9 Then Exit For  ' wait for the overflow
    Next i
    
    GetArrayWidth = (i - 1)  ' return the last good value
End Function
~Joe Johnston USA

"If ye love wealth better than liberty, the tranquility of servitude better than the animated contest of freedom, go home from us in peace. We ask not your counsel or arms. Crouch down and lick the hands which feed you. May your chains set lightly upon you, and may posterity forget that ye were our countrymen."
~Samuel Adams

Previous
Next
Reply
Map
View

Click here to load this message in the networking platform