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

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

Nota. Este ejemplo como bien se dijo, se utiliza para búsqueda y resalte de palabras utilizando este potente componente de vb, pero además de esto se puede utilizar para muchos otro usos, por ejemplo en vez de buscar y colorear, utilizarlo para realizar búsqueda dentro de archivos y reemplazar datos, por decir uno.

Solo sería cuestión de armar la expresión regular que necesitemos. Puedes leer un manual introductorio simple de expresiones regulares en el siguiente enlace por si nunca has trabajado armando patrones para las búsquedas, ya sean patrones simples o complejos : Ver tutorial . Luego de tener creada la expresión, el uso del componente Microsoft Script regular expressions es muy simple de utilizar.

Recursos vb 6.0 - Enlaces relacionados

Ejemplos de expresiones regulares

Recursos visual basic.net - Enlaces relacionados

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

Buscar en Recursos vb