cs_titeuf4444
Messages postés lundi 24 novembre 2003Date d'inscription
28 mars 2008
Dernière intervention
-
22 déc. 2004 à 22:09 - Dernière réponse : cs_Jack14010
Messages postés samedi 29 décembre 2001Date d'inscription
28 août 2015
Dernière intervention
- 23 déc. 2004 à 03:54
###TITEUF###
;) >:)
Bonjour,
étant débutant en VB comme tout le monde un jour, je suis à la recherche d'une solution simple me permettant dans une textbox multiligne, de supprimer les lignes vides
Avoir au départ
Toto
tutu
popo
papa
pour au final avoir dans une autre textbox en cliquant sur un boutton
Dim i As Integer
Dim x As Integer
If Right$(Text1.Text, 2) <> vbCrLf Then Text1.Text = Text1.Text & vbCrLf
Text2 = ""
For i = 1 To Len(Text1)
x = InStr(i, Text1.Text, vbCrLf)
If x > 0 Then
If x - i > 0 Then
Text2 = Text2 & Mid$(Text1.Text, i, x + 2 - i)
End If
i = x + 1
End If
Next
Explication :
Chaque ligne se termine par un vbCrLf (standard)
Si tu as une ligne vide, c'est qu'il y a deux vbCrLf qui se suivent, normal.
La dernière fonction proposée par Gobillot (et qui est la bonne), remplacera dans tout ton texte les doubles vbCrLf par des simples vbCrLf, ce qui aura pour effet de supprimer la ligne vide.
Vala
Jack
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
a aidé 94 internautes ce mois-ci