Differenze tra le versioni di "Confrontare i caratteri di due stringhe"
Da Gambas-it.org - Wikipedia.
(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...) |
|||
| 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 09: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
