웹 페이지에서 텍스트를 찾는 방법은 무엇입니까?

Question

텍스트 상자와 버튼이 있는데, 텍스트 상자에 단어를 입력하고 버튼을 클릭하면 현재 웹 페이지에서 해당 단어를 찾을 수 있습니다.

나는 이것을 시도했다. 가끔은 효과적 일 때가있다. 텍스트 상자에서 "다음"단어를 검색하는 방법을 알고 싶다. 보통 입력 된 첫 단어 만 검색한다.

dim wb as webbrowser 
if wb.documenttext.contains(textbox.text) then 
msgbox("YES") 
else 
msgbox("NO") 

이 그것을하지 않는 일부 단어 만 대부분의 시간을 찾을 않습니다

여기 내 코드입니다. 이런 식으로 뭔가를

If wb.DocumentText.ToLower.Contains(TextBox1.Text.ToLower) Then 
    '... 
End If 

또는 당신은 모든 요소를 ​​통해 반복 시도해 볼 수도 있습니다 :

Answer 1

당신은이 일을 시도 할 수

Private Function HasTextInNode(ByVal elem As HtmlElement, ByVal txt As String) As Integer 
    Dim iResult As Integer = 0 

    If elem.Children.Count > 0 Then 
     For Each child As HtmlElement In elem.Children 
      iResult += HasTextInNode(child, txt) 
     Next 
    ElseIf elem.InnerText <> Nothing AndAlso elem.InnerText.ToLower.Contains(txt.ToLower) Then 
     iResult += elem.InnerText.ToLower.Split(txt.ToLower).Length - 1 
    End If 

    Return iResult 
End Function 

이 경우, 함수가있는 요소의 수를 반환 웹 페이지이지만 쉽게 수정할 수 있습니다. 희망이 도움이됩니다.