Salut tout le monde!

Pour avoir tous les points communs entre 2 textes, j'ai pensé à chercher au moins 3 caractères communs (et plus). (Et puis) le problème c'est que ça ne donne que les 2 premières parties communes. Comment faire pour avoir toutes les parties communes?

Merci.

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
21
22
23
24
t1 = Text1.Text
t2 = Text2.Text
d = 1
 
Do
a = d + 3
If InStr(t1, Mid(t2, d, a)) > 0 Then
    Do
    If InStr(t1, Mid(t2, d, a)) > 0 Then
        a = a + 1
        x = 0
    Else
        a = a - 1
        List1.AddItem Mid(t2, d, a)
        d = a + 1
        y = 0
        x = 1
    End If
    Loop While x = 0
Else
d = d + 1
y = 1
End If
Loop While y = 0
[Etit : par zaza] C'est 'et plus' ou 'Et puis' ? Je crois que c'est 'Et puis', à cause du 'au moins', mais vu la syntaxe de départ, je ne sais plus... J'enlèverai cet ajout quand tu auras spécifié.