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

...komplette Frage anzeigen

1 Antwort

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

Antwort bewerten Vielen Dank für Deine Bewertung
Kommentar von Wissididom
06.06.2016, 14:28

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.

0

Was möchtest Du wissen?