Hjälp med en replace funktion

[Christoffer Eklund]

Hej, jag håller på med en replace funktion, men jag får det inte att fungera.

 

Function rep(strToReplace)

var =Replace(strToReplace, "2","två")

var =Replace(strToReplace, "9","nio")

rep = var

End Function

 

jag vill alltså replace:a alla 2:or och 9:or, men nu när jag skriver ut det så är det bara den understa (nio) som skrivs ut.

Alltså, nu blir 298: 2nio8

men jag vill att det ska bli tvånio8.

 

Hoppas nån fattar mitt lilla problem.

 

//doffe

[Tobbe B]

så här ska det nog vara.

 

Function rep(strToReplace)

var=strToReplace

var =Replace(var,"2","två")

var =Replace(var,"9","nio")

rep = var

End Function

 

 

 

 

 

[Johan Siwer]

du skriver ju över var med nästa replace. gör såhär istället:

 

Function rep(strToReplace)

rep =Replace(strToReplace, "2","två")

rep =Replace(rep, "9","nio")

End Function

 

så ska det gå bättre..

 

 

 

[Christoffer Eklund]

Okej, då har man lärt sig nåt nytt i dag igen.

 

Tackar tackar