Come verificare se text1 contiene text2 utilizzando vb6?

Question

Come verificare se text1 contiene text2 utilizzando 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 

Answer 1

È possibile utilizzare InStr funzione come questa:

Dim position As Integer 

position = InStr(1, stringToSearch, stringToFind) 

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

Answer 2

Uso InStr:

If InStr(text1, text2) > 0 Then 

Answer 3

Questo dovrebbe fare il trucco:

if (InStr(text1, text2) > 0) 

Controllare http://msdn.microsoft.com/en-us/library/8460tsh1(v=vs.80).aspx per casi particolari (i parametri sono nulla, stringhe vuote ecc)

Answer 4

RTM = InStr(1, text1,text2) 

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