Hallo leute,
ich will ein Text durchsuchen in einer Richtextbox.
hier das Beispiel was in der Richtextbox steht:
"Hey man wo ist mein Auto?"
darunter habe ich eine Suchfunktion (mit farbmakierung) wo ich wörter aus der Richtextbox suchen kann. Bsp: "mein"
rechts daneben hab ich ein Zähler(Label) der mir sagen soll wie oft er das Suchwort gefunden hat.
Wenn ich jetzt mein Button anklicke das er das Wort "mein" suchen soll, zeigt er es mir farbig an. Jedoch steht im Label die Zahl "6" da er ja 6 Wörter gefunden hat.
Wie kann ich es machen das er nur die Farbigen wörter zählt?
Hier der Code:
vielen dank im vorraus für eure Poasts
ich will ein Text durchsuchen in einer Richtextbox.
hier das Beispiel was in der Richtextbox steht:
"Hey man wo ist mein Auto?"
darunter habe ich eine Suchfunktion (mit farbmakierung) wo ich wörter aus der Richtextbox suchen kann. Bsp: "mein"
rechts daneben hab ich ein Zähler(Label) der mir sagen soll wie oft er das Suchwort gefunden hat.
Wenn ich jetzt mein Button anklicke das er das Wort "mein" suchen soll, zeigt er es mir farbig an. Jedoch steht im Label die Zahl "6" da er ja 6 Wörter gefunden hat.
Wie kann ich es machen das er nur die Farbigen wörter zählt?
Hier der Code:
VB.NET-Quellcode
- Private Sub Suchen_Click(sender As Object, e As EventArgs) Handles Suchen.Click
- Dim startText As Integer = 0
- Dim endText As Integer
- Dim wordcount As Integer = RichTextBox1.Text.Split(" "c).Length
- endText = RichTextBox1.Text.LastIndexOf(TextBox1.Text)
- While startText < endText
- RichTextBox1.Find(TextBox1.Text, startText, RichTextBox1.TextLength, RichTextBoxFinds.MatchCase)
- RichTextBox1.SelectionBackColor = Color.Brown
- startText = RichTextBox1.Text.IndexOf(TextBox1.Text, startText) + 1
- End While
- lbl_suchsumme.Text = wordcount
- End Sub
vielen dank im vorraus für eure Poasts
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VBHunter“ ()