Differenze tra le versioni di "Verifica "passo-passo" di ciascun carattere in una data stringa"
Da Gambas-it.org - Wikipedia.
Riga 1: | Riga 1: | ||
Per conoscere ciascun carattere componente una stringa di una qualunque lunghezza e composizione, anche contenente spazi fra le parole, si potrà utilizzare la funzione nativa "Mid()" oppure il Metodo "String.Code()". | Per conoscere ciascun carattere componente una stringa di una qualunque lunghezza e composizione, anche contenente spazi fra le parole, si potrà utilizzare la funzione nativa "Mid()" oppure il Metodo "String.Code()". | ||
− | |||
− | |||
==Conoscere ciascun carattere di una stringa mediante la funzione ''Mid()''== | ==Conoscere ciascun carattere di una stringa mediante la funzione ''Mid()''== | ||
− | Mostreremo di seguito un possibile codice che utilizza la funzione | + | Mostreremo di seguito un possibile codice che utilizza la funzione "Mid()": |
− | + | Public Sub Main() | |
+ | |||
+ | Dim s As String | ||
+ | Dim b As Integer | ||
− | ''' | + | <Font Color=gray>' ''La stringa composta da caratteri e loro quantità a noi non conosciuti:''</font> |
+ | s = "Verifica passo-passo della stringa" | ||
+ | |||
+ | <Font Color=gray>' ''Inizia il controllo carattere dopo carattere per l'intera lunghezza della stringa:''</font> | ||
+ | For b = 1 To Len(s) | ||
+ | <Font Color=gray>' ''Mostra in console il risultato intero della verifica:''</font> | ||
+ | Write Mid(s, b, 1) | ||
+ | Flush | ||
+ | Wait 0.3 | ||
+ | Next | ||
+ | |||
+ | End | ||
+ | |||
+ | ==Conoscere ciascun carattere di una stringa mediante l'indice della variabile Stringa== | ||
+ | Public Sub Main() | ||
Dim s As String | Dim s As String | ||
− | Dim b As Integer | + | Dim b As Integer |
− | <Font Color=gray>' '' | + | <Font Color=gray>' ''La stringa composta da caratteri e loro quantità a noi non conosciuti:''</font> |
− | + | s = "Verifica passo-passo della stringa" | |
− | <Font Color=gray>' '' | + | <Font Color=gray>' ''Inizia il controllo carattere dopo carattere per l'intera lunghezza della stringa:''</font> |
− | + | For b = 0 To s.Len | |
− | <Font Color=gray>' '' | + | <Font Color=gray>' ''Mostra in console il risultato intero della verifica:''</font> |
− | + | Write s[b, 1] | |
− | + | Flush | |
+ | Wait 0.3 | ||
+ | Next | ||
− | + | End | |
− | |||
− | |||
− | |||
==Conoscere ciascun carattere di una stringa mediante la funzione nativa "Asc()"== | ==Conoscere ciascun carattere di una stringa mediante la funzione nativa "Asc()"== | ||
Mostreremo di seguito un possibile codice che utilizza la funzione nativa "Asc()": | Mostreremo di seguito un possibile codice che utilizza la funzione nativa "Asc()": | ||
− | + | Public Sub Main() | |
− | + | ||
− | Dim c As Short | + | Dim c As Short |
− | Dim testo As String | + | Dim testo As String |
− | + | ||
− | testo = "Testo qualsiasi" | + | testo = "Testo qualsiasi" |
− | + | ||
− | For c = 1 To Len(testo) | + | For c = 1 To Len(testo) |
− | + | Write Chr(Asc(testo, c)) | |
− | Next | + | Flush |
− | + | Wait 0.3 | |
− | + | Next | |
− | + | ||
+ | End | ||
==Conoscere ciascun carattere di una stringa mediante il Metodo "String.Code()"== | ==Conoscere ciascun carattere di una stringa mediante il Metodo "String.Code()"== | ||
Mostreremo di seguito un possibile codice che utilizza il Metodo "String.Code()": | Mostreremo di seguito un possibile codice che utilizza il Metodo "String.Code()": | ||
− | + | Public Sub Button1_Click() | |
Dim c As Short | Dim c As Short | ||
Riga 51: | Riga 66: | ||
For c = 1 To Len(testo) | For c = 1 To Len(testo) | ||
− | + | Write Chr(String.Code(testo, c)) | |
− | Next | + | Flush |
− | + | Wait 0.3 | |
− | + | Next | |
− | + | ||
+ | End | ||
==Sapere quante volte è presente un dato carattere in una 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: | L'algoritmo precedente ci consente di crearne anche un altro per sapere quante volte è presente un dato carattere in una stringa: | ||
− | + | Private Function cercaCarattere(testo As String, carattere As String) As Short | |
− | + | ||
− | Dim c, trovato As Short | + | Dim c, trovato As Short |
− | + | ||
− | For c = 1 To Len(testo) | + | For c = 1 To Len(testo) |
<Font Color=gray>' ''Se il carattere controllato è uguale a quello che si sta cercando...:''</font> | <Font Color=gray>' ''Se il carattere controllato è uguale a quello che si sta cercando...:''</font> | ||
− | If Mid(testo, c, 1) = lettera Then | + | If Mid(testo, c, 1) = lettera Then |
<Font Color=gray>' ''...allora incrementa di un'unità il valore della variabile integer che tiene il conto:''</font> | <Font Color=gray>' ''...allora incrementa di un'unità il valore della variabile integer che tiene il conto:''</font> | ||
− | Inc trovato | + | Inc trovato |
− | Endif | + | Endif |
− | Next | + | Next |
− | + | ||
− | Return trovato | + | Return trovato |
− | + | ||
− | + | End |
Versione attuale delle 08:27, 24 giu 2023
Per conoscere ciascun carattere componente una stringa di una qualunque lunghezza e composizione, anche contenente spazi fra le parole, si potrà utilizzare la funzione nativa "Mid()" oppure il Metodo "String.Code()".
Indice
- 1 Conoscere ciascun carattere di una stringa mediante la funzione Mid()
- 2 Conoscere ciascun carattere di una stringa mediante l'indice della variabile Stringa
- 3 Conoscere ciascun carattere di una stringa mediante la funzione nativa "Asc()"
- 4 Conoscere ciascun carattere di una stringa mediante il Metodo "String.Code()"
- 5 Sapere quante volte è presente un dato carattere in una stringa
Conoscere ciascun carattere di una stringa mediante la funzione Mid()
Mostreremo di seguito un possibile codice che utilizza la funzione "Mid()":
Public Sub Main() Dim s As String Dim b As Integer ' La stringa composta da caratteri e loro quantità a noi non conosciuti: s = "Verifica passo-passo della stringa" ' Inizia il controllo carattere dopo carattere per l'intera lunghezza della stringa: For b = 1 To Len(s) ' Mostra in console il risultato intero della verifica: Write Mid(s, b, 1) Flush Wait 0.3 Next End
Conoscere ciascun carattere di una stringa mediante l'indice della variabile Stringa
Public Sub Main()
Dim s As String Dim b As Integer ' La stringa composta da caratteri e loro quantità a noi non conosciuti: s = "Verifica passo-passo della stringa" ' Inizia il controllo carattere dopo carattere per l'intera lunghezza della stringa: For b = 0 To s.Len ' Mostra in console il risultato intero della verifica: Write s[b, 1] Flush Wait 0.3 Next End
Conoscere ciascun carattere di una stringa mediante la funzione nativa "Asc()"
Mostreremo di seguito un possibile codice che utilizza la funzione nativa "Asc()":
Public Sub Main() Dim c As Short Dim testo As String testo = "Testo qualsiasi" For c = 1 To Len(testo) Write Chr(Asc(testo, c)) Flush Wait 0.3 Next End
Conoscere ciascun carattere di una stringa mediante il Metodo "String.Code()"
Mostreremo di seguito un possibile codice che utilizza il Metodo "String.Code()":
Public Sub Button1_Click() Dim c As Short Dim testo As String testo = "Testo qualsiasi" For c = 1 To Len(testo) Write Chr(String.Code(testo, c)) Flush Wait 0.3 Next End
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:
Private Function cercaCarattere(testo As String, carattere As String) As Short Dim c, trovato As Short For c = 1 To Len(testo) ' Se il carattere controllato è uguale a quello che si sta cercando...: If Mid(testo, c, 1) = lettera Then ' ...allora incrementa di un'unità il valore della variabile integer che tiene il conto: Inc trovato Endif Next Return trovato End