Problem med att byta "&" till "&" i en funktion

2 svar · 248 visningar · startad av corona 6 okt. 2005

coronaMedlem sedan feb. 200470 inlägg

Frågan6 okt. 2005 07:50#1

Hej!

Jag har ett problem som jag undrar om någon kan hjälpa mig med.
Har en funktion som omvandlar å, ä, ö mm
Nu vill jag gärna också att funktionen också kan omvandla "&" till "&", men då blir bara fel. Någon som vet hur man gör?
Texterna som ska fixas kommer från en databas.

Function spec_tecken_bort(text)
text = Replace(text, "å", "&aring;")
text = Replace(text, "ä", "&auml;")
text = Replace(text, "ö", "&ouml;")
text = Replace(text, "Å", "&Aring;")
text = Replace(text, "Ä", "&Auml;")
text = Replace(text, "Ö", "&Ouml;")
text = Replace(text, "Ø", "&Oslash;")
text = Replace(text, "ø", "&oslash;")
text = Replace(text, "è", "&egrave;")
spec_tecken_bort = Trim(text)
End Function

//Annette

@ndersMedlem sedan juni 200032 967 inlägg

6 okt. 2005 07:52#2

Function spec_tecken_bort(text)
text = Replace(text, "&", "&amp;")
text = Replace(text, "å", "&aring;")
text = Replace(text, "ä", "&auml;")
text = Replace(text, "ö", "&ouml;")
text = Replace(text, "Å", "&Aring;")
text = Replace(text, "Ä", "&Auml;")
text = Replace(text, "Ö", "&Ouml;")
text = Replace(text, "Ø", "&Oslash;")
text = Replace(text, "ø", "&oslash;")
text = Replace(text, "è", "&egrave;")
spec_tecken_bort = Trim(text)
End Function

coronaMedlem sedan feb. 200470 inlägg

6 okt. 2005 07:58#3

Tack för snabbt svar!!!!
Jag som stoppade "text = Replace(text, "&", "&")" sist i funktionen och då blev allt galet.
Tänk att det var så enkelt.
//Annette

Problem med att byta "&" till "&amp;" i en funktion

Problem med att byta "&" till "&" i en funktion