Confrontare i caratteri di due stringhe: differenze tra le versioni
Vai alla navigazione
Vai alla ricerca
Nessun oggetto della modifica |
Nessun oggetto della modifica |
||
| 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 10: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