Discussion :

[Sytchev3]

Dans mon application j'ai un composant ritch text box avec l'option multilignes à vrai et lorsqu'il est rempli, je souhaiterais supprimer tous les sauts de lignes du style :

Richtextbox avant vérification :

aaaaaaaa

bbbbbbb

tttttt
tttt

zzzzz

Richtextbox après vérification :

aaaaaaaa
bbbbbbb
tttttt
tttt
zzzzz

Merci d'avance

[Najdar]

Bonjour Sytchev3,

Essaie quelque chose du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Montexte = Replace(Montexte, vbCrLf & VbCrLf, vbCrLf)

[Sytchev3]

Je te remercie ta solution fonctionne, mais dans un seul cas elle ne fonctionnera pas. Il s'agit du cas ou la dernière ligne du RichtextBox est vide.

[khany]

Dès que tu as tout récupéré, fait un Trim pour effacer les blancs éventuels ensuite, efface le dernier VbCrLf qui pourrait te gêner !

[Sytchev3]

Je suis bien d'accord, il faut que j'élimine le dernier Chr(10) ou Vbcrlf, mais comment faire ??? J'avais pensé à utiliser la fonction left, qu'en pensez vous ???

[Najdar]

vbCr = Chr(13)
vbLf = Chr(10)
VbCrLf = Chr(13) & Chr(10)

[Najdar]

La fonction Left semble la plus appropriée.

[Sytchev3]

J'ai résolu mon problème ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
frmenvoimail.txtDestinataire.Text = Replace(frmenvoimail.txtDestinataire.Text, Chr(10) & Chr(10), Chr(10))
frmenvoimail.txtDestinataire.Text = Left(frmenvoimail.txtDestinataire.Text, Len(frmenvoimail.txtDestinataire.Text) - 1)

[Najdar]

Attention, dans la plupart des cas le retour à la ligne est spécifié par deux caractères vbCrLF : Chr(13) & Chr(10)

Si tu es sûr que ton fichier ne contient que des vbLf Chr(10) pas de problème pour toi.

Si tu n’es pas sûr des caractères utilisés pour passer à la ligne, voila la méthode que j'utilise pour convertir tous les sauts de lignes en vbCrLf:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Montexte= Replace(Montexte, vbCrLf, "@@vbCrLf@@")
Montexte= Replace(Montexte, vbCr, "@@vbCrLf@@")
Montexte= Replace(Montexte, vbLf, "@@vbCrLf@@")
Montexte= Replace(Montexte, "@@vbCrLf@@", vbCrLf)

[Sytchev3]

Logiquement il n'y aura que des chr(10) dans mon rich text box mais je vais tout de même utiliser ce que tu me propose pour convertir tous les sauts de lignes en vbCrLf, 2 précautions valent mieux qu'une.