Verifica "passo-passo" di ciascun carattere in una data stringa

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()

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