Tælle antal konsonanter i et tekstfelt

Du kan lave en funktion som tæller antallet af konsonater. Eks:

function countKonsonanter(str)
  antal=0
  konsonanter="bcdfghjklmnpqrstvwxz"
  for i = 1 to len(str)
      if instr(1,konsonanter,mid(str,i,1),1)>0 then antal=antal+1
    next
  countKonsonanter = antal
end function


og så kalde den sådan her:

str = "ABcdefgHI83743adf"
response.write countKonsonanter(str)

--> eagleeye: Burde du ikke enten have både store og små bogstaver i din konsonant-liste eller lave en konvertering af mid(str,i,1) til små bogstaver?

Nej ikke når der er ,1 til sidst på instr funktionen. Det betyder den sammenligner som ikke case sensitiv.

Ahh, okey doke.

Alting er funky-dory nu