How can I pass an Array so I can get the verable count?

[USAMax]

I have a routine that counts variables but I have to pass a string so it knows which one to test. There has to be a better way.

Private Function ArrayVariableCount(Arr As String)
    Dim nonEmptyElements As Integer, i As Integer           '
    nonEmptyElements = 0: i = 0                             '
    If Arr = "SOA" Then                                     '
        For i = LBound(SOA) To UBound(SOA)                  '
            If Not SOA(i) = "" Then                      '
                nonEmptyElements = nonEmptyElements + 1     '
            End If                                          '
        Next                                                '
    Else                                                    '
        If Arr = "COA" Then                                 '
            For i = LBound(COA) To UBound(COA)              '
                If Not COA(i, 0) = "" Then                  '
                    nonEmptyElements = nonEmptyElements + 1 '
                End If                                      '
            Next                                            '
        End If                                              '
    End If
    ArrayVariableCount = nonEmptyElements                   '
End Function

 

[shg]

What are SOA and COA -- public arrays? Of what type?

Why not just pass the array of interest to the function?

[PLAIN]Private Function CountEm(asInp() As String)
    Dim i As Long
    

    For i = LBound(asInp) To UBound(asInp)
        If Len(asInp(i)) Then CountEm = CountEm + 1
    Next i
End Function
[/PLAIN]

 

[USAMax]

Thank you for the fast response! I see you even improved my counter, thank you!

They are both public arrays an as you can see they have a different number of parameters.

I will not be able to try this for a couple of hours but how will I pass the array. CountEm(COA), CountEm(COA()), CountEm(COA())?

 

[USAMax]

Thank you for the fast response! I see you even improved my counter, thank you!

They are both public arrays an as you can see they have a different number of parameters.

I will not be able to try this for a couple of hours but how will I pass the array. CountEm(COA), CountEm(COA()), CountEm(COA())?

 

[shg]

myCount =  CountEm(COA)

 

[USAMax]

Thank you so much, that is exactly what I was looking for!

You're amazing!

 

[shg]

You're welcome.

 

[Rick Rothstein]

What are SOA and COA -- public arrays? Of what type?

Why not just pass the array of interest to the function?

[PLAIN]Private Function CountEm(asInp() As String)
    Dim i As Long
    

    For i = LBound(asInp) To UBound(asInp)
        If Len(asInp(i)) Then CountEm = CountEm + 1
    Next i
End Function
[/PLAIN]

@Everyone,

Whatever you do, make sure to use shg's code and not what follows (as it is almost assurely slower than shg's code), but I was curious to see what this function would look like as a one-liner...

Private Function CountEm(asInp() As String) As Long
  CountEm = UBound(Split(Application.Trim(Replace(Replace(Join(asInp, Chr(1)), " ", Chr(2)), Chr(1), " ")))) + 1
End Function

@shg

I noticed in the tags you place around your code, you use "[noparse]" and its slashed companion... what do those tags do?

 

[USAMax]

Oh crap Rick, you are making my head hurt! That is amazing but when it comes to trouble shooting this it would become a problem.

Still, I IMPRESSED!

 

[Rick Rothstein]

Oh crap Rick, you are making my head hurt! That is amazing but when it comes to trouble shooting this it would become a problem.

Still, I IMPRESSED!

Your head should be safe from pain as I did say not to use it.

As for needing to trouble shoot it... that would not be a problem as the code works perfectly.