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

[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!!

[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 !

[fradipa]

Funziona benissimo!!
Grazie 1000!!

[Luciano79]

Originariamente inviato da icecube_HT

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

Veramente originale come soluzione :rollo:

[icecube_HT]

Originariamente inviato da Luciano79
Veramente originale come soluzione :rollo:

Bella, no ?

E' piu' veloce del classico ciclo carattere per carattere, ed e' molto compatta...

Certo, dal punto di vista "didattico" non e' proprio il massimo della chiarezza...