Differenze tra le versioni di "Verifica "passo-passo" di ciascun carattere in una data stringa"

Versione delle 19:57, 11 mag 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()".

Conoscere ciascun carattere di una stringa mediante la funzione Mid()

Mostreremo di seguito un possibile codice che utilizza la funzione Mid():

' Gambas class file

Public Sub Button1_Click()

 Dim s As String
 Dim b As Integer  

' Fingiamo che la stringa, composta da caratteri e loro quantità a noi non conosciuti, sia questa:
  s = "Verifica passo-passo della stringa"

' Iniziamo il controllo carattere dopo carattere per l'intera lunghezza della stringa:
  For b = 1 To Len(as) 
' Mostriamo in console il risultato intero della verifica (il carattere " ; " alla fine della funzione "Mid()" consentirà di vedere i caratteri in allineamento orizzontale):
    Print Mid(s, b, 1);
  Next

End

In console avremo coerentemente la scritta:
Verifica passo-passo della stringa

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 Button1_Click()  
     
 Dim c As Short  
 Dim testo As String 
     
 testo = "Testo qualsiasi"  
               
 For c = 1 To Len(testo)      
   Print Chr(Asc(testo, c))
 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)
   Print Chr(String.Code(testo, c))
 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