Hi guys i want to know how to write every word in a phrase in a new line in a richtextbox lets say the phrase is this "Returns a string array that contains the substrings in this instance that are delimited"
and the code i'm working with is this
Dim words As String = TextBox1.Text
Dim split As String() = words.Split(New [Char]() {" "c, CChar(vbTab)})
For Each s As String In split
If s.Trim() <> "" Then
RichTextBox1.Text = (s)
End If
Next s
But with this one it only write the last word of the sentence. And what i want is to write all the words each in a new line of the richtextbox.
I like to use vbCrLf
constant:
RichTextBox1.Text = TextBox1.Text.Replace(" ", vbCrLf).Replace(vbTab, vbCrLf)
Dim words As String = TextBox1.Text
words.Replace(" ", ControlChars.Lf)
RichTextBox1.Text = words
You just need to replace " "
by ControlChars.Lf
aka New Line Character
You can use the vbCrLf constant:
For Each s As String In split
If s.Trim() <> "" Then
RichTextBox1.Text = (s) + vbCrLf
End If
Next s
Your code is fine except for one thing. You are setting the RichTextBox to the string everytime, so it keeps overwriting. You need to concatenate...
Dim words As String = TextBox1.Text
Dim split As String() = words.Split(New [Char]() {" "c, CChar(vbTab)})
For Each s As String In split
If s.Trim() <> "" Then
RichTextBox1.Text &= (s)
End If
Next s
Note that addition of the "&" on the line that writes to the RTB.
来源:https://stackoverflow.com/questions/15837041/write-in-new-line-in-rich-text-box-with-vb