Discussion :

[Eric_M]

Bonjour à tous,

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

Ex.:

Code :

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

1
2
3
Developpez
 
Forums VB.NET

-> Deviendrais ->

Code :

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

Developpez&Enter&Forums VB.NET

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

Merci

[Danyel]

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

[nanar21]

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

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

Code :

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

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&

[chrismonoye]

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 :

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

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

[Eric_M]

Merci vous tous pour vos réponses

Mon problème est résolu.

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

Code :

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

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.