Function som fjerne tegn <asc 27 og >asc 127

Du kan lave en funktion som denne:


function fjernascii(str)
for i =1 to len(str)
  if Asc(mid(str,i,1))>27 and Asc(mid(str,i,1)) < 127 then oStr = oStr & mid(str,i,1)
next
fjernascii=oStr
end function

TextLinie = "adsfadfæl"
TextLinie = fjernascii(TextLinie)
Response.Write TextLinie

hvad med æøå ÆØÅ

De skal man opgså have med

Ikke ud fra overskrifen :)

men så kan du jo udvide den lidt sådan her:


function fjernascii(str)
for i =1 to len(str)
  if Asc(mid(str,i,1))>27 and Asc(mid(str,i,1)) < 127 or inStr(1,"æøåÆØÅ",Asc(mid(str,i,1)))>0 then
    oStr = oStr & mid(str,i,1)
  end if
next
fjernascii=oStr
end function