Text durchsuchen

    • VB.NET

    Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von ~blaze~.

      Text durchsuchen

      Hi
      Hier mal ein einfacher Code zum durchsuchen von RichTextBoxen:

      VB.NET-Quellcode

      1. Imports System.Text.RegularExpressions
      3. Public Class Form1
      4. Private rtbmRichTextBoxMatches As New List(Of RichTextBoxMatch)
      6. Private Sub ButtonFinden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonFinden.Click
      7. Finden()
      8. End Sub
      10. Private Sub Finden()
      11. If TextBoxSearchPattern.Text = "" Then
      12. MsgBox("Bitte geben Sie an, wonach Sie suchen wollen.", 48)
      13. Exit Sub
      14. End If
      15. 'Vorhergehende Suche löschen
      16. If rtbmRichTextBoxMatches.Count > 0 Then
      17. Zuruecksetzen()
      18. End If
      19. 'Position und Länge der momentanen Markierung speichern
      20. Dim pos As Integer = RichTextBoxTextField.SelectionStart
      21. Dim Len As Integer = RichTextBoxTextField.SelectionLength
      22. 'Regex erstellen und matches herausfinden
      23. For Each m As Match In Regex.Matches(RichTextBoxTextField.Text, Regex.Escape(TextBoxSearchPattern.Text), IIf(CheckBoxIgnoreCase.Checked, 1, 0))
      24. 'Gefundene Objekte Hellgrau markieren
      25. RichTextBoxTextField.SelectionStart = m.Index
      26. RichTextBoxTextField.SelectionLength = m.Length
      27. 'Speichern der Daten in einer Liste
      28. rtbmRichTextBoxMatches.Add(New RichTextBoxMatch() With {.Rtf = RichTextBoxTextField.SelectedRtf, .Index = m.Index, .Length = m.Length})
      29. RichTextBoxTextField.SelectionBackColor = Color.Gainsboro
      30. Next
      31. 'Markierungsposition und Länge wieder übernehmen
      32. RichTextBoxTextField.SelectionStart = pos
      33. RichTextBoxTextField.SelectionLength = Len
      34. End Sub
      36. Public Sub Zuruecksetzen()
      37. If rtbmRichTextBoxMatches.Count = 0 Then
      38. 'Ungültige Anzahl der Matches abfangen
      39. MsgBox("Diese Funktion steht nur zur verfügung, wenn Suchergebnisse vorhanden sind.", 48)
      40. Else
      41. 'wieder Position und Länge der momentanen Markierung speichern
      42. Dim pos As Integer = RichTextBoxTextField.SelectionStart
      43. Dim Len As Integer = RichTextBoxTextField.SelectionLength
      44. 'Alle matches auswerten und zurücksetzen
      45. For Each m As RichTextBoxMatch In rtbmRichTextBoxMatches
      46. 'Gefundene Objekte markieren
      47. RichTextBoxTextField.SelectionStart = m.Index
      48. RichTextBoxTextField.SelectionLength = m.Length
      49. 'Rtf wiederherstellen
      50. RichTextBoxTextField.SelectedRtf = m.Rtf
      51. Next
      52. rtbmRichTextBoxMatches.Clear()
      53. 'Markierungsposition und Länge wieder übernehmen
      54. RichTextBoxTextField.SelectionStart = pos
      55. RichTextBoxTextField.SelectionLength = Len
      56. End If
      57. End Sub
      59. Private Sub ButtonZuruecksetzen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonZuruecksetzen.Click
      60. Zuruecksetzen()
      61. End Sub
      63. Private Sub RichTextBoxTextField_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RichTextBoxTextField.KeyDown
      64. If rtbmRichTextBoxMatches.Count > 0 Then
      65. Zuruecksetzen() 'Beim Drücken einer Taste Text zurücksetzen
      66. End If
      67. End Sub
      68. End Class
      70. Public Class RichTextBoxMatch
      71. Private strRtf As String
      72. Private iIndex As Integer
      73. Private iLength As Integer
      75. ''' <summary>
      76. ''' Textformattierung des Matches.
      77. ''' </summary>
      78. ''' <value></value>
      79. ''' <returns></returns>
      80. ''' <remarks></remarks>
      81. Public Property Rtf() As String
      82. Get
      83. Return strRtf
      84. End Get
      85. Set(ByVal value As String)
      86. strRtf = value
      87. End Set
      88. End Property
      90. ''' <summary>
      91. ''' Position des Textes.
      92. ''' </summary>
      93. ''' <value></value>
      94. ''' <returns></returns>
      95. ''' <remarks></remarks>
      96. Public Property Index() As Integer
      97. Get
      98. Return iIndex
      99. End Get
      100. Set(ByVal value As Integer)
      101. iIndex = value
      102. End Set
      103. End Property
      105. ''' <summary>
      106. ''' Länge des Textes.
      107. ''' </summary>
      108. ''' <value></value>
      109. ''' <returns></returns>
      110. ''' <remarks></remarks>
      111. Public Property Length() As Integer
      112. Get
      113. Return iLength
      114. End Get
      115. Set(ByVal value As Integer)
      116. iLength = value
      117. End Set
      118. End Property
      119. End Class


      Dazu werden 3 Controls benötigt:
      1x RichTextBox(RichTextBoxTextField)
      1x TextBox(TextBoxSearchPattern)
      1x CheckBox(CheckBoxIgnoreCase)

      Die gefundenen Werte werden grau hinterlegt.

      Importierte Namespaces:
      System.Text.RegularExpressions (oben Imports System.Text.RegularExpressions schreiben)

      Gruß
      ~blaze~

      Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „~blaze~“ ()

      Hi
      Das ist mit dem Code nicht möglich, da der Webbrowser kein SelectionStart usw. unterstützt. Allerdings könntest du den Code soweit umschreiben, dass er auch funktioniert. Ich arbeite nicht mit dem Webbrowser und kann somit keine Tipps geben. Allerdings würde ich das auch über Regular expressions machen. Wenn du bei Google suchst, findest du bestimmt einiges.

      Gruß
      ~blaze~

      Mal ne Frage: Warum so kompliziert? Mit dem Code geht es genauso gut, nur dass man halt die Farben nich nicht drinne hat. Auch Mehrzeilige Suchen funktionieren damit:

      1xButton: Suchen
      2xTextbox: Editor, Suchfeld

      VB.NET-Quellcode

      1. Dim Letzter As Integer = 0
      3. Private Sub Suchen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Suchen.Click
      4. Dim Start As Integer = Editor.Text.IndexOf(Suchfeld.Text, Letzter)
      6. If Start > -1 Then
      7. Editor.Select(Start, Suchfeld.TextLength)
      8. Letzter = Start + 1
      9. Else
      10. Letzter = 0
      11. End If
      12. End Sub


      ^^

      ~ Chris
      To make foobar2000 a real random music player, I figured out the only way to achieve this is to use Windows Media Player.

      “At some point in time, you recognize that knowing more does not necessarily make you more happy.”

    Facebook
    Telefonspende