Using 'Contains' on an Array

Question

Ok, so I'm not very familiar with VB6 but I'm trying to see if an array contains a value. This is what I have but it's throwing up an error to me. Could be an issue with the "passedValue" being the wrong type but I don't think so.

    Dim transCodes As Variant
    transCodes = Array(40, 41, 42, 43)
    If (transCodes.Contains("passedValue")) Then
    *Do Stuff*
    End If

Any help would be really appreciated!

UPDATE

Failing correcting my syntax, could you give me an example for the cast/convert I might use to ensure the "passedValue" was of the right type?

UPDATING MY UPDATE

So is there no 'Contains' method in VB6? Any other ways of doing this simple task?

Deanna · Accepted Answer · 2014-09-29 13:50:40Z

11

VB6 doesn't have a native Contains method on arrays.

Your best option is to walk the array checking each item in turn:

Found = False
For Index = LBound(transCodes) To UBound(transCodes )
  If transCodes(Index) = PassedValue Then
    Found = True
    Exit For
  End If
Next

If Found Then
  'Do stuff
  'Index will contain the location it was found
End If

Alternatives include using a collection and trying to retreive items based on their value, but this is much more work for this simple case.

edited Sep 29, 2014 at 13:50

answered May 23, 2012 at 13:53

Deanna

24.4k7 gold badges76 silver badges162 bronze badges

Sign up to request clarification or add additional context in comments.

6 Comments

windowsgm Over a year ago

Sigh, wow VB6 really is legacy when it can't even do simple things like this. I'm used to C#. Will try and just walk through it now.

dlras2 Over a year ago

Note that if your array is in order (as your example is) you can optimize this to perform a binary search instead of walking the entire array. This will give you much better performance if you have a massive array.

windowsgm Over a year ago

@Deanna Hmm I think I'm still getting a parse issue. Could you show me how to convert PassedValue into the correct type also?

Deanna Over a year ago

I'd assumed they were both the same types. If they're numbers, there shouldn't be a problem. If one is a string, then pass it to Val() first. What exact problem are you having?

dlras2 Over a year ago

@Deanna I would prefer CInt() to Val() (or the corresponding C__() function.)

|

Luís Cruz · Accepted Answer · 2015-10-25 12:38:11Z

4

If you want this in just one line, you can check whether a string array contains an item (without a loop) with the following code:

' ARR is an array of string, SEARCH is the value to be searched
Found = InStr(1, vbNullChar & Join(arr, vbNullChar) & vbNullChar, _
vbNullChar & search & vbNullChar) > 0

This was taken from a Devx tip

edited Oct 25, 2015 at 12:38

Luís Cruz

15k16 gold badges71 silver badges100 bronze badges

answered Oct 25, 2015 at 11:51

Mostafa Anssary

1359 bronze badges

2 Comments

AAP Over a year ago

I only must change vbNullChar by " ". With vbNullChar don´t worked for me

Deanna Over a year ago

That is suitably horrible! I'm impressed :)

Ken Forslund · Accepted Answer · 2016-09-02 19:02:32Z

1

I wrapped Deanna's answer as a VB6 function:

Public Function StringArrayContains(ByRef arrString() As Boolean, PassedValue) As String
   Dim Found As Boolean
   Found = False
   Dim index  As Integer
    For Index = LBound(arrString) To UBound(arrString)
      If arrString(Index) = PassedValue Then
        Found = True
        Exit For
      End If
    Next
    StringArrayContains = Found
End Function

edited Sep 2, 2016 at 19:02

answered Sep 2, 2016 at 15:45

Ken Forslund

3402 silver badges9 bronze badges

1 Comment

Jerry Over a year ago

Careful : "as boolean" and "as string" are inverted, in the first line.

AAP · Accepted Answer · 2016-01-23 15:29:47Z

0

Finally based on @Mostafa Anssary

I used this function

    Function instrSplit(ByVal searchEstado As String, ByVal arrayEstados As String)

       instrSplit = 0

       instrSplit = InStr(1, " " & Join(Split(arrayEstados, ","), " ") & " ", _
                " " & searchEstado & " ")

    End Function

And I Call by

found = instrSplit(mySearchValue, arrayValues)

For example

arrayValues = "8, 64, 72, 1520"
mySearchValue  = "8"


found = instrSplit(mySearchValue, arrayValues)

answered Jan 23, 2016 at 15:29

AAP

2611 gold badge3 silver badges10 bronze badges

Collectives™ on Stack Overflow

Using 'Contains' on an Array

4 Answers 4

6 Comments

2 Comments

1 Comment

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

4 Answers 4

6 Comments

2 Comments

1 Comment

Comments

Your Answer

Sign up or log in

Post as a guest

Related