Differenze tra le versioni di "Verifica "passo-passo" di ciascun carattere in una data stringa"
Da Gambas-it.org - Wikipedia.
Riga 9: | Riga 9: | ||
− | + | <Font Color= #006400>' ''Fingiamo che la stringa, composta da caratteri e loro quantità a noi non conosciuti, sia questa:''</font> | |
a$ = "Verifica passo-passo della stringa" | a$ = "Verifica passo-passo della stringa" | ||
− | + | <Font Color= #006400>' ''Iniziamo il controllo carattere dopo carattere per l'intera lunghezza della stringa:''</font> | |
For b = 1 To Len(a$) | For b = 1 To Len(a$) | ||
− | + | <Font Color= #006400>' ''Mostriamo in console il risultato intero della verifica'' | |
− | '' ' (il " ''';''' " alla fine della funzione Mid$ consentirà di vedere i caratteri in allineamento orizzontale):''</font> | + | ' ''(il " ''';''' " alla fine della funzione Mid$ consentirà di vedere i caratteri in allineamento orizzontale):''</font> |
Print Mid$(a$, b, 1); | Print Mid$(a$, b, 1); | ||
Riga 26: | Riga 26: | ||
In console avremo coerentemente la scritta: | In console avremo coerentemente la scritta: | ||
<BR>Verifica passo-passo della stringa | <BR>Verifica passo-passo della stringa | ||
+ | |||
+ | |||
+ | |||
+ | ==Sapere quante volte è presente un dato carattere in una stringa== | ||
+ | L'algoritmo precedente ci consente di crearne anche un altro per sapere quante volte è presente un dato carattere in una stringa: | ||
+ | '''Public''' Function cercaCarattere(testo As String, carattere As String) As Short | ||
+ | |||
+ | Dim j, trovato As Short | ||
+ | |||
+ | For j = 1 To Len(testo) | ||
+ | <Font Color= #006400>' ''Se il carattere controllato è uguale a quello che si sta cercando...:''</font> | ||
+ | If Mid(testo, j, 1) = lettera Then | ||
+ | <Font Color= #006400>' ''...allora incrementa di un'unità il valore della variabile integer che tiene il conto:''</font> | ||
+ | Inc trovato | ||
+ | Endif | ||
+ | Next | ||
+ | |||
+ | Return trovato | ||
+ | |||
+ | '''End''' |
Versione delle 10:49, 2 mag 2013
Data una stringa di una qualunque lunghezza e composizione, anche contenente spazi fra le parole, intendiamo conoscere ciascun carattere che la compone.
' Gambas class file Public Sub Button1_Click() Dim a$ As String Dim b As Integer ' Fingiamo che la stringa, composta da caratteri e loro quantità a noi non conosciuti, sia questa: a$ = "Verifica passo-passo della stringa" ' Iniziamo il controllo carattere dopo carattere per l'intera lunghezza della stringa: For b = 1 To Len(a$) ' Mostriamo in console il risultato intero della verifica ' (il " ; " alla fine della funzione Mid$ consentirà di vedere i caratteri in allineamento orizzontale): Print Mid$(a$, b, 1); Next End
In console avremo coerentemente la scritta:
Verifica passo-passo della stringa
Sapere quante volte è presente un dato carattere in una stringa
L'algoritmo precedente ci consente di crearne anche un altro per sapere quante volte è presente un dato carattere in una stringa:
Public Function cercaCarattere(testo As String, carattere As String) As Short Dim j, trovato As Short For j = 1 To Len(testo) ' Se il carattere controllato è uguale a quello che si sta cercando...: If Mid(testo, j, 1) = lettera Then ' ...allora incrementa di un'unità il valore della variabile integer che tiene il conto: Inc trovato Endif Next Return trovato End