Supprimer les lignes vides dans une RICHTEXTBOXRésolu

Question

Bonjour,

Comment peut-on faire pour supprimer les lignes vides d'une RichTextBox?

Par avance merci

Fran&#231;ois

cs_Warning · Accepted Answer

Salut, en fait je pense que ton texte ne contient pas des retours &#224; la lignes complet. Si tu y arrive avec vbLf et pas vbCrLf c'est que tes retours a la lignes ne sont compos&#233;s que de Lf. 

Essai &#231;a:
While instr(1,RichTextBox1.text,vbLF & vbLF)<>0
   RichTextBox1.Text=Replace(RichTextBox1.Text,VBLF & VBLF,VBLF)
Wend


Warning
Admin Codes-Sources.com
http://www.decompiler-vb.net/

cs_hassen · Answer

bonjour,
Tu doit remplacer chaque serie d'entree adjacente par une seul entree

While instr(1,RichTextBox1.text,chr(13) & chr(13))<>0
   RichTextBox1.Text=Replace(RichTextBox1.Text,chr(13) & chr(13),chr(13))
Wend

Hassen TUNISIE

crenaud76 · Answer

Marchera peut-être mieux aec cela ...

While instr(1,RichTextBox1.text,vbCRLF & vbCRLF)<>0
   RichTextBox1.Text=Replace(RichTextBox1.Text,VBCRLF & VBCRLF,VBCRLF)
Wend

francoislaba · Answer

Merci &#224; vous deux pour vos r&#233;ponses mais aucune de vos m&#233;thodes ne fonctionne.
Elles supprime bien les espaces mais toujours pas les lignes vides....

Fran&#231;ois

crenaud76 · Answer

Chez moi, mon code fonctionne à merveille !!!

Christophe

cs_Warning · Answer

Ce code fonctionne je confirme. Peut-etre faut-il simplement faire gaffe aux lignes vides avec espaces!


Warning
Admin Codes-Sources.com
http://www.decompiler-vb.net/

francoislaba · Answer

Bonjour, Jèai eu beau retourner le problème dans tous les sens, ça marche pas chez moi, jèai donc écrit cela: RichTextBox1.Text = Replace(RichTextBox1.Text, " ", "") RichTextBox1.Text = Replace(RichTextBox1.Text, vbLf + vbNullString, "") Ce code ne supprime pas les lignes vides mais il colle tout le texte sans espaces, sans lignes vides. Ce n'est pas exactement ce que je recherchais mais cela me convient pour mon appli. En fait, après plusieurs tests, je remarque que dans les codes donnés, il ne se passe rien, l'action ne dépasse pas la ligne de code While instr(1,RichTextBox1.text,vbCRLF & vbCRLF)<>0. J'ai réaliser une appli test simple, deux RichTextBox et un bouton de commande qui ouvre mon fichier texte dans la première RTB et qui le renvoi dans la seconde avec le code suivant: While instr(1,RichTextBox1.text,vbCRLF & vbCRLF)<>0 RichTextBox2.Text=Replace(RichTextBox1.Text,VBCRLF & VBCRLF,VBCRLF) Wend Et rien ne se passe... Je suis prêt à envoyer mon appli avec le fichier texte afin que vous constatiez le résultat.. Merci pour vos réponses, en tout cas, cela m'a permis de comprendre les différentes constantes d'impression et d'affichage (je suis débutant)... MERCI François

francoislaba · Answer

Merci Warning,

Cela fonctionne parfaitement!

Encore merci &#224; vous tous pour votre aide...

Fran&#231;ois

Supprimer les lignes vides dans une RICHTEXTBOX

8 réponses

Discussions similaires