web html.document içinde word arama

[snx111]

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)

    'you must add the "Microsoft HTML Object Library"!!!!!!!!!
    Dim HTMLdoc As HTMLDocument
        Dim HTMLlinks As HTMLAnchorElement
            Dim STRtxt As String
    ' List the links.
    On Error Resume Next
        Set HTMLdoc = WebBrowser1.Document
            For Each HTMLlinks In HTMLdoc.links
                STRtxt = STRtxt & HTMLlinks.href & vbCrLf
            Next HTMLlinks
        [a1] = STRtxt
End Sub

Bu kodla a1 hücresine sitedeki linkleri çekebiliyorum ; ama benim istediğim sayfanın kaynak kodunda veya sayfanın herhangi bir yeride "text" benim istediğim kelime varsa true false döndürmesi a1 hücresine var yok yazmalı..





html.doc.text ;htmldoc.all denedim ama yapamadım malesef

 

[snx111]

Aslında amacım web sitesideki sayfayı kendime göre numaralandırmak ; web sayfasında sayfa1 yazmadıgı için 12 13 sayfa olan bu siteyi kendi programım için numaralandırmam lazım sayfadaki bir kelime her sayfada yok o yüzden ; başka fikri olan varsa dinlerim

 

[Zeki Gürsoy]

"Instr" fonk. ile aratın.

strhtml = htmldoc.documentelement.innerhtml
bool = instr(1, strhtml, aranankelime, vbtextcompare)
msgbox iif(bool > 0, "var", "yok")

 

[snx111]

Zeki Gürsoy

Teşekkür ederim .

Private Sub CommandButton3_Click()

        On Error Resume Next
        Set HTMLdoc = WebBrowser1.Document
           
        
 strhtml = HTMLdoc.DocumentElement.innerHTML
bool = InStr(1, strhtml, "aranan kelime", vbTextCompare)
MsgBox IIf(bool > 0, "var", "yok")
        

End Sub