Discussion :

[anfernus]

Bonjour à tous,
Comment comparer entre deux chaines de caractères de longeurs égales ou différentes et calculer la nombre de différences entre les deux?
exemple:"entreprise" et "enreprise" ,résultat:1
Merci

[datacell33]

Cette question parait simple mais elle est en fait très complexe...

Entre aabb et aaaba

Tu comptes combien de différence ?

[mercatog]

Je confirme la complexité du sens de la question. ci-joint une proposition qui donne un résultat très approximatif

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Function CompText(ByVal Txt1 As String, ByVal Txt2 As String) As Integer
Dim Mot1 As String, Mot2 As String
Dim i As Integer, N As Integer
 
N = IIf(Len(Txt1) >= Len(Txt2), 1, -1) * (Len(Txt1) - Len(Txt2))
If N > 0 Then N = N - 1
i = 1
Do
   Mot1 = IIf(Len(Txt1) >= Len(Txt2), Txt1, Txt2)
   Mot2 = IIf(Len(Txt1) >= Len(Txt2), Txt2, Txt1)
   If UCase(Mid(Mot1, i, 1)) <> UCase(Mid(Mot2, i, 1)) Then
      Txt1 = Mid(Mot1, i + 1)
      Txt2 = Mid(Mot2, i)
      N = N + 1
      i = 1
   End If
   i = i + 1
Loop While Len(Mot1) * Len(Mot2) <> 0 And i <= Len(Mot1) + 1
CompText = N
End Function

=CompText("aabb";"aaaba") donne 2

[anfernus]

En fait ce que je veux c'est de savoir si il y'a un oubli dans le mots, du coup, pour: aaab et aab résultat:1
aaab etaac résultat:2
aaab et ab résultat:2
Merci