Konvertera sträng

[Ceeron]

Skulle vilja ha en funktion som gjorde om alla icke svenska tecken till svenska tecken... typ...
lr rättare sagt jag vill ha en funktion som gör om en textsträng(anv namn) till "fil-vänliga" tecken. Detta pga att mitt webhotell som ligger i UK inte vill ha "ä" i filnamn...

[Sebbe]

Antar att du menar något sånt här?

Function ReplaceSv(str)
  str = Replace(str, "å", "a")
  str = Replace(str, "ä", "a")
  str = Replace(str, "ö", "o")
  str = Replace(str, "Å", "A")
  str = Replace(str, "Ä", "A")
  str = Replace(str, "Ö", "O")

  ReplaceSv = str
End Function

Response.Write(ReplaceSv("Läsa svåra böcker"))

/red Stavningsmiss.

[Eitraz]

Samma sak här ungefär:

ch = Array("Å","A","Ä","ä","Ö","O","å","a","ä","a","ö","o"," ","_")
For i = 0 To UBound(ch) Step 2
	tmpText = Replace(tmpText, ch(i), ch(i + 1))
Next

rätt smidigt..