Cercare e contare carattere in stringa

[ubbicom]

Ciao a tutti.

Qual'è quella funzione che in questa stringa:

CARLO@ENERGIA.IT; VINCENZO@ENERGIA.IT

Mi restituisce che nella stringa sono contenuti due simboli @ ?

Grazie

[Grambo]

non so quale sia la funzione ma così funziona

testo="CARLO@ENERGIA.IT; VINCENZO@ENERGIA.IT"
lista=Split(testo, "@")
num=ubound(lista)
response.write num

[Mizushi]

Usa anche questa:

Function quanteVolte(str1,str2)
  Dim strArray
  strArray = Split(str1, str2)
  quanteVolte = UBound(strArray)
End Function

Response.Write quanteVolte("mizushi","m")

E questa può essere utile per manipolare una stringa:

function levaUltimo(str) 
   levaUltimo = left(str,len(str)-1)
end function