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

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