Conteggio carattere ( versione 1 )

Grazie a questo script, è possibile conteggiare le occorrenze di un singolo carattere all'interno di una stringa di testo.

<%

dim strFrase

strFrase="Frase con carattere da conteggiare"

dim chrCarattere

chrCarattere = "a"

dim qtCarattere

qtCarattere = 0

dim ctInd

ctInd = 1

for ctInd = 1 to len(strFrase)

if mid(strFrase,ctInd,1) = chrCarattere then

qtCarattere = qtCarattere + 1

end if

next

response.write "Carattere trovato "&
qtCarattere&" volte"

%>