Discussion :

[hacker59]

Bonjour,

je sais pas comment faire pour nouvel ligne après la virgule.

exemple :

Code :

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

Dim text As String = "chien,chat,vache,voiture" '..etc

je voudrais faire ceci :
chien,
chat,
vache,
voiture, ... etc

pouvez-vous m'aider comment faire une nouvel ligne après la virgule en vb?
merci de votre réponse.

[r.morel]

Salut,
Il faut utiliser

Code :

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

chr(10)

Comme ceci :

Code :

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

Dim text As String = "chien," & chr(10) & "chat," & chr(10) & "vache," & chr(10) & "voiture"

[wallace1]

bonsoir,

Code :

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

Dim text As String = "chien," & vb.newline & "chat," & vb.newline & "vache," & vb.newline & "voiture"

a+

[hacker59]

Bonsoir,

je me suis mal exprimer . excuser-moi dans mon code il supprime le point pour passer à une nouvel ligne mais sens utiliser dans le texte chr(10) ou vb.newline .. etc
voici en image :


voici mon code :

Code :

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

1
2
3
4
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim texte As String = "Bonjour, Je suis de sta 1.Comment êtes-vous aujourd'hui?"
        RichTextBox1.Text = texte.Replace(".", Environment.NewLine)
    End Sub

je voudrais savoir comment passer après le point à une nouvel ligne sens le supprimer?
Pouvez-vous me dire comment faire? merci

[clementmarcotte]

Bonjour,

Bonsoir,

dans mon code il supprime le point pour passer à une nouvel ligne mais sens utiliser dans le texte chr(10) ou vb.newline .. etc

Faux, faux, faux et archi-faux. Dans ton code, c'est le RichTextBox qui provoque le retour à la ligne. Je suis (presque) certain que tu as WordWrap à true. Donc, puisque que ton texte est trop long pour tenir sur une seule ligne et que tu as aussi (probablement) autosize ou l'équivalent à False, le RichTextBox provoque un saut de ligne automatique.

je voudrais savoir comment passer après le point à une nouvel ligne sens le supprimer?
Pouvez-vous me dire comment faire? merci

Pas avec replace (=remplacer), en tout cas.

Su tu cliques sur RichTextBox et que tu appuies sur , tu vas avoir l'aide de VB sur RichtextBox. Si tu prends le temps de bien lire les méthodes, tu vas voir AppendText. Et si tu cliques sur AppendText, tu vas arriver sur la page RichTextBox.append, méthode.

[themine702]

le code pour sa :

Code :

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

1
2
3
4
5
6
7
8
 
Dim S as string = "bonjour, je suis bon, et aussi gogo" 'je sais que c'est un texte de mer** :)
dim S1 = s.split(",".ToCharArray())
 
S = ""
for each item as string in S1
S = S & item & vbnewline 'n,utilisez pas le "S += item" car si les 2 c'est des nombres meme si c'est des string vb va les calculer et donner le résultat
next

voilà tout simplement

ou maintenant que je me rappelle y'a une fonction replace intégré dans les strings mais pas sur

Edit : oui effectivement alors y'a carrément plus de code là :

Code :

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

1
2
dim s as string = "toto, yoyo, uouo, eoeo"
s = s.replace(",".ToCharArray(), chr(10))

Bonsoir,

je me suis mal exprimer . excuser-moi dans mon code il supprime le point pour passer à une nouvel ligne mais sens utiliser dans le texte chr(10) ou vb.newline .. etc
voici en image :


voici mon code :

Code :

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

1
2
3
4
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim texte As String = "Bonjour, Je suis de sta 1.Comment êtes-vous aujourd'hui?"
        RichTextBox1.Text = texte.Replace(".", Environment.NewLine)
    End Sub

je voudrais savoir comment passer après le point à une nouvel ligne sens le supprimer?
Pouvez-vous me dire comment faire? merci

dans le code que t'as mis là, t'as mit "environement.newline" je pense pas que sa a marcher car environement.newline et meme vbnewline sont pas des chars 'est des string

[casiii]

Code :

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

1
2
3
 
Dim texte As String = "Bonjour, Je suis de sta 1.Comment êtes-vous aujourd'hui?"
RichTextBox1.Text = texte.Insert(texte.IndexOf('.') + 1, chr(10))

(Depuis le C#, il faudra peut-être trouver les équivalences en VB)