Finde bestemt indhold

Set oServerXMLHTTPRequest = Server.CreateObject("Msxml2.ServerXMLHTTP")
URL = "http://www.eksperten.dk"
oServerXMLHTTPRequest.open "GET", URL, False
oServerXMLHTTPRequest.Send
Kildekode = oServerXMLHTTPRequest.ResponseText

Arr_Kilde1 = Split(Kildekode, "<font class=""header"">")
Arr_Kilde2 = Split(Arr_Kilde(1), "</font>")

Response.Write Arr_Kilde2(0)

Set oServerXMLHTTPRequest = Nothing

Hvis du har adgang til ASPHTTP, kan du også gøre det således;

Set HttpObj = Server.CreateObject("AspHTTP.Conn")
HTTPObj.Url = "http://www.eksperten.dk"
Kildekode = HTTPObj.GetURL
 
Arr_Kilde1 = Split(Kildekode, "<font class=""header"">")
Arr_Kilde2 = Split(Arr_Kilde(1), "</font>")

Response.Write Arr_Kilde2(0)

Set HttpObj = Nothing

Det virker næsten, man kan se den bestemte tekst men baggrundsfarve, tabelfarve osv kommer også med.

Response.Write Server.HTMLencode(Kildekode)

Hvis jeg bruger denne kode så virker det ikke

Set oServerXMLHTTPRequest = Server.CreateObject("Msxml2.ServerXMLHTTP")
URL = "http://www.eksperten.dk"
oServerXMLHTTPRequest.open "GET", URL, False
oServerXMLHTTPRequest.Send
Kildekode = oServerXMLHTTPRequest.ResponseText

Arr_Kilde1 = Split(Kildekode, "<font class=""header"">")
Arr_Kilde2 = Split(Arr_Kilde(1), "</font>")

Response.Write Arr_Kilde2(0)

Set oServerXMLHTTPRequest = Nothing

Men hvis jeg ændrer den ene linie til
Arr_Kilde2 = Split(Kildekode, "</font>")
Så kommer teksten frem med tabelfarve osv.

og hvis jeg tilføjer Server.HTMLencode så linien bliver sådan
Response.Write Server.HTMLencode(Arr_Kilde2(0))
men så kommer alt html'en frem.

Hvad kan man gøre for at kun teksten kommer frem?

Hvilken side vil du hente fra? Så kan jeg selv lige teste det.

Siden er http://www.bilhuset.dk/default.asp?m=56&id=236411 og jeg vil gerne have hentet teksten BMW 318 i 1,9 118HK Sedan.

Bare rolig, jeg har fået lov til at hente fra deres side.

Prøv dette:

Set oServerXMLHTTPRequest = Server.CreateObject("Msxml2.ServerXMLHTTP")
URL = "http://www.bilhuset.dk/default.asp?m=56&id=236411"
oServerXMLHTTPRequest.open "GET", URL, False
oServerXMLHTTPRequest.Send
Kildekode = oServerXMLHTTPRequest.ResponseText

Arr_Kilde1 = Split(Kildekode, "<td bgcolor=""#CCCCCC"" width=""340""><font face=""Verdana"" size=""1"">")
Arr_Kilde2 = Split(Arr_Kilde1(1), "</font>")

Response.Write Arr_Kilde2(0)

Set oServerXMLHTTPRequest = Nothing

Yes :-)

Det virker, jeg takker mange gange :-)

Velbekomme :)