在字符串中查找单词的位置

Question

我必须使用以下方法实现搜索，

让：

Dim checkin As String = "This is the base string, i have to find a word here"
Dim valueSearch  As String="to find a word"

现在要实施的算法是：

• Dim str（）As String = Split（checkin，＆＃34;＆＃34;）
• Dim Position As Integer
• Position =在字符串
中查找str(0)的位置
• 使用str(1)
中position字之后的下一个字词检查checkin
• 如果不相等，请使用str(1)
继续第二步
• if Dim valueSearch As String="to find a game" then 我必须显示"to find a"存在的消息

我的问题是，是否可以使用

在字符串中找到单词的位置

string.Contains()操作。或任何其他实现此算法的可能性？

Answer 1

String.Contains（），INSTR或IndexOf应该都能做你想要的事情

http://msdn.microsoft.com/en-us/library/dy85x1sa(v=vs.110).aspx

http://msdn.microsoft.com/en-us/library/8460tsh1(v=vs.90).aspx

http://msdn.microsoft.com/en-us/library/2y7ddk24.aspx

Answer 2

尝试这样

创建递归方法。使用String.Contains。它的真实然后返回else继续该方法。

   private Sub Recursive(ByVal xStr As String, ByVal xSearch As String)

           If xStr.Contains(xSearch) Then
                MsgBox(xSearch)
            ElseIf xSearch.Contains(" ") Then
                Recursive(xStr, xSearch.Substring(0, xSearch.LastIndexOf(" ")))
            Else
                MsgBox("Not Founded")
            End If

        End Sub

 Call Recursive("This is the base string, i have to find a word here", 
 "to find a game")