Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

248 - Expresión regular - Remarcar coincidencias en un RichTextBox

Ejemplo que utiliza la referencia a Microsoft VB Script Regular Expressions para buscar cadenas y frases en un RichTextbox y resaltar de un color las coincidencias encontradas

En el ejemplo hay una Sub llamada Buscar_Coincidencia, a la cual se le debe enviar como parámetro la cadena o patrón de palabras. ( Propiedad Pattern del objeto RegExp)

Es decir, en la cadena que forma la expresión regular, las frases están delimitadas por el caracter "|"

En el ejemplo sería

Call Buscar_Coincidencia("(Private Sub|End Sub)")

vista del formulario de ejemplo con el control RichTextbox y las coincidencias encontradas remarcadas de color

Código fuente en un formulario, con un control RichTextBox, un CommandButton y la referencia a Microsoft VBScript Regular Expressions

Option Explicit Private Sub Command1_Click() Call Buscar_Coincidencia("(Private Sub|End Sub)") End Sub '*************************************************************************** ' Incluir la referencia a Microsoft VB Script REgular Expressions '*************************************************************************** Private Sub Form_Load() Command1.Caption = " Colorear coincidencias " RichTextBox1.Text = "Private Sub Form_Load()" & vbNewLine & vbNewLine & _ "Dim i As Integer" & vbNewLine & vbNewLine & _ "For i = 0 To 100" & vbNewLine & vbNewLine & _ "List1.AddItem i" & vbNewLine & vbNewLine & _ "End Sub" End Sub Private Sub Buscar_Coincidencia(Expresion As String) On Local Error GoTo ErrSub Dim Resultados As MatchCollection Dim Palabra As Match Dim obj_Expresion As New RegExp obj_Expresion.Pattern = Expresion obj_Expresion.IgnoreCase = True obj_Expresion.Global = True ' Ejecuta la búsqueda Set Resultados = obj_Expresion.Execute(RichTextBox1.Text) ' Si se encontraron coincidencias recorre las colección For Each Palabra In Resultados With RichTextBox1 .SelStart = Palabra.FirstIndex .SelLength = Palabra.Length .SelColor = vbBlue End With Next Palabra Exit Sub ErrSub: MsgBox " Número de error: " & Err.Number & vbNewLine & _ " Descripción del Error: " & Err.Description, vbCritical End Sub

Recursos vb 6.0 - Enlaces relacionados

Recursos visual basic.net - Enlaces relacionados

Ejemplo de la clase RegEx para validar un correo en .NET

Buscar en Recursos vb