cs_Warning
Messages postés516Date d'inscriptionsamedi 3 février 2001StatutMembreDernière intervention24 octobre 20062 11 oct. 2005 à 22:26
Essai ça:
Dim sValeursEnMem as string
sValeursEnMem = ""
Dim ListLignes as Variant
ListLignes = Split(RichTextBox1.Text,vbCrLf)
Dim NewListLignes() as String
Redim NewListLignes(0)
For i = 1 to UBound(ListLignes)
If Not sValeursEnMem Like "*" & ListLignes(i) & "\*" Then
Redim preserve NewListLignes(Ubound(newlistligne) + 1)
NewListLignes(Ubound(newlistligne)) = ListLignes(i)
sValeursEnMem = sValeurEnMem & ListLignes & ""
End If
Next i
RichTextBox1.Text = Join(NewListLignes,vbCrLf)
J'ai fait de tête donc surement des ptites erreurs à corriger mais ça devrait fonctionner.
francoislaba
Messages postés44Date d'inscriptionmardi 10 mai 2005StatutMembreDernière intervention 4 janvier 2006 12 oct. 2005 à 09:18
Bonjour,
Merci pour ce code, il ne fonctionne pas dans le bon sens, en fait il vide entièrement la RichTextBox...
Je vais tenter d'analyser et (surout) de comprendre le code pour le corriger...