Hvernig er þetta svona “for starters” ?

Þetta eru öll helstu entity-in, en þau eru fleiri auðvitað …

function HTMLToSpecialChars(strInput)
dim arrFind
dim arrReplacement
dim strResult

arrFind = array(“À”,“Á”,“”,“Ô,“Ä”,“Å”,“Æ”,“Ç”,“È”,“É”,“Ê”,“Ë”,“Ì”,“Í”,“Δ,“Ï”,“Д,“Ñ”,“Ò”,“Ó”,“Ô”,“Õ”,“Ö”,“×”,“Ø”,“Ù”,“Ú”,“Û”,“Ü”,“Ý”,“Þ” ,“ß”,“à”,“á”,“â”,“ã”,“ä”,“å”,“æ”,“ç”,“è”,“é”,“ê”,“ë”,“ì”,“í”,“î”,“ï”,“ð”,“ñ”,“ò”,“ó”,“ô”,“õ”,“ö”,“÷”,“ø”,“ù”, “ú”,“û”,“ü”,“ý”,“þ”,“ÿ”)
arrReplacement = array(“À”,“Á”,“”,“Ô,“Ä”,“Å”,“Æ”,“Ç”,“È”,“É”,“Ê”, “Ë”,“Ì”,“Í”,“Δ,“Ï”,“Д,“Ñ”,“Ò”,“Ó”,“Ô”,“Õ” ,“Ö”,“×”,“Ø”,“Ù”,“Ú”,“Û”,“Ü”,“Ý”,“Þ”,“ß”,“à”,“á”, “â”,“ã”,“ä”,“å”,“æ”,“ç”,“è”,“é”,“ê”,“ë”,“ì”, “í”,“î”,“ï”,“ð”,“ñ”,“ò”,“ó”,“ô”,“õ”,“ö”,“÷”,“ø”,“ù”,“ú”,“û”,“ü”,“ý”,“þ”,“ÿ”)

for i = 0 to ubound(arrFind)
strInput = Replace(strInput,arrFind(i),arrReplacement(i))
next
HTMLToSpecialChars = strInput
end function

Þegar ég skrifaði þetta, studdist ég við <a href="http://hotwired.lycos.com/webmonkey/reference/special_characters/">http://hotwired.lycos.com/webmonkey/reference/special_characters/</a> þar sem flestir, ef ekki allir HTML special characterar eru sýndir. Þarna hefurðu auk þessi ASCII númer stafanna, þú ættir að geta bætt þeim fídus við þetta fall, nú eða bara búið til annað sem “repleisar” í ASCII númerin.

Þarna hefurðu allavega beisík lausn sem notar Arrays eins og þú talaðir um ;)

P.S Já, mér leiddist!