Highlights
All Snippets
Top 100 Snippets
Librarians
gbCodeLib

By Language
VB6
JavaScript
Perl
HTML
SQL
Java
DOS

GBIC >> Source Code >> Visual Basic >> Snippet

Search an array


'search for first occurrence of TestValue in MyArray
'if you know the upper/lower limits of the array, just use them
'TestValue and MyArray should have the same type
Dim TestValue As String
TestValue = "searchstring"
For i = Lbound (MyArray) To Ubound (MyArray)
    If MyArray(i) = TestValue Then
       'value found, do something
  Exit For     'stop searching
    End If
next i


'search all elements of MyArray for TestValue
'if you know the upper/lower limits of the array, just use them
'TestValue and MyArray should have the same type
Dim TestValue As String
TestValue = "searchstring"
For i = Lbound (MyArray) To Ubound (MyArray)
    If MyArray(i) = TestValue Then
        'value found, do something, then continue searching
    End If
next i