Detta script presenterar ju hur börsen har gått, men den lägger ju till lite html kod som jag inte vill ha. utan skulle bara vilja ha allt i "plain text" som jag brukar säga. har testat själv att leka med koden men den vill inte. så jag överlåter detta till er som kan detta. kan tillägga att jag behöver den i plain text eftersom jag ska testa om den fungerar att lägga in på en wapsida.
<%
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
%>
LIte lagom labilt känns det som.. men om du använder "precis" den kod som finns i deras fil så..
Så här blir det för mig i alla fall:
<%
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> ","")
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
%>
red./ Yepp ja... du har nog samma kod ja... :r Det är ju wF som feltolkar den.
Vad blir ditt problem? Med den kod jag kör, med & n b s p ; så får jag ut bara fn -0,28%
