Sök  
 
Skribent Inlägget Löst
Google
 
     

  Forum » ASP » regexp + dim  
 
Skriven av: hottetotte | den 23 maj 2012 Kl 17:48
regexp + dim
Hej!
Jag hämtar hem ett värde (siffra) från en sida. Beroende på vilken siffra som hämtas med regexp vill jag kunna lägga ut en bild.
Koden nedan funkar inte (det var ett försök), och jag vet inte hur man ska koda.
Det blir felmeddelande

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'hittade'


Kod:

<%

Set objHTTP = Server.CreateObject("MSXML2.XMLHTTP")

objHTTP.Open "GET","http://www.dalarna.se/sv/Hotell/Kriswebb/Om-kriswebben/Brandriskprognos/", False

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


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

Set hittade = objRegExp.Execute(strHTML)
  
Response.Write " " & hittade(9) & " <br>"
  
Set hittade = Nothing


Dim brandrisk

brandrisk = hittade(9)

If brandrisk <=5 Then
Response.write("<img src='brandrisk4.png'>")

ElseIf brandrisk >5 Then
Response.write("<img src='brandrisk5.png'>")

Else
Response.write "-"

End If

%>



Antal svar 18



NAVIGERING: [1] 2
Skriven av: MacTommy | den 24 maj 2012 Kl 00:01
Innan raden Set hittade = Nothing lägg till Response.End

Skriver den ut något på sidan eller får du fortfarande fel?
Skriven av: Emill | den 24 maj 2012 Kl 12:47
hittade(9) är ett objekt och ingen sträng. För att hämta ut värdet måste du skriva hittade(9).Value på båda ställena istället.
Skriven av: vimpyboy | den 24 maj 2012 Kl 13:51
Alltså... Ser ni något som inte jag ser? Jag ser bara ett meddelande om att koden ska ligga under aspsidan.se/code, men ni verkar få koden framför er. :-)
Skriven av: LordDaimos | den 24 maj 2012 Kl 17:41
Reagerade också på det vimp, får samma som du här. Misstänker att de kollar via den gamla versionen dock för där kan man se det.
Skriven av: hottetotte | den 24 maj 2012 Kl 18:57

Innan raden Set hittade = Nothing lägg till Response.End



Det händer ingenting.



hittade(9) är ett objekt och ingen sträng. För att hämta ut värdet måste du skriva hittade(9).Value på båda ställena istället.



Hur menar du "på båda ställena"? Jag har försökt lite olika varianter, men det fungerar inte.
Skriven av: vimpyboy | den 24 maj 2012 Kl 22:22
LordDaimos: Ahaa, tack. Det förklarar saken. Men vad gör folk på den gamla versionen? ;)
Skriven av: Emill | den 25 maj 2012 Kl 02:47
"Båda" betyder två. På två ställen i koden ska du byta ut hittade(9) till hittade(9).Value ;)

Fungerar det här?

Kod:
<%

Set objHTTP = Server.CreateObject("MSXML2.XMLHTTP")

objHTTP.Open "GET","http://www.dalarna.se/sv/Hotell/Kriswebb/Om-kriswebben/Brandriskprognos/", False

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


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

Set hittade = objRegExp.Execute(strHTML)
  
Response.Write " " & hittade(9).Value & " <br>"
  
Set hittade = Nothing


Dim brandrisk

brandrisk = hittade(9).Value

If brandrisk <=5 Then
Response.write("<img src='brandrisk4.png'>")

ElseIf brandrisk >5 Then
Response.write("<img src='brandrisk5.png'>")

Else
Response.write "-"

End If

%>

Skriven av: LordDaimos | den 25 maj 2012 Kl 06:41
Det är en ytterst bra fråga faktiskt, nya fungerar ju bra förutom att vi inte kan se kod som de klistrat in här. Men jag gissar att det har att göra med att www.aspsidan.se omdirigerar folk till old.aspsidan.se (vilket känns väldigt tråkigt).
Skriven av: hejahv | den 25 maj 2012 Kl 07:16
Kanske något MacTommy kan kika på?
[redigerat namn=hejahv datum=2012-16-25 07:16]
Skriven av: Emill | den 25 maj 2012 Kl 12:24
Ganska dumt att nya aspsidan filtrerar bort kod. Finns väl t.ex. massa gamla inlägg som skrevs innan /code fanns och det är ju dumt att man inte kan se kod på dessa. Det blir ju inte direkt "svårare att läsa" i nya aspsidan heller eftersom koden fälls ut med +-knapp.

Varför inte bara lägga in något varningsmeddelande innan man postar istället?

Vidare anser jag att 30 rader är helt ok. Det får plats på en skärmbild. Däremot börjar det bli jobbigt runt kanske 60 rader. Aspsidan code fungerar inte för mig i min google chrome, all kod hamnar på samma rad.
NAVIGERING: [1] 2
 
     

  Svara på inlägg  
 
Du måste vara medlem på ASPsidan för att kunna skriva i forumet.
För att bli medlem klicka här.
 
     

  » Logga in  
 
Användarnamn

Lösenord

 
     

  » Bli medlem  
  Bli medlem på ASPsidan!  
     

     
  Microsoft  
     

  » Partners  
  Comsolvia  
     
  » ANNONS  
  ingen annons än  
     

  » Senast online  
  Endast för inloggade  
  Antal inloggade: 1  
     

Copyright © 2007 www.ASPsidan.se
ingen sponsrar längre ASPsidan med Dedikerad Server
ASPsidan RSS
   
 XHTML / CSS
Det tog 0,2344 sekunder att ladda sidan