Schreiben in der neuen Zeile im Feld für rich-text. mit vb

Hallo Leute, ich möchte wissen, wie man schreibt jedes Wort in einem Satz in eine neue Zeile
in einem richtextbox-Steuerelement können sagen, der Satz ist dieser
"Gibt ein string-array, enthält die Teilzeichenfolgen in dieser Instanz, die getrennt sind"

ist und der code mit dem ich arbeite ist dieser

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

Aber mit diesem es nur das schreiben des letzten Wortes im Satz.
Und was ich will, ist, schreiben Sie alle Wörter in eine neue Zeile der richtextbox.

InformationsquelleAutor N4pster | 2013-04-05

  1. 1

    Möchte ich vbCrLf ständige:

    RichTextBox1.Text = TextBox1.Text.Replace(" ", vbCrLf).Replace(vbTab, vbCrLf)
    Danke .. funktioniert perfekt.
    Hallo sir .. aber wenn ich eine tab-Taste Platz der größer als der normale Abstand .. wie kann ich es ersetzen
    Aktualisiert meine Antwort zu verarbeiten Tabs
    ok, danke

    InformationsquelleAutor George

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

    Brauchen Sie nur zu ersetzen " " durch ControlChars.Lf aka New Line Character

    hat nicht funktioniert, sir !!

    InformationsquelleAutor Doan Cuong

  3. 0

    Können Sie die Konstante vbCrLf:

        For Each s As String In split
        If s.Trim() <> "" Then
            RichTextBox1.Text = (s) + vbCrLf
        End If
    Next s
    gleiche Sache nur das Letzte Wort auftaucht

    InformationsquelleAutor Metaphor

  4. 0

    Dein code ist in Ordnung außer einer Sache. Sie setzen das RichTextBox-Steuerelement die Zeichenfolge jedes mal, so hält es überschreiben. Sie müssen sich verketten...

    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

    Beachten Sie, dass neben der "&" in der Zeile, schreibt der RTB.

    InformationsquelleAutor APrough

Schreibe einen Kommentar