Posted by: Sourav | April 7, 2014

Another way to search through an array in VB 6.0


Private Sub Command1_Click()
Dim StrArray(2) As String
StrArray(0) = “ABCDEFG”
StrArray(1) = “HIJKLMNOP”
Dim FindThisString As String
FindThisString = “ABCDEFG”
Dim str As Variant
Dim test As String
test = Join(StrArray)
‘Print test

If InStr(test, FindThisString) > 0 Then
Print “found”
Else
Print “nfound”
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: