Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: VB6,VBS
Expertise: Intermediate
Oct 23, 1999



Building the Right Environment to Support AI, Machine Learning and Deep Learning

Check whether a string array contains an item (without a loop)

To determine whether a String array contains a given item it seems that you can't avoid writing a loop. However, you can do it with just one line of code, using the new VB6 Join function:

' 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
Note that the above code assumes that no item in the array contains the Chr$(0) character.

There are several variations of the theme. For example you can check whether any item in the String array begins with the searched substring using this code:

Found = InStr(1, vbNullChar & Join(arr, vbNullChar) , vbNullChar & search) > 0
And you can check whether the searched substring appears anywhere in any element of the String array:

Found = InStr(1, Join(arr, vbNullChar) , search) > 0
Francesco Balena
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date