Søge på indhold ?

Du skal have gang i en HTTP request:
url = "http://domæne.dk/side.asp"
set Req = Server.CreateObject("Msxml2.ServerXMLHTTP")
Req.open "GET", url, False
fXmlReq.Send
http = Req.responseText

Så har du hele HTTP koden, og kan begynde at undersøge den:

if inStr(http,"copyright by mig") then
  response.write "Koden indeholder 'copyright by mig'"
end if

Ved ikke helt hvad du mener med punkt 2. Om ikke andet er det ulovlig at stjæle kode fra andre.

Hvis man ved f.eks. at en hjemmeside har den samme side hele tiden men de bliver ved med at ændre priser... kan man så ikke lave en program der går ind og kigger koden igennem og hvor der står pris... der tager den lige prisen og føre over på min side... f.eks. til access ?

Det kan du sagtens. Hele HTML koden er jo i Req.responseText, men jeg kan ikke bare lave en kode til dig, som gør det, uden at kende target siden. Priserne kan jo stå i en div, span, td, input... Samt der kan være andre div, span, td input som ikke skal medtages fordi de indeholder andre oplysninger.

Har du en lille hurtig kode til at finde en special sætning (eller ord) - og så skal den finde den efterfølgende sætning (så man f.eks. kan vælge den skal tage de 3 næste ord) ??

Noget i denne stil:

startIndex = inStr(html,"findMig")+7 '<-- +7 fordi findMig er 7 tegn.
txtLengh = 5 '<-- Hent 5 tegn
response.write mid(html,startIndex,txtLengh)

Kigger lige på om det kan lade sig gøre...
Vender lige tilbage...

kan man gøre dette... men i stedet for antal tegn... så antal ord ?

Ja men det er mere besværlig. Noget i denne stil (utestet):

startIndex = inStr(html,"findMig")+7 '<-- +7 fordi findMig er 7 tegn.
txtLengh = 5 '<-- Hent 5 ord
tmpHTML = mid(html,startIndex)
tmpHTML = split(tmpHTML," ")
resultat = ""
for f=0 to ubound(tmpHTML)
  resultat = resultat & tmpHTML(f) &" "
  if f=txtLengh then exit for
next
response.write resultat

Den tager kun de 5 første ord i selve HTML-koden...

Hej fennec...

Hvis du ville være interesseret i at hjælp på en anden tråd... hehe :)

http://www.eksperten.dk/spm/790297

.o) <-- One Eyed Jack

Så lige din anden kommentar...

Du kan fjerne alle HTML tags inden du henter de 5 første ord ud, med følgende kode:
Function RemoveHTML( strText )
    Dim RegEx
    Set RegEx = New RegExp
    RegEx.Pattern = "<[^>]*>"
    RegEx.Global = True
    strText = Replace(LCase(strText), "<br>", chr(10))
    RemoveHTML = RegEx.Replace(strText, "")
End Function

Taget herfra: http://www.eksperten.dk/spm/302158