Confrontare i caratteri di due stringhe: differenze tra le versioni
Vai alla navigazione
Vai alla ricerca
(Nuova pagina: Il caso è quello in cui, avendo due stringhe di eguale lunghezza di carratteri, vogliamo verificare quali e quanti caratteri sono eventualmente diversi all'interno delle predette stri...) |
Nessun oggetto della modifica |
||
| Riga 1: | Riga 1: | ||
Il caso è quello in cui, avendo due stringhe di eguale lunghezza di carratteri, vogliamo verificare quali e quanti caratteri sono eventualmente diversi all'interno delle predette stringhe. | Il caso è quello in cui, avendo due stringhe di eguale lunghezza di carratteri, vogliamo verificare quali e quanti caratteri sono eventualmente diversi all'interno delle predette stringhe. | ||
Potremo procedere utilizzando la funzione ''Mid(...)'' | Potremo procedere utilizzando la funzione ''Mid(...)'', e l'intento sarà quello di | ||
'''Public''' Sub Button1_Click() | '''Public''' Sub Button1_Click() | ||
Dim | Dim s1, s2, diversi As String | ||
Dim j, a As Byte | Dim j, a As Byte | ||
s1 = "abc0101" | |||
s2 = "abd0111" | |||
For j = 1 To Len(s) | For j = 1 To Len(s) | ||
If Mid( | If Mid(s1, j, 1) <> Mid(s2, j, 1) Then | ||
Inc a | Inc a | ||
diversi = diversi & " " & Mid( | diversi = diversi & " " & Mid(s2, j, 1) | ||
Endif | Endif | ||
Next | Next | ||
Print "I caratteri diversi sono:"; diversi | Print "I caratteri diversi della stringa "s2" rispetto a quelli della stringa "s1" sono: "; diversi | ||
Print "per un totale di "; a & " caratteri." | Print "per un totale di "; a & " caratteri." | ||
'''End''' | '''End''' | ||
Versione delle 10:19, 10 dic 2012
Il caso è quello in cui, avendo due stringhe di eguale lunghezza di carratteri, 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