Hallo, nach googeln und Forumssuche habe ich zu meinem Problem nichts passendes gefunden. Ich liste in einer RTB Dateien auf.
Ordnerpfade beginnen in der jeweiligen Zeile mit "[" und enden mit "]"
Dateipfade setze ich mit vbtab in den zeilen zurück.
Ich möchte die Ordnerpfade blau markieren.
Mein Code macht das, markiert aber ab und zu auch Dateipfade. Was mache ich falsch?
Kann mir jemand einen Tipp geben?
Ordnerpfade beginnen in der jeweiligen Zeile mit "[" und enden mit "]"
Dateipfade setze ich mit vbtab in den zeilen zurück.
Ich möchte die Ordnerpfade blau markieren.
Mein Code macht das, markiert aber ab und zu auch Dateipfade. Was mache ich falsch?
VB.NET-Quellcode
- Private Sub formatieren()
- Dim lines() As String
- lines = rtb.Lines
- For i As Integer = 0 To lines.Count - 1
- If lines(i).StartsWith("[") = True AndAlso lines(i).StartsWith(vbTab) = False Then 'AndAlso lines(i).EndsWith("]") Then
- rtb.Select(rtb.GetFirstCharIndexFromLine(i), rtb.Lines(i).Length) ' Von Index, Länge
- rtb.SelectionColor = Color.Blue
- rtb.SelectionFont = New Font("Courier", rtb.Font.Size, FontStyle.Bold Or FontStyle.Italic)
- Else
- rtb.Select(rtb.GetFirstCharIndexFromLine(i), rtb.Lines(i).Length) ' Von Index, Länge
- rtb.SelectionColor = Color.Black
- rtb.SelectionFont = New Font("Tahoma", rtb.Font.Size, FontStyle.Regular)
- End If
- Next
- End Sub
Kann mir jemand einen Tipp geben?