Frage von Wissididom, 37

Wie kann man Zeilen in einer RichTextBox verschieben in vb (VS 2015 Express)?

Ich will, dass wenn z. B.

Zeile 1
Zeile 2
Zeile 3
Zeile 4
---
Line 1
Line 2
Line 3
Line 4

in der RichtTextBox steht, diesen Text durch folgenden Text ersetzten:

Zeile 1
Line 1
Zeile 2
Line 2
Zeile 3
Line 3
Zeile 4
Line 4

Ich hoffe man versteht was ich meine und, dass jemand weiß wie das geht

Antwort
von xGlumi, 12

Ich versuche zu verstehen was du meinst, und gehe mal davon aus dass du möchtest dass jeweils der erste Eintrag ÜBER der "---"-Linie und der erste Eintrag UNTER der "---"-Linie zusammengefügt werden.


        Dim seperated() As String = RichTextBox1.Text.Split(New String() {"---"}, StringSplitOptions.None)
Dim aboveLine() As String = seperated(0).TrimEnd.Split(vbLf)
Dim underLine() As String = seperated(1).TrimStart.Split(vbLf)

Dim newString As New System.Text.StringBuilder

For i As Integer = 0 To aboveLine.Length - 1
newString.Append(aboveLine(i) & vbNewLine & underLine(i) & vbNewLine)
Next

RichTextBox1.Text = newString.ToString

Hier solltest du aber noch kleinere Abfragen einbauen, da der obere Code z.b nur funktioniert wenn oben und unten exakt die selbe Anzahl an Zeilen sind.

Hoffe das hat dir weitergeholfen :)

MFG xGlumi

Kommentar von Wissididom ,

Danke, das ist genau, was ich will, jedoch will ich auch, dass wenn

Zeile 1
Zeile 2
Zeile 3
Zeile 4
---
Line 1
Line 2
Line 3
Line 4
---
Zeile 5
Zeile 6
Zeile 7
Zeile 8
---
Line 5
Line 6
Line 7
Line 8

da steht, daraus das hier

Zeile 1
Line 1
Zeile 2
Line 2
Zeile 3
Line 3
Zeile 4
Line 4
---
Zeile 5
Line 5
Zeile 6
Line 6
Zeile 7
Line 7
Zeile 8
Line 8

usw.

gemacht wird.

Keine passende Antwort gefunden?

Fragen Sie die Community