Supprimer les "Enter" dans un TextBox (Multiline)

Version imprimable

03/08/2010, 05h41
Eric_M

Supprimer les "Enter" dans un TextBox (Multiline)
Bonjour à tous,

Il y aurait-il une manière de convertir les "Enter" d'un texte sur une TextBox en &Enter&.

Ex.:
Code:

1 2 3 Developpez Forums VB.NET
-> Deviendrais ->

Code:

Developpez&Enter&Forums VB.NET

J'espère que j'ai été clair :?

Merci
03/08/2010, 07h15
Danyel

Faire un strReplace de chr$(13) et/ou chr$(10) vers ta valeur.

Je confirme l'idée de l'intervenant qui m'a précédé

La Form contient trois "TextBox" et deux "Button"
Code:

1 2 3 4 5 6 7 8 9 10 11 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox2.Text = TextBox1.Text.Replace(Environment.NewLine, "@€") End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox3.Text = TextBox2.Text.Replace("@€", Environment.NewLine) End Sub End Class
En supposant qu'un utilisateur "normal" ne tapera pas la séquence @€ ...

Naturellement, tu peux préférer comme séquence &Enter&

Bonjour,
le soucis, nanar21, c'est qu'on récupère deux symboles (il y a une ligne vide dans la chaine), et plus si le gars décide de mettre des lignes vides aux début, milieu et fin.
Alors je propose ça (un peu de regex).

Code:

1
2
3
4
5
6
7
8
9
10
11
    Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating
        '*** Nettoyer tous les espaces blancs en début ou en fin de chaîne.
        TextBox1.Text = TextBox1.Text.Trim()
        '*** Supprimer les lignes intermédiaires vides 
        '    La regex va capter les lignes d'espaces blancs 0 ou plusieurs "[\s]*", suivis d'un retour chariot "\r",
        '    et les supprimer tout en conservant les sauts de ligne de la chaine purgée.
        TextBox1.Text = System.Text.RegularExpressions.Regex.Replace(TextBox1.Text, "([\s]*\r)", "")
        'le text.replace les remplacera par le texte choisi.
        TextBox1.Text = TextBox1.Text.Replace(vbLf, "&enter&")
 
    End Sub

Merci vous tous pour vos réponses :ccool:

Mon problème est résolu.

Voici comment je procède pour récupérer le texte (pour les intéressés)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
        Dim mot As String() = TextBox1.Text.Split("&Enter&")
        Dim final As String = ""
        For i As Integer = 0 To mot.Count - 1
            If mot(i) = "Enter" Then
 
                final = final & vbLf
            Else
 
                final = final & mot(i)
            End If
        Next
 
        TextBox2.Text = final

Merci encore.