---
title: "replace-funktion-problem"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/176256-replace-funktion-problem"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "brorsan"
published: "2009-01-08T18:44:06.000Z"
updated: "2009-01-09T15:23:52.000Z"
replies: 4
views: 439
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/176256-replace-funktion-problem"
---

# replace-funktion-problem

## #1 — brorsan, 2009-01-08T18:44Z

Blir galen, den här replace-funktionen fungerar jättebra...

```
Function blablaURL(str)
	Dim objRegExp, strTemp
	Set objRegExp = New RegExp
	objRegExp.IgnoreCase = True
	objRegExp.Global = True
	objRegExp.Pattern = "(skate.nu)"
	strTemp = objRegExp.replace(str, "skate.nu/skateboard")
	blablaURL = Replace(strTemp, "skateboard/images","/images")
	blablaURL = Replace(strTemp, "/skateboard/skateboard","/skateboard")
	Set objRegExp = Nothing
End Function
```

men när jag lägger till de här två raderna på slutet så sker de inte alls, precis som om jag inte lagt till dem..

```
Function blablaURL(str)
	Dim objRegExp, strTemp
	Set objRegExp = New RegExp
	objRegExp.IgnoreCase = True
	objRegExp.Global = True
	objRegExp.Pattern = "(skate.nu)"
	strTemp = objRegExp.replace(str, "skate.nu/skateboard")
	blablaURL = Replace(strTemp, "skateboard/images","/images")
	blablaURL = Replace(strTemp, "/skateboard/skateboard","/skateboard")
	blablaURL = Replace(strTemp, " skate.nu/skateboard"," skate.nu")
	blablaURL = Replace(strTemp, "@skate.nu/skateboard","@skate.nu")
	Set objRegExp = Nothing
End Function
```

Nån som fattar vad problemet är?

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

## #2 — oskars, 2009-01-08T21:27Z

```
Function blablaURL(str)
	Dim objRegExp, strTemp
	Set objRegExp = New RegExp
	objRegExp.IgnoreCase = True
	objRegExp.Global = True
	objRegExp.Pattern = "(skate.nu)"
	strTemp = objRegExp.replace(str, "skate.nu/skateboard")
	blablaURL = Replace(strTemp, "skateboard/images","/images")
	blablaURL = Replace(blablaURL, "/skateboard/skateboard","/skateboard")
	blablaURL = Replace(blablaURL, " skate.nu/skateboard"," skate.nu")
	blablaURL = Replace(blablaURL, "@skate.nu/skateboard","@skate.nu")
	Set objRegExp = Nothing
End Function
```

Är det inte så där du måste göra för att det ska funka?

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

## #3 — brorsan, 2009-01-08T22:59Z

är den inte identisk med min? vad har du ändrat annars?

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

## #4 — doggelito, 2009-01-09T06:38Z

Skillnaden är att olika variablar används i replacen.
Jag kan också tycka att eftersom du har en lokal variabel, använd den hela vägen till slutet och inte använda funktionsnamnet förrän i slutet!

```
strTemp = objRegExp.replace(str, "skate.nu/skateboard")
strTemp = Replace(strTemp, "skateboard/images","/images")
strTemp = Replace(strTemp, "/skateboard/skateboard","/skateboard")
strTemp = Replace(strTemp, " skate.nu/skateboard"," skate.nu")
blablaURL = Replace(strTemp, "@skate.nu/skateboard","@skate.nu")
```

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

## #5 — brorsan, 2009-01-09T15:23Z

ahaa, då fattar jag, det missade jag och ja verkar ju rimligt att bara byta ut på slutet. 

funkade finfint, tackar.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/176256-replace-funktion-problem