Filtre sur RichTextBox - éviter les boucles

Bonjour le forum,

Je commence mon tout premier programme en VB (j'ai des bases en VBA) et j'ai besoin de vos lumières...

Ce programme consiste à ouvrir un fichier texte dans un RichTextBox et puis à y mettre des filtres (même si des logiciels faits pour çà existent déjà).
J'ai réussi à ouvrir mon fichier texte dans ma RichTextBox par contre pour les filtres çà se gâte...

Actuellement, je passe par une boucle For mais c'est interminable (plus de 7 000 lignes) et je me demandais s'il n'existait pas à votre connaissance une solution simple et efficace pour éviter cette boucle.
J'avais aussi imaginé mettre le contenu de cette RichTextBox dans une variable Tableau pour que les filtres soient reversible mais là encore, je ne sais le faire qu'en passant par une boucle et là encore c'est interminable... Voici le petit bout de code associé :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Public EntireText(0) As String Private Sub MiseEnMemoire()   Dim iter, i As Long   iter = RichTextBox1.Lines.Length - 1 ReDim EntireText(iter)   For i = 0 To iter - 1 EntireText(i) = RichTextBox1.Lines(i + 1) 'EntireText(i) = "" Next   End Sub

---

Merci de votre aide!

Hello,

La propriété Lines d'un contrôle de type RichTextBox est déjà un tableau de String. Pas besoin donc de la parcourir pour le mettre dans un autre.

Bonjour,

C'est toujours bon à savoir! Seulement, à partir du moment où on a posé un filtre et que certaines lignes ont été effacé, il n'y a plus moyen de les retrouver...
çà me fait penser que je suis tombé sur la fonction Clone() tout à l'heure et qu'elle est applicable à mon cas :

Code:

---

EntireText = RichTextBox1.Lines.Clone()

---

Il ne reste plus qu'à trouver comment mettre des conditions pour les filtres sans effectuer de boucle sur les lignes...

Regarde du côté des collections (des listes dans ton cas). Avec linq, on peut les filtrer facilement (mais p-e linq peut aussi s'appliquer aux tableaux ?).

Merci Kropernic, c'est impeccable!!

Code:

---

1 2 3 4 5 6

RichTextBox1.Clear()   Dim FilteredText = (From TheLines In EntireText Where TheLines.Contains(StringToIgnore) = False).ToArray   RichTextBox1.Lines = FilteredText

---

Ravi d'avoir pu aider :)