Posted by: Sourav | April 7, 2014

Searching through an array in VB 6.0


Private Sub Command1_Click()
Dim StrArray(3) As String
StrArray(0) = “ABCDEFG”
StrArray(1) = “vbvhbh”
StrArray(2) = “ABCDEFG”

Dim FindThisString As String
FindThisString = “ABCDEFGfef”
Dim b As Integer
Dim found As Boolean
found = False

b = (UBound(StrArray))
For i = 0 To b – 1
If FindThisString = StrArray(i) Then
Print “found in ” & i
found = True
End If

 

Next i
If found = False Then
Print “not found”
End If

End Sub

 

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Categories

%d bloggers like this: