str = replace(str,"ä","=E4")

Då var vi här igen då!

fornamn = "Åke"
efternamn = " Ärkås"
gata = "Ölandsågatan 11"

Hur skall jag smidigast lösa detta, om jag i varje sträng vill kunna byta ut åäö samt ÅÄÖ?
Jag misstänker att det blir en j-vla massa replace??

MVH Jesper

str = replace(str,"å","=E5")
str = replace(str,"ä","=E4")
str = replace(str,"ö","=F6")
str = replace(str,"Å","=C5")
str = replace(str,"Ä","=C4")
str = replace(str,"Ö","=D6")

yupp

En funktion:

Function ReplaceCharacter(str)
	Dim vCharacter, i
	vCharacter = Array("å", "=E5", "ä", "=E4")
	For i = 0 To UBound(vCharacter) Step 2
		str = Replace(str, vCharacter(i), vCharacter(i + 1))
	Next 'i
	ReplaceCharacter = str
End Function

Guuuaa, va bussigt!
Fråga: skall jag bara plussa på med de andra bokstäverna här?

vCharacter = Array("å", "=E5", "ä", "=E4","ö","=F6","Å","=C5"...OSV)?
Eller

Och skriver ut recseten med: str(recset("fornamn")), str(recset("efternamn"))..osv?.......... eller

MVH JesperT

Jo, du lägger bara på bokstäverna i arrayen.
Men du skriver ut det med ReplaceCharacter(...)