Få bort htmlkoden ifrån den?

4 svar · 273 visningar · startad av medialabs 22 juli 2003

medialabsMedlem sedan mars 20023 686 inlägg

Trådstart22 juli 2003 22:09#1

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

%>

solbulleMedlem sedan mars 20015 287 inlägg

22 juli 2003 22:30#2

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>&nbsp;.*</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
%>

red./ Yepp ja... du har nog samma kod ja... 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%

https://www.solbulle.com/wf/medialabs/aktie.asp

medialabsMedlem sedan mars 20023 686 inlägg

22 juli 2003 22:37#3

Nu har jag fått det att fungera, det var en på pellesoft som lyckades.

var bara att Byt ut:

Function red(strText)
strText = replace(strtext,""," ")
strText = replace(strtext,""," ")

red = strText
End Function

mot:

Function red(strText)
strText = Replace(strText, " ", " ")
strText = Replace(strText, "", " ")

red = strText
End Function

solbulleMedlem sedan mars 20015 287 inlägg

22 juli 2003 22:47#4

Hehe, åfan.

medialabsMedlem sedan mars 20023 686 inlägg

22 juli 2003 22:54#5

solbulle skrev:

Hehe, åfan.

hehe, det var en för mycket i koden. nån som kan säga till Jesper T att hans exempel har ett litet fel där.