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> ...)
 
 
(5 versioni intermedie di uno stesso utente non sono mostrate)
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.
+
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
 +
 +
<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
  
−
' Gambas class file''</font>
+
==Conoscere ciascun carattere di una stringa mediante l'indice della variabile Stringa==
 +
Public Sub Main()
 
   
 
   
−
'''Public''' Sub Button1_Click()
+
  Dim s As String
 +
  Dim b As Integer
 
   
 
   
−
  Dim a$ As String
+
  <Font Color=gray>' ''La stringa composta da caratteri e loro quantità a noi non conosciuti:''</font>
−
Dim b As Integer
+
   s = "Verifica passo-passo della stringa"
−
    
 
 
   
 
   
−
  ''<Font Color= #006400>' fingiamo che la stringa, composta da caratteri e loro quantità a noi non conosciuti, sia questa:''</font>
+
  <Font Color=gray>' ''Inizia il controllo carattere dopo carattere per l'intera lunghezza della stringa:''</font>
−
  a$ = "Verifica passo-passo della stringa"
+
  For b = 0 To s.Len
 +
<Font Color=gray>' ''Mostra in console il risultato intero della verifica:''</font>
 +
    Write s[b, 1]
 +
    Flush
 +
    Wait 0.3
 +
  Next
 
   
 
   
−
  ''<Font Color= #006400>' Iniziamo il controllo carattere dopo carattere per l'intera lunghezza della stringa:''</font>
+
  End
−
  For b = 1 To Len(a$)
+
 
 +
==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()
 
   
 
   
−
   ''<Font Color= #006400>' Mostriamo in console il risultato intero della verifica
+
   Dim c As Short
−
'' ' (il " ''';''' " alla fine della funzione Mid$ consentirà di vedere i caratteri in allineamento orizzontale):''</font>
+
  Dim testo As String
−
    Print Mid$(a$, b, 1);
 
 
   
 
   
−
  Next
+
  testo = "Testo qualsiasi"
 
   
 
   
−
  '''End'''
+
  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
  
−
In console avremo coerentemente la scritta:
+
==Sapere quante volte è presente un dato carattere in una stringa==
−
<BR>Verifica passo-passo della 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)
 +
<Font Color=gray>' ''Se il carattere controllato è uguale a quello che si sta cercando...:''</font>
 +
    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>
 +
      Inc trovato
 +
    Endif
 +
  Next
 +
 +
  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()".

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
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Verifica_%22passo-passo%22_di_ciascun_carattere_in_una_data_stringa&oldid=34312"