Stockholmsbörsen

Enkelt script för att få fram hur det gått på börsen idag.

<%

Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.privataaffarer.se/default_frame.asp", False

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

Set objRegExp = New regexp
objRegExp.Global = false
objRegExp.IgnoreCase = true
objRegExp.Pattern = "<font face=""Geneva, Arial, Helvetica"" size=""6"" class=index1><b>.*</b></font>"
Set hittade = objRegExp.Execute(strHTML)

Function red(strText) 
	strText = replace(strtext,"<font face=""Geneva, Arial, Helvetica"" size=""6"" class=index1><b>"," ")
	strText = replace(strtext,"</b></font>"," ")

	red = strText
End Function

For each item in hittade
With response
	.write("Stockholmsb&ouml;rsen: ")
	.write red(item.value) 
End with
Next

%>

För närvarande så skall det väl stå:

<%

Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.privataaffarer.se/default_frame.asp", False

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

Set objRegExp = New regexp
objRegExp.Global = false
objRegExp.IgnoreCase = true
objRegExp.Pattern = "<font size=5 face=""Arial,Helvetica""><b>.*</b></font>"
Set hittade = objRegExp.Execute(strHTML)

Function red(strText) 
	strText = replace(strtext,"<font size=5 face=""Arial,Helvetica""><b><b>"," ")
	strText = replace(strtext,"</b></font>"," ")

	red = strText
End Function

For each item in hittade
With response
	.write("Stockholmsbörsen: ")
	.write red(item.value) 
End with
Next

%>

Om man vill ha med pilen så..

Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.privataaffarer.se/default_frame.asp", False

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

Set objRegExp = New regexp
objRegExp.Global = false
objRegExp.IgnoreCase = true
objRegExp.Pattern = "<td>.*<font size=5 face=""Arial,Helvetica""><b>.*</b></font>"
Set hittade = objRegExp.Execute(strHTML)

Function red(strText) 
	strText = replace(strtext,"<td><img src=""","<img src=""http://www.privataaffarer.se")
	strText = replace(strtext,"<font size=5 face=""Arial,Helvetica""><b><b>"," ")
	strText = replace(strtext,"</b></font>"," ")

	red = strText
End Function

For each item in hittade
With response
	.write("Stockholmsbörsen: ")
	.write red(item.value) 
End with
Next

Jesper T

Du har ett litet fel i din du har en <b> för mycket!

<%

Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.privataaffarer.se/default_frame.asp", False

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

Set objRegExp = New regexp
objRegExp.Global = false
objRegExp.IgnoreCase = true
objRegExp.Pattern = "<font size=5 face=""Arial,Helvetica""><b>.*</b></font>"
Set hittade = objRegExp.Execute(strHTML)

Function red(strText)
strText = Replace(strText, "<font size=5 face=""Arial,Helvetica""><b>&nbsp;", " ")
strText = Replace(strText, "</b></font>", " ")

red = strText
End Function

For each item in hittade
With response
	.write("Stockholmsbörsen: ")
	.write red(item.value) 
End with
Next

%>

Oj.. jävlar vad det här scriptet blev populärt :D

Får inte scriptet att fungera, finns det någon nyare version som fungerar?

Japp, då uppdatar vi igen då.

Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.privataaffarer.se", False

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

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

Function red(strText)
strText = Replace(strText, "<font class=saxBig>", "")
strText = Replace(strText, "</font>", "")
red = strText
End Function

For each item in hittade
	val = red(item.value)
	if instr(val,"-") then val="&amp;#9660; "& val else val="&amp;#9650; "& val
	Response.Write("Stockholmsbörsen: " & val)
Next