Tipp 0117 Textsuche einschließlich Metazeichen
Autor/Einsender:
Datum:
  Klaus D. Raudszus
23.04.2006
Entwicklungsumgebung:   VB.Net 2003
Framework:   1.1
Metazeichen im Suchstring führen unweigerlich zu einem Ausnahmefehler. Um dieses zu verhindern und die Zeichen bei der Suche mit einzuschließen, wird die Regex.Escape-Methode angewandt. Die Regex.Escape-Methode wandelt eine Mindestmenge von Metazeichen (\, *, +, ?, |, {, [, (,), ^, $, ., # und Leerzeichen) in Escape-Sequenzen um, indem die Metazeichen durch die zugehörigen Escape-Codes ersetzt werden.
 
Imports System.Text.RegularExpressions

'Im Konstruktor Sub New bzw. im Load-Event:
  AddHandler TextBox1.TextChanged, AddressOf TxtChanged


  Private Sub TxtChanged(ByVal sender As Object, _
        ByVal e As EventArgs)

    RichTextBox1.ResetText()
    RichTextBox1.Text = TextForRtfBox()
    ListBox1.Items.Clear()
    Label2.Text = ""
    If TextBox1.Text = "" Then Exit Sub

    Dim mc As MatchCollection = MatchCol(TextBox1.Text)
    Dim intL As Integer = TextBox1.Text.Length
    Dim intMcCount As Integer = mc.Count - 1

    For i As Integer = 0 To intMcCount
      With RichTextBox1
        .Select(mc(i).Index, intL)
        .SelectionColor = Color.Blue
        .SelectionFont = New Font(.Font, FontStyle.Bold)
      End With
      ListBox1.Items.Add(" " & """" & mc(i).Value & """" & _
            "  Pos.  " & mc(i).Index & "     Stelle  " & i + 1)
    Next i
    Label2.Text = mc.Count & " Zeichenfolgen " & """" & _
          TextBox1.Text & """" & " gefunden."
  End Sub
 
Weitere Links zum Thema
Platzhalter im Text
Textsuche in Multiline-TextBox
Wörter zählen

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (8,5 kB) Downloads bisher: [ 398 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Dienstag, 31. Juli 2012