Question

大家好，我想知道如何在一个新行中写一个短语中的每个单词在richtextbox中可以说这句话就是这个 “返回一个字符串数组，其中包含此实例中分隔的子字符串”

我正在使用的代码就是这个

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

但是这个只写了句子的最后一个字。我想要的是在richtextbox的新行中写下每个单词。

Answer 1

我喜欢使用vbCrLf常量：

RichTextBox1.Text = TextBox1.Text.Replace(" ", vbCrLf).Replace(vbTab, vbCrLf)

Answer 2

Dim words As String = TextBox1.Text
words.Replace(" ", ControlChars.Lf)
RichTextBox1.Text = words

您只需将" "替换为ControlChars.Lf又名New Line Character

Answer 3

您可以使用vbCrLf常量：

    For Each s As String In split
        If s.Trim() <> "" Then
            RichTextBox1.Text = (s) + vbCrLf
        End If
    Next s

Answer 4

除了一件事，你的代码很好。您每次都将RichTextBox设置为字符串，因此它会一直覆盖。你需要连接...

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

请注意添加“＆amp;”在写入RTB的行上。

Answer 5

要添加新行，最好的选择是：

RichTextBoxResult.AppendText(Environment.NewLine)

在富文本框中写入新行。与vb

5 个答案: