regexp > ASP > ASPsidan ASP och ASP.NET

Sök

Forum » ASP » regexp

Skriven av: hottetotte | den 8 augusti 2013 Kl 18:21

regexp

Hej!
Jag hämtar med hjälp av regexp:
[Kod:

<%
Dim objHTTP, strHTML, hittade, objRegExp, brandrisk
Set objHTTP = Server.CreateObject("MSXML2.XMLHTTP")

objHTTP.Open "GET","http://www.dalarna.se/brandrisk", False

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

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

brandrisk = hittade(10).SubMatches(0)

Set hittade = Nothing

If brandrisk = 1 Then
  Response.Write("<img src='brandrisk1.png'>")
ElseIf brandrisk = 2 Then
  Response.Write("<img src='brandrisk2.png'>")
ElseIf brandrisk = 3 Then
  Response.Write("<img src='brandrisk3.png'>")
ElseIf brandrisk = 4 Then
  Response.Write("<img src='brandrisk4.png'>")
ElseIf brandrisk = 5 Then
  Response.Write("<img src='brandrisk5.png'>")
ElseIf brandrisk = "5E" Then
  Response.Write("<img src='brandrisk5.png'>")
ElseIf brandrisk = "1-3" Then
  Response.Write("<img src='brandrisk5.png'>")

Else
  Response.Write "-"
End If

%>

]
Det funkar om det är 1, 2, 3, 4 eller 5, men inte när det är 1-3 eller 5E.
Det är väl nåt fel i pattern. Nån som vet hur det ska vara?

Antal svar 4

Skriven av: voigtan1 | den 9 augusti 2013 Kl 20:51

debuggar den, vad är brandrisk för värde som du säger "inte fungera", inte vad du tror det är utan skriv ut den.

Kod:

<%
Dim objHTTP, strHTML, hittade, objRegExp, brandrisk
Set objHTTP = Server.CreateObject("MSXML2.XMLHTTP")

objHTTP.Open "GET","http://www.dalarna.se/brandrisk", False

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

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

brandrisk = hittade(10).SubMatches(0)

Set hittade = Nothing

If brandrisk = "5E" Then
    Response.Write("<img src='brandrisk5.png'>")
ElseIf brandrisk = "1-3" Then
    Response.Write("<img src='brandrisk5.png'>")
ElseIf brandrisk = 1 Then
    Response.Write("<img src='brandrisk1.png'>")
ElseIf brandrisk = 2 Then
    Response.Write("<img src='brandrisk2.png'>")
ElseIf brandrisk = 3 Then
    Response.Write("<img src='brandrisk3.png'>")
ElseIf brandrisk = 4 Then
    Response.Write("<img src='brandrisk4.png'>")
ElseIf brandrisk = 5 Then
    Response.Write("<img src='brandrisk5.png'>")
Else
    Response.Write "-"
End If
%>

Skriven av: hottetotte | den 10 augusti 2013 Kl 19:12

Det fungerar inte när det är 5E eller 1-3.
Jag har dålig koll på hur pattern ska vara för att det ska fungera.

Skriven av: voigtan1 | den 10 augusti 2013 Kl 22:48

mönstret är korrekt, men brandrisk konverteras till en int om du försöker kolla på den (se min ordning, fungerade igår när jag testade på 1-3) men bäst hade varit om du konverterade brandrisk till en sträng och jämför det med sträng värde "1" istället för 1 osv.

Skriven av: hottetotte | den 21 augusti 2013 Kl 07:12

Jag ändrade ordningen, och det fungerar hittills.

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.