ASP//yazıdaki sesli harfleri ayıklama fonksiyonu

[free!]

<%

private function ayikla ( neyi )
dim sonHarf, x

for x = 0 to len(neyi)
sonHarf = right(left(neyi,x),1)
if not sonHarf = "a" _
and not sonHarf = "e" _
and not sonHarf = "ı" _
and not sonHarf = "i" _
and not sonHarf = "o" _
and not sonHarf = "ö" _
and not sonHarf = "u" _
and not sonHarf = "ü" _
then _
ayikla = ayikla & sonHarf
next

end function

' kullanılabilir hali:
response.write ayikla( "gidersen kar yağar avuçlarıma, üşürsün." )

' sonuç: " gdrsn kr yğr vçlrm, şrsn. "

%>