If Len (Textbox1) = Len(Textbox2) Then
Egaux = True
For i = LBound (ContT1) To UBound(ContT1)
If InStr(1, Textbox2, ContT1(i)) = 0 Then
Egaux = False
Exit For
End If
Next
End If
cs_EBArtSoft
Messages postés4525Date d'inscriptiondimanche 29 septembre 2002StatutModérateurDernière intervention22 avril 20199 18 janv. 2007 à 15:00
Je crois que tu veux dire comparer les element de la chaine ! une comparaison binaire ne marchera pas! fait un split et compare les element de chaque tableau.
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 19 janv. 2007 à 08:56
Salut,
Un peu d'imagination.... Tu aurais pu essayer de le trouver seul.
En revanche comme tu es en .NET, je suis sûr que VB te propose de meilleures façons pour arriver à faire ce que tu souhaites.
Dim ContT2() As String
Dim ContT1() As String
Dim Egaux As Boolean
Dim Trouve As Boolean
Dim i As Integer
Dim j As Integer
TextBox1 = "He+O+H+Fe"
TextBox2 = "H+O+Fe+He"
If Len (TextBox1) = Len(TextBox2) Then
'On Casse les deux Chaines
ContT1 = Split(TextBox1, "+")
ContT2 = Split(TextBox2, "+")
'Boucle sur le premier contenu
For i = LBound (ContT1) To UBound(ContT1)
Trouve = False
'On Verifie si le premier element
'n'est pas dans le split du second
For j = LBound (ContT2) To UBound(ContT2)
If ContT1(i) = ContT2(j) Then
Trouve = True
Exit For
End If
Next j
If Not Trouve Then
'Chaine pas egales
MsgBox "Diff"
Exit For
End If
Next
End If