![]() |
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
|
|
|
|
|
Windows-Version |
98/SE |
 |
|
ME |
 |
|
NT |
 |
|
2000 |
 |
|
XP |
 |
|
Vista |
 |
|
Win
7 |
 |
|
|
|
Download (8,5
kB)
|
Downloads bisher: [ 422 ]
|
|
|