ch = Array("Å","A","Ä","ä","Ö","O","å", "a", "ä", "a","ö","o")
str = tmpText
If nOT isnull(tmpText) Then
For i = 0 To UBound(ch) Step 2
str = Replace(str, ch(i), ch(i + 1))
Next
End If
Frågan#1
Tjo!
Har ett lite halvunderligt problem här. För att göra det kort så säger vi såhär:
Jag laddar en sträng (tmpText) från en databas (mySQL). Nu vill jag byta ut alla ÅÄÖåäö i den strängen. Inte så svårt kan man tro och jag knådade ihop följande kod:
ch = Array("Å","A","Ä","ä","Ö","O","å", "a", "ä", "a","ö","o")
If NOT tmpText = Null Then
For i = 0 To UBound(ch) Step 2
str = Replace(tmpText, ch(i), ch(i + 1))
Next
End If
Nu är problemet bara att det inte funkar över huvud taget. Alla åäö o.s.v. är fortarande kvar. Tittar jag i HTML koden på sidan (när jag laddat den) är det ett ö som står där och inte nåt & ouml; etc.
Nån som vet nån smart lösning?
Har för övrigt även testat med att använda Chr(246) etc för de olika.
-Eitraz