Oppure

Loading
19/05/09 19:17
GrG
s = "provaprova"
d = Len(s) - Len(Replace(s, "a", "";))



E' vero, non ci avevo minimamente pensato :P
aaa
19/05/09 19:44
antometal
Postato originariamente da theprogrammer:

Postato originariamente da antometal:

oppure puoi usare la funzione count(array) che restituisce i numeri di elementi di un vettore, e split(stringa,separatore)che faccio un esempio che è meglio


Mi sa che stai proponendo codice VB.NET ... count non esiste in VB6 ...


gia colpa dell' influenza del PHP

cmq la funzione che restituisce i numeri degli elementi di un array in vb6 è ubound
quindi il codice è facilmente correggibile in: 
num_a=ubound(split(str,"a"))-1
aaa
20/05/09 6:07
theprogrammer
Postato originariamente da antometal:
cmq la funzione che restituisce i numeri degli elementi di un array in vb6 è ubound
quindi il codice è facilmente correggibile in: 
num_a=ubound(split(str,"a"))-1


Certo ... e dato che ci sei, dovresti evitare di chiamare la variabile

str

perche' e' il nome di una funzione e in quanto tale riservata.
aaa
20/05/09 9:55
antometal
:rotfl:
vero, ma quello è un errore facilmente correggibile e probabilmente brigaglia avrà gia la sua varibile
aaa