[VB6]: Contare occorrenze di un carattere all'interno di una stringa

[icecube_HT]

Originariamente inviato da fradipa
Ciao a tutti,
avrei bisogno di creare una routine che conta il numero di volte che si presenta un carattere in una stringa....perdonate la banalità della richiesta, ma sto impazzendo!
Grazie mille!!

Puoi provare a usare una funzione come questa:

Function QuanteVolte(car As String, str As String) As Long
   If Len(car) <> 1 Then Err.Raise 5 ' car DEVE essere 1 carattere !
   QuanteVolte = Len(str) - Len(Replace(str, car, "", , , vbTextCompare))
End Function

La logica e' la seguente:
- costruisce una stringa in cui viene eliminato il carattere da cercare (rimpiazzandolo con una stringa nulla)
- il numero di caratteri eliminati e' pari alla differenza di lunghezza della stringa prima e dopo la cura !