如何使用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

- faressoft

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

- Sarfraz

Answer 2

使用InStr函数：

If InStr(text1, text2) > 0 Then

- Oded

---

+1 但为什么不链接到 VB6 手册中 Instr 的条目呢？http://msdn.microsoft.com/en-us/library/aa445031(v=VS.60).aspx - MarkJ

Answer 3

这应该可以解决问题：

if (InStr(text1, text2) > 0) 

请查看http://msdn.microsoft.com/en-us/library/8460tsh1(v=vs.80).aspx，了解特殊情况（如参数为Nothing、空字符串等）。

- Larsbj

---

你正在链接到vb.net，而不是vb6。 - Oded

Answer 4

RTM = InStr(1, text1,text2)

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

- horatio