Stockholmsbörsen

6 svar · 7 705 visningar · startad av K++ 21 juli 2002

K++Medlem sedan juli 2002171 inlägg

Frågan21 juli 2002 12:59#1

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

%>

Jesper TMedlem sedan nov. 20017 144 inlägg

30 okt. 2002 16:41#2

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

%>

KalsongCesarMedlem sedan mars 2001339 inlägg

3 dec. 2002 11:14#3

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

medialabsMedlem sedan mars 20023 686 inlägg

22 juli 2003 22:49#4

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

%>

K++Medlem sedan juli 2002171 inlägg

20 sep. 2004 14:25#5

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

erikaMedlem sedan juli 200048 inlägg

1 feb. 2005 14:31#6

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

Jesper TMedlem sedan nov. 20017 144 inlägg

8 feb. 2005 16:13#7

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