Jo, jag vill kunna söka på texten på en sida med hjälp av ett VB progrm, tex Om jag väljer att söka på "hej" så säger den "texten hittatdes!" Eller "Texten hittades inte!". Hur gör man det?

if InStr(text,"hej")>0 then
'texten hittades
end if

/Johan

Är det detta du söker?

<code>
strText = WebBrowser1.Document.Body.innerText
strSeek = "Hej"

If Instr(strText, strSeek) > 0 Then
MsgBox "Texten finns"
Else
MsgBox "Noop, ingen text"
End If
</code>

/Janne

PRECIS! TACK SÅ MYCKET!

Fasen åxå! Den reagerar på WebBrowser1.Document.Body.innerText och säger "Object variable or With block variable not set" vad är felet?

Du har i ditt VB-projekt lagt ut en kontroll som heter WebBrowser (Microsoft Internet Control)samt döpt den till WebBrowser1?

Du måste ha något i WebBrowser innan du gör sökningen annars blir det det fel som du nämner

Pröva detta:

<code>
Private Sub Command1_Click()
strText = WebBrowser1.Document.Body.innerText
strSeek = "Hej"

If InStr(strText, strSeek) > 0 Then
MsgBox "Texten finns"
Else
MsgBox "Noop, ingen text"
End If
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.aftonbladet.se/"
End Sub
</code>

/Janne

Tack! Det var inte det jag gjort fel, jag hade placerat koden fel! Jag placerade om den i WebBrowser1_DocumentComplete och vips! Men du fick mig att komma på det! Tackar! Tack så mycket allihoppa!