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
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!"
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
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??
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
