vb.net - ウェブサイトにテキストがあるかどうかを確認する方法はありますか？

Question

「Hello、world！」という単語を見つけたいと言ってください。ウェブページ上。IDは「テキスト」です。WebBrowser1という名前のWebBrowserを使用して、そのテキストがWebページに存在する場合にtrueを返す方法はありますか、それとも存在しない場合はfalseを返す方法がありますか？URLはどちらの方法でもまったく同じになります。

編集：それに到達するためのHTMLパスは非常に長いので、ページ上のテキストを見つける必要があります。

Answer 1

初め：

Dim wb as new WebClient
Dim html as string = wb.DownloadString("http://stackoverflow.com")

次に、その文字列を検索します。そのためには、IndexOfを使用できます。

Answer 2

私はLuxspesの答えを2番目にしています。

より役立つためだけに、より多くのコード。これはまだテストしていません。これが機能することを願っています。

Dim wb As New WebClient
Dim html As String = wb.DownloadString("http://stackoverflow.com")
'To know if there are YOUR STRING inside
Dim BooleanAnswer As Boolean = html.Contains("YOUR STRING")
'To know how many instances
Dim HowMany As Integer = FindIndexes("YOUR STRING", html).Count
'To output them all through Console.Write or your preferred output(the indexes)
Dim FoundList As List(Of Integer) = FindIndexes("YOUR STRING", html)
For i As Integer = 0 to FoundList.Count - 1
            Console.Write(i & "-index: " & FoundList(i).toString)
Next i

'Function
Private Function FindIndexes(ByVal searchWord As String, ByVal src As String) as List(Of Integer)
            Dim searchSRC As String = src
            Dim toFind As String = searchWord
            Dim lastIndex As Integer = 0
            Dim listOfIndexes As New List(Of Integer)
            Do Until lastIndex < 0
                lastIndex = searchSRC.IndexOf(toFind, lastIndex + toFind.Length)
                If lastIndex >= 0 Then
                    listOfIndexes.Add(lastIndex)
                End If
            Loop
            Return listOfIndexes
End Function