replace-funktion-problem

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?

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?

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

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")

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

funkade finfint, tackar.