Recherche dans deux texbox

Question

Bonjour &#224; tous, voil&#224; je viens de repprends VB6 depuis des mois, je voudrais faire une recherche sur deux textbox.
J'ai le fichier 1 que j'ai int&#233;grer dans Textbox 1 et le fichier 2 dans Textbox 2.
Dans le textbox un il y a les chiffres 1 2 3 4 5 6 7 8 et dans le textbox 2 il y a les chiffres 5 7 3.
J'aurais voulu qu'il y ai une recherche pour trouver les chiffres manquand dans la textbox 2 et me l'ins&#233;rer dans une textbox3, sachant que les nombres ne sont pas trier par ligne.
Cela fait deux jours que je suis dessus et je n'arrive pas &#224; avoir les chiffres manquant avec mes variables et ma boucle, je ne sais pas trop comment m'y prendre
Je peux aussi faire une autre solution, j'ai donc un fichier de r&#233;ference avec des r&#233;f&#233;rences manquantes sachant que la premi&#232;re r&#233;f&#233;rence est 0001 &#224; 4001 pour la derni&#232;re sachant que les r&#233;f&#233;rences vont de +1 &#224; chaque fois, j'aimerais trouv&#233; les r&#233;f&#233;rences qui ne sont pas dans le fichier, je vous remercie d'avance de votre aide, car l&#224; je patauge un peu.
Cordialement
Jean Paul

cs_Jack · Answer

Salut
TextBox n'est pas forcement un bon choix car limit&#233;e en taille (2048 caract&#232;res, de m&#233;moire). Voir RichTextBox.

Pour faire ce que tu veux et comme il s'agit de chiffres, il suffit de charger tes donn&#233;es dans des tableaux ou des Collections :
-1- charger une Collection avec tous les Items de "1"
Dim maCollection As New Collection
(...Boucle de lecture des items Liste 1...)
maCollection.Add CStr(monItem)   ' Ins&#232;re chaque Item.
' Le CStr est l&#224; pour &#233;viter les erreurs avec les chiffres
(...Fin de boucle de lecture Liste 1)

-2- Rechercher les items manquants :
(...Boucle de lecture des items Liste 2...)
   For r = 1 To maCollection.Count
      If maCollection.Item(r) = CStr(Item&#224;Chercher) Then
         maCollection.Remove r
         Exit For
      End If
   Next r
(...Fin de boucle de lecture Liste 1)

-3- Les items manquants dans Liste 2 sont ceux qui restent dans ta collection.

Voil&#224;, tu n'as plus qu'&#224; mettre au point les boucles de lecture des Items en fonction de leur provenance (fichier, ListBox ...)

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

katsankat · Answer

Salut les amis :)

il y a aussi la m&#233;thode "brutal":

text3.text = replace(text2.text,text1.text,"")

Mais celle de Jack est mieux.

roller0022 · Answer

Merci pour vos r&#233;ponse, je test d&#232;s ce matin.
Cordialement
Jean Paul

roller0022 · Answer

Je gal&#232;re &#224; cr&#233;er une collection et &#224; ins&#233;rer mes fichiers, j'ai donc cr&#233;er deux list box et charger mes fichiers

roller0022 · Answer

Pour la listbox

Recherche dans deux texbox

5 réponses

Discussions similaires