Comparer le contenu de deux textbox [Résolu]
tinux
- Messages postés
- 246
- Date d'inscription
- mercredi 13 avril 2005
- Dernière intervention
- 21 octobre 2013
- Messages postés
- 7401
- Date d'inscription
- mercredi 23 avril 2003
- Dernière intervention
- 6 avril 2012
A voir également:
- Comparer le contenu de deux textbox
- Comparer le contenu de deux repértoires - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Comparer le contenu de deux tableaux ✓ - Forum - Java
- Imprimer le contenu d'une textbox - Codes sources - Visual Basic / VB.NET (Imprimante)
- Enregistrer le contenu d'une textbox dans un fichier - Codes sources - Visual Basic / VB.NET (Texte)
- Imprimer le contenu d'une textbox - Codes sources - Visual Basic / VB.NET (Imprimante)
9 réponses
Meilleure réponse
- Messages postés
- 7401
- Date d'inscription
- mercredi 23 avril 2003
- Dernière intervention
- 6 avril 2012
Salut,
le code suivant est pour VB6 mais peut être peu t il t'aider quand meme.
Dim ContT1() As String
Dim Egaux As Boolean
Dim i As Integer
Textbox1 = "He+O+H+Fe"
Textbox2 = "H+O+de+He"
ContT1 = Split(Textbox1, "+")
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
@+: Ju£i?n
Pensez: Réponse acceptée
le code suivant est pour VB6 mais peut être peu t il t'aider quand meme.
Dim ContT1() As String
Dim Egaux As Boolean
Dim i As Integer
Textbox1 = "He+O+H+Fe"
Textbox2 = "H+O+de+He"
ContT1 = Split(Textbox1, "+")
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
@+: Ju£i?n
Pensez: Réponse acceptée
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
119 internautes nous ont dit merci ce mois-ci
- Messages postés
- 4530
- Date d'inscription
- dimanche 29 septembre 2002
- Dernière intervention
- 23 décembre 2014
- Messages postés
- 7401
- Date d'inscription
- mercredi 23 avril 2003
- Dernière intervention
- 6 avril 2012
[auteurdetail.aspx?ID=2359 Renfield]
BIEN VU (Comme d'hab)
Il faut donc passer par deux split et parcourir les splitter
@+: Ju£i?n
Pensez: Réponse acceptée
BIEN VU (Comme d'hab)
Il faut donc passer par deux split et parcourir les splitter
@+: Ju£i?n
Pensez: Réponse acceptée
- Messages postés
- 7401
- Date d'inscription
- mercredi 23 avril 2003
- Dernière intervention
- 6 avril 2012
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
@+: Ju£i?n
Pensez: Réponse acceptée
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
@+: Ju£i?n
Pensez: Réponse acceptée
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.