Differenze tra le versioni di "Verifica "passo-passo" di ciascun carattere in una data stringa"
Da Gambas-it.org - Wikipedia.
(Nuova pagina: 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''</font> ...) |
|||
| Riga 1: | Riga 1: | ||
Data una stringa di una qualunque lunghezza e composizione, anche contenente spazi fra le parole, intendiamo conoscere ciascun carattere che la compone. | 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''</font> | + | ''<Font Color= #006400>' Gambas class file''</font> |
'''Public''' Sub Button1_Click() | '''Public''' Sub Button1_Click() | ||
Versione delle 09:05, 14 feb 2012
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
