Visual Basic 6 - problema con vB..entrate per favore

scusami, ma non ho ben capito il codice... potresti spiegarmelo?'

Postato originariamente da brigaglia:

s = "provaprova"
d = Len(s) - Len(Replace(s, "a", ""))

scusami, ma non ho ben capito il codice... potresti spiegarmelo?'
Te lo spiego io. In effetti è molto ben pensato. In pratica misuri la lunghezza della stringa iniziale, e da questa lunghezza sottrai quella della stessa stringa senza le "a". Un esempio

s="provaprova"

Quindi un Len(s) restituirebbe 10.

p=Replace(s, "a", "")

In questo modo la variabile p diventa "provprov", quindi una Len(p) sarebbe uguale a 8.

In conclusione, sottraendo Len(s) - Len(p) = 10 - 8 = 2 -> che è il numero di ripetizioni della lettera "a" nella stringa s

Grazie, ma mi sembrava abbastanza scontata come soluzione (e non solo a me ...)

Si, non è nulla di complesso (anzi), ma rispetto agli altri codici postati è decisamente quello più ragionato e coerente.

grazie mille siete davvero disponibili...
s e p le devo dichiarare in locale con dim s as byte e dim p as byte, giusto??

Sbagliato ... s e' la stringa (non stai cercando le lettere in una stringa?) e p e' un long (il numero delle lettere cercate ...)

Grazie a tutti...molto gentili

Prego