Differenze tra le versioni di "Confrontare i caratteri di due stringhe"
Da Gambas-it.org - Wikipedia.
| Riga 1: | Riga 1: | ||
| − | Il caso è quello in cui, avendo due stringhe di eguale lunghezza di | + | Il caso è quello in cui, avendo due stringhe di eguale lunghezza di caratteri, vogliamo verificare quali e quanti caratteri sono eventualmente diversi all'interno delle predette stringhe. |
Potremo procedere utilizzando la funzione ''Mid(...)'', e l'intento sarà quello di | Potremo procedere utilizzando la funzione ''Mid(...)'', e l'intento sarà quello di | ||
Versione delle 09:23, 10 dic 2012
Il caso è quello in cui, avendo due stringhe di eguale lunghezza di caratteri, vogliamo verificare quali e quanti caratteri sono eventualmente diversi all'interno delle predette stringhe.
Potremo procedere utilizzando la funzione Mid(...), e l'intento sarà quello di
Public Sub Button1_Click()
Dim s1, s2, diversi As String
Dim j, a As Byte
s1 = "abc0101"
s2 = "abd0111"
For j = 1 To Len(s)
If Mid(s1, j, 1) <> Mid(s2, j, 1) Then
Inc a
diversi = diversi & " " & Mid(s2, j, 1)
Endif
Next
Print "I caratteri diversi della stringa \"s2\" rispetto a quelli della stringa \"s1\" sono: "; diversi
Print "per un totale di "; a & " caratteri."
End
