如何使用vb6检查text1是否包含text2？

Question

如何使用vb6检查text1是否包含text2？

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

你可以使用这样的InStr函数:

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

用途InStr:

If InStr(text1, text2) > 0 Then

Answer 3

这应该做的伎俩:

if (InStr(text1, text2) > 0) 

检查http://msdn.microsoft.com/en-us/library/8460tsh1(v=vs.80).aspx在特殊情况下(参数都没什么,空字符串等)