tinux246
Messages postés mercredi 13 avril 2005Date d'inscription
21 octobre 2013
Dernière intervention
-
18 janv. 2007 à 13:56 - Dernière réponse : jrivet7401
Messages postés mercredi 23 avril 2003Date d'inscription
6 avril 2012
Dernière intervention
- 19 janv. 2007 à 08:56
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
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.
jrivet7401
Messages postés mercredi 23 avril 2003Date d'inscription
6 avril 2012
Dernière intervention -19 janv. 2007 à 08:56
0
Utile
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
