---
title: "Lite replace prob."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/48293-lite-replace-prob"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "K++"
published: "2002-07-20T21:32:07.000Z"
updated: "2002-07-21T10:15:14.000Z"
replies: 2
views: 189
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/48293-lite-replace-prob"
---

# Lite replace prob.

## #1 — K++, 2002-07-20T21:32Z

Den skriver inte ut något.. Vad har jag gjort för fel?

```
<%

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>"," ")
End Function 

For each item in hittade

response.write red(item.value) 

Next

%>
```

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

## #2 — solbulle, 2002-07-20T21:52Z

Du måste "ge tillbaka" värdet:

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

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

## #3 — K++, 2002-07-21T10:15Z

oj.. hehe :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/48293-lite-replace-prob