Hi Leute, ich bin blutiger Anfänger was VB und programmieren an sich
angeht und hab mir hier einen Codeschnipsel aus dem Internet kopiert.
Mit dieser Sub lassen sich alle Zeilen aus einer RichTextBox löschen,
die einen bestimmten String enthalten.
Ich möchte allerdings nur Zeilen löschen, die mit dem String beginnen.
Ich hab mich schon in die RegEx Optionen sowie die Propertys der
RichTextBox etc. eingelesen, aber ich weiß nicht, wo ich hier mein
"StartsWith" einsetzen muss, kann mir jemand auf die Sprünge helfen?
1 | Private Sub RemoveLines()
|
2 | Dim lines As New List(Of String)
|
3 | lines = RichTextBox1.Lines.ToList
|
4 | Dim FilterText = firster 'String nach dem die RTB durchsucht werden soll, Wert ist in einer anderen Sub zugewiesen
|
5 |
|
6 | For i As Integer = lines.Count - 1 To 0 Step -1
|
7 | If Regex.IsMatch(lines(i), FilterText) Then 'HIER soll RegEx nur ein Match finden, wenn FilterText/firster am ANFANG der Zeile steht.
|
8 | lines.RemoveAt(i)
|
9 | End If
|
10 | Next
|
11 | RichTextBox1.Lines = lines.ToArray
|
12 |
|
13 | End Sub
|
Danke für eure Hilfe