---
title: "plocka ut en bild och rubik XMLHTTP"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/107846-plocka-ut-en-bild-och-rubik-xmlhttp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Gimbo"
published: "2004-07-22T23:30:57.000Z"
updated: "2004-08-24T08:41:28.000Z"
replies: 14
views: 679
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/107846-plocka-ut-en-bild-och-rubik-xmlhttp"
---

# plocka ut en bild och rubik XMLHTTP

## #1 — Gimbo, 2004-07-22T23:30Z

tja, vill plocka ut en bil fran en sida mha xmlhttp men fattar 0, , hur gor jag for att plocka ut vaderbilden samt temperaturen som e textad over bilden??

```
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.weathercentral.com/weather/us/cities/wi_madison.html", False

objHTTP.Send
strHTML=objHTTP.responseText
Set objHTTP = Nothing

Set objRegExp = New regexp
objRegExp.Global = false
objRegExp.IgnoreCase = true
objRegExp.Pattern = "<td>.*</td>"
Set hittade = objRegExp.Execute(strHTML)

Function red(strText)
strText = Replace(strText, "<td>", " ")
strText = Replace(strText, "</td>", " ")

red = strText
End Function

For each item in hittade
With response
.write red(item.value) 
End with
Response.write("Testar")
Next
```

Permalänk: https://www.webforum.nu/p/107846

## #2 — Gimbo, 2004-07-25T17:56Z

ingen hejare pa xmlhttp har som kan hjalpa???

Permalänk: https://www.webforum.nu/p/1394041

## #3 — Jesper T, 2004-07-25T21:36Z

Det kräver ju sitt att regexpa ut det du skall ha. Du får leta upp "kännetecken" i koden som du sedan plockar ut "dina (stulna ;) )delar". Eftersom att det antagligen ändras helatiden så är det kanske svårt. man skulle ju kunna köra med len() hit och dit men det är ju väldigt osäkert.

```
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.weathercentral.com/weather/us/cities/wi_madison.html", False

objHTTP.Send
strHTML=objHTTP.responseText
Set objHTTP = Nothing

Dim strHTML1, strHTML2
strHTML1=split(strHTML,"<!-- current conditions start -->")
strHTML2=split(strHTML1(1),"<!-- current conditions end -->")

response.write strHTML2(0)
```

Denna är kanske lättare att "greppa".

```
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.webforum.nu", False

objHTTP.Send
strHTML=objHTTP.responseText
Set objHTTP = Nothing

Set objRegExp = New regexp
objRegExp.Global = false
objRegExp.IgnoreCase = true
objRegExp.Pattern = "Medlemmar: <b>.*</b>"
Set hittade = objRegExp.Execute(strHTML)

Response.Write "Webforum har just nu: "& Replace(hittade(0),"Medlemmar: ","")&" medlemmar!"
```

Permalänk: https://www.webforum.nu/p/1394161

## #4 — Gimbo, 2004-07-27T02:55Z

perfekt man tackar!! men har ett problem, kan man ersatta fragetecknet som uppkommer istallet for ett grader tecken, till ett gradtecken?? gar det att kora ngn sort av replace

Permalänk: https://www.webforum.nu/p/1394647

## #5 — Gimbo, 2004-07-27T04:18Z

sedan har jag ett till problem, nar jag kor denna kod, far jag detta felmedelande:

```
Status: 200 OK

Microsoft VBScript runtime error '800a0009' 

Subscript out of range: '[number: 1]' 

/upcomingWeather.asp, line 19
```

det har e koden:

```
<%
Dim objXmlHttp
Dim strHTML

'Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
objXmlHttp.open "GET", "http://www.weather.com/weather/local/53703", False
'objHTTP.Open "GET", "http://www.weather.com/weather/local/USWI0411?from=search_city", False

objXmlHTTP.Send
Response.Write "Status: " & objXmlHttp.status & " " _
	& objXmlHttp.statusText & "<br />"

strHTML=objXmlHTTP.responseText
Set objXmlHTTP = Nothing

Dim strHTML1, strHTML2
strHTML1=split(strHTML,"<!-- begin loop -->")
strHTML2=split(strHTML1(1),"<!-- end loop -->")

response.write strHTML2(0)

%>
```

fick ngt konstigt felmeddelande access denied da jag korde med den bortkommenterade koden, ngn som vet hur jag kan losa detta, sa jag enbartr plocker ut vadret mellan loop taggarna?? jesper??

Permalänk: https://www.webforum.nu/p/1394655

## #6 — Gimbo, 2004-07-28T08:02Z

ingen som vet hur man gor en replace pa ? till grader tecknet som jaf inte hittar pa tangentbordet

Permalänk: https://www.webforum.nu/p/1395134

## #7 — SannyW, 2004-07-28T08:35Z

Inte säker, men om jag förstår dig rätt så borde detta hjälpa:

<http://www.w3schools.com/html/html_entitiesref.asp>

om jag läser rätt så ersätter du ? med &deg; 

&DEG; men deg med små bokstäver.

Permalänk: https://www.webforum.nu/p/1395171

## #8 — Gimbo, 2004-07-28T16:49Z

oki, men hur ser en replace ut da man kor xmlhttp??

Permalänk: https://www.webforum.nu/p/1395417

## #9 — Gimbo, 2004-08-14T01:43Z

varfor funkar det inte mde en replace med foljande satt?

```
Dim strHTML1, strHTML2
strHTML1=split(strHTML,"<!-- begin loop -->")
strHTML2=split(strHTML1(1),"<!-- end loop -->")
strHTML2 = replace(strHTML2,"<br>", "")

response.write strHTML2(0)
```

??

Permalänk: https://www.webforum.nu/p/1410113

## #10 — solbulle, 2004-08-14T11:12Z

Har du överhuvud taget lyckats hämta någon form av data från den där sidan till att börja med?

Permalänk: https://www.webforum.nu/p/1410217

## #11 — Gimbo, 2004-08-14T17:29Z

jepps, och vill bara testa att kora en replace pa en \<br\> tagg for att sedan gora det pa fragetacknet som dyker upp istallet for grader tecknet, vill bara veta hur en repolace ser ut i xmlHTTP har testat allt nastan utan att d funkar

Permalänk: https://www.webforum.nu/p/1410408

## #12 — solbulle, 2004-08-14T18:26Z

Ok. Jag lyckades faktist inte plocka hem någon data från den sidan du försöker på.

```
Dim strHTML1, strHTML2
strHTML1=split(strHTML,"<!-- begin loop -->")
strHTML2=split(strHTML1(1),"<!-- end loop -->")
strHTML3 = replace(strHTML2(0),"<br>", "")

response.write strHTML3
```

Permalänk: https://www.webforum.nu/p/1410442

## #13 — Gimbo, 2004-08-24T04:44Z

tackar!

Permalänk: https://www.webforum.nu/p/1418445

## #14 — OveRRidE, 2004-08-24T07:44Z

Löst det sig, och isåfall vilket inlägg?

Permalänk: https://www.webforum.nu/p/1418498

## #15 — Gimbo, 2004-08-24T08:41Z

samt solbullens inlagg hjalpte mig med mitt andra problem, dvs raplacen

Permalänk: https://www.webforum.nu/p/1418522

---

Tråden på webben: https://www.webforum.nu/amne/asp/107846-plocka-ut-en-bild-och-rubik-xmlhttp