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

Postato originariamente da GrG:

puoi usare instr...

ecco una piccola funzione che ho appena scritto (dovrebbe funzionare):

Private Function Conta(ByVal frase As String)
Dim i As Integer, contatore As Integer
i = 1
Do
i = InStr(i, frase, "a")
If i > 0 Then
contatore = contatore + 1
i = i + 1
Else
i = 1
End If
DoEvents           <-----------------  che signfiica?
Loop Until i = 1
Conta = contatore
End Function

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

str="provaprova"
str_arr=split(str,"o")

a questo punto hai:
str_arr(0) che contiene: pr
str_arr(1) che contiene: vapr
str_arr(2) che contiene: va

quindi per contare le 'a' in una stringa puoi usare questo codice

num_a=count(split(str,"a"))[b]-1[/b]

chiedo scusa per il doppio post

Postato originariamente da GrG:

puoi usare instr...

ecco una piccola funzione che ho appena scritto (dovrebbe funzionare):

Private Function Conta(ByVal frase As String)
Dim i As Integer, contatore As Integer
i = 1
Do
i = InStr(i, frase, "a")
If i > 0 Then
contatore = contatore + 1
i = i + 1
Else
i = 1
End If
DoEvents
Loop Until i = 1
Conta = contatore
End Function

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

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

Postato originariamente da theprogrammer:
Comunque, consiglio questo semplice codice

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