How to check if text1 contains text2 using vb6?

Question

How to check if text1 contains text2 using vb6 ?

Dim text1 as string
Dim text2 as string

text1 = "hello world I am Anas"
text2 = "Anas"

if (check if text2 is in text1) 'the result should be true or false

score 32 · Accepted Answer · edited Jul 11 '17 at 15:11

32

You can use InStr function like this:

Dim position As Integer

position = InStr(1, stringToSearch, stringToFind)

If position > 0 Then
  ' text is inside
Else
  ' text is not inide 
End If

edited Jul 11 '17 at 15:11

StayOnTarget

11,743
10
52
81

answered Dec 31 '10 at 16:33

Sarfraz

377,238
77
533
578

score 16 · Answer 2 · answered Dec 31 '10 at 16:30

16

Use InStr:

If InStr(text1, text2) > 0 Then

answered Dec 31 '10 at 16:30

Oded

489,969
99
883
1,009

1

+1 but why not link to the VB6 manual entry for Instr http://msdn.microsoft.com/en-us/library/aa445031(v=VS.60).aspx – MarkJ Dec 31 '10 at 17:05

score 5 · Answer 3 · answered Dec 31 '10 at 16:30

5

This should do the trick:

if (InStr(text1, text2) > 0)

Check http://msdn.microsoft.com/en-us/library/8460tsh1(v=vs.80).aspx for special cases (parameters are Nothing, empty strings etc.)

answered Dec 31 '10 at 16:30

Larsbj

28
4
14

1

You are linking to vb.net, not vb6. – Oded Dec 31 '10 at 16:31

score 2 · Answer 4 · answered Dec 31 '10 at 16:30

2

RTM = InStr(1, text1,text2)

if RTM > 0 then debug.print "Text2 was found at position: "; RTM

answered Dec 31 '10 at 16:30

horatio

1,426
8
7

How to check if text1 contains text2 using vb6?

4 Answers4