brigaglia (Normal User)
Newbie
Messaggi: 9
Iscritto: 19/05/2009
|
ecco il mio problema che devo risolvere in visual basic ma non ho capito come fare...
devo dare in input una frase e in output mi deve dare quante "a" sono contenute nella frase data in input...
grazie degli aiuti!!
|
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
puoi usare instr...
ecco una piccola funzione che ho appena scritto (dovrebbe funzionare):
Codice sorgente - presumibilmente VB.NET |
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
|
|
|
|
brigaglia (Normal User)
Newbie
Messaggi: 9
Iscritto: 19/05/2009
|
Postato originariamente da GrG:
puoi usare instr...
ecco una piccola funzione che ho appena scritto (dovrebbe funzionare):
Codice sorgente - presumibilmente VB.NET |
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
|
|
|
|
|
antometal (Member)
Guru
Messaggi: 691
Iscritto: 12/09/2007
|
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
Codice sorgente - presumibilmente Plain Text |
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
Codice sorgente - presumibilmente Plain Text |
num_a=count(split(str,"a"))-1
|
Ultima modifica effettuata da antometal il 19/05/2009 alle 19:29 |
|
|
brigaglia (Normal User)
Newbie
Messaggi: 9
Iscritto: 19/05/2009
|
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
Codice sorgente - presumibilmente Plain Text |
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
Codice sorgente - presumibilmente Plain Text |
num_a=count(split(str,"a"))[b]-1[/b]
|
chiedo scusa per il doppio post |
ah grazie mille!!!  |
|
|
brigaglia (Normal User)
Newbie
Messaggi: 9
Iscritto: 19/05/2009
|
Postato originariamente da GrG:
puoi usare instr...
ecco una piccola funzione che ho appena scritto (dovrebbe funzionare):
Codice sorgente - presumibilmente VB.NET |
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
|
|
potresti dirmi cosa significa doEvents? |
|
|
theprogrammer (Normal User)
Guru^2
Messaggi: 2509
Iscritto: 28/01/2009
|
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 ...
Comunque, consiglio questo semplice codice
Codice sorgente - presumibilmente Plain Text |
s = "provaprova"
d = Len(s) - Len(Replace(s, "a", ""))
|
|
|
|
ruggy94 (Member)
Guru
Messaggi: 890
Iscritto: 21/04/2008
|
Postato originariamente da theprogrammer:
Comunque, consiglio questo semplice codice
Codice sorgente - presumibilmente Plain Text |
s = "provaprova"
d = Len(s) - Len(Replace(s, "a", ""))
|
|
Veramente astuto  bravo Ultima modifica effettuata da ruggy94 il 19/05/2009 alle 19:56 |
|
|
brigaglia (Normal User)
Newbie
Messaggi: 9
Iscritto: 19/05/2009
|
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 ...
Comunque, consiglio questo semplice codice
Codice sorgente - presumibilmente Plain Text |
s = "provaprova"
d = Len(s) - Len(Replace(s, "a", ""))
|
|
scusami, ma non ho ben capito il codice... potresti spiegarmelo?'  |
|
|
| 
