---
title: "Få bort htmlkoden ifrån den?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/82507-få-bort-htmlkoden-ifrån-den"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "medialabs"
published: "2003-07-22T22:09:45.000Z"
updated: "2003-07-22T22:54:17.000Z"
replies: 4
views: 273
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/82507-få-bort-htmlkoden-ifrån-den"
---

# Få bort htmlkoden ifrån den?

## #1 — medialabs, 2003-07-22T22:09Z

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

%>
```

Permalänk: https://www.webforum.nu/p/82507

## #2 — solbulle, 2003-07-22T22:30Z

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...  :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%

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

Permalänk: https://www.webforum.nu/p/1116526

## #3 — medialabs, 2003-07-22T22:37Z

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,"\<font size=5 face=""Arial,Helvetica""\>\<b\>\<b\>"," ")
strText = replace(strtext,"\</b\>\</font\>"," ")

red = strText
End Function

mot:

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

red = strText
End Function

Permalänk: https://www.webforum.nu/p/1116530

## #4 — solbulle, 2003-07-22T22:47Z

Hehe, åfan. ;)

Permalänk: https://www.webforum.nu/p/1116534

## #5 — medialabs, 2003-07-22T22:54Z

> **solbulle skrev:**
>
> Hehe, åfan. ;)

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

Permalänk: https://www.webforum.nu/p/1116536

---

Tråden på webben: https://www.webforum.nu/amne/asp/82507-få-bort-htmlkoden-ifrån-den