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

168 - Buscar y resaltar coincidencias en un RichtextBox

Contenido

Buscar y colorear coincidencias
El mismo, pero para Modificar el código RTF y poder establecer el BackColor del texto
Enlaces relacionados

Buscar y colorear coincidencias

Ejemplo que permite buscar cadenas y frases dentro de un control RichTextBox utilizando el método Find y colorear las coincidencias si las hay con la propiedad SelColor. También buscar cadenas solo para seleccionarlas.

Esta es una captura del ejemplo para armar:

Para buscar en el Control RichtextBox se utiliza el método Find. Como muestra el gráfico tiene dos opciones mediante los Option Button, una es buscar una palabra y colorear o resaltar las mismas si se encuentran. Para colorear la cadena encontrada, se utiliza la propiedad SelColor, en conjunto con SelStart y SelLength. La otra opción, solo busca la cadena y selecciona la porción de texto, también con el método Find

Luego los CheckBox, determinan si la búsqueda se realiza teniendo en cuenta la palabra completa o parte de ella, y el otro Check si debe diferenciar de Mayúsculas y Minúsculas al buscar.

Estas dos últimas opciones, para buscar por palabra completa y diferenciar de May y Min, se utiliza el último parámetro del método Find del RichtextBox, utilizando las constantes rtfWholeWord ( para la cadena completa ) y rtfMatchCase para la otra opción.

El código tiene una función llamada Resaltar_Texto con los siguientes parámetros:

'Función para la búsqueda en el RichtextBox


Private Function Resaltar_Texto(RichTextBox As RichTextBox, _
                                cadena As String, _
                                Color_Text As Long, _
                                Optional Cadena_Completa As Boolean, _
                                Optional MayusMinus As Boolean) As Integer

Se le envía el Control RichText, la cadena a buscar, el color de resalte, y 2 parámetros opcionales para el tipo de búsqueda

Colocar en un Formulario los siguientes controles como muestra el gráfico:

Un control RichTextBox1
Un CommonDialog1
Un Text1: para ingresar la cadena
Un Command1: Para buscar
Un Command2: para cargar un fichero en el RichText con LoadFile
Un Check1 y un check2
Un Option1 y un Option2

Nota: No colocar los caption de los controles ya que se cargan en el FormLoad

Código fuente en un Formulario:

' Botón Buscar ''''''''''''''''''''''''''''''''''''''''' 'Se le envía el control RichtextBox, la cadena, el color, el _ tipo de búsqueda Mayuscula y minuscua y si la cadena a buscar debe ser completa Private Sub Command1_Click() Call Resaltar_Texto(RichTextBox1, Text1, vbRed, Check1, Check2) End Sub 'Función para la búsqueda en el RichtextBox ''''''''''''''''''''''''''''''''''''''''''''' Private Function Resaltar_Texto( _ RichTextBox As RichTextBox, _ cadena As String, _ Color_Text As Long, _ Optional Cadena_Completa As Boolean, _ Optional MayusMinus As Boolean) As Integer ' Almacena la Posicion del primer carácter cuando se encuentra la cadena Dim Pos_Caracter As Long ' Almacenam el Tamaño y longitud del texto a buscar, ya que se requiere _ utilizarlo para el método Find del RichTextbox Dim LenCadena As Long ' Inicio de la selección Dim posSelInicio As Long ' Para el tipo de búsqueda, exacta, distingue de mayúscula / Minúscula Dim Tipobusqueda As Variant 'Para la posición del texto seleccionado Dim posSelLen As Long 'Número de veces que se encontró. Este valor lo retorna la función Dim n As Integer 'Opción que determina si se busca la cadena completa _ si hay que tener en cuenta las mayusculas y minusculas If Cadena_Completa Then Tipobusqueda = rtfWholeWord End If If MayusMinus Then Tipobusqueda = Tipobusqueda + rtfMatchCase End If ' Opción para solo buscar y seleccionar la palabra encontrada If Option2 Then RichTextBox.HideSelection = False Pos_Caracter = RichTextBox.Find(cadena, _ RichTextBox.SelStart + RichTextBox.SelLength, _ , Tipobusqueda) Else 'Esta otra copción es para resaltar y colorear las coincidencias ' Reestablece el color negro por si habia frases resaltadas Call ReestablecerColor 'Guarda la posición y la longitud del texto que está seleccionado posSelInicio = RichTextBox.SelStart posSelLen = RichTextBox.SelLength 'Guarda la longitud del texto a buscar LenCadena = Len(cadena) ' Busca con Find la cadena. En la variable Guardamos la posición donde se encontró Pos_Caracter = RichTextBox.Find(cadena, 0, , Tipobusqueda) While Pos_Caracter > 0 n = n + 1 With RichTextBox 'asignamos la variable anterior a la propiedad SelStart del RichTextBox .SelStart = Pos_Caracter 'Establecemos en SelLength el tamaño de la cadena nuevamente .SelLength = LenCadena 'Esto le asigna el color de resalte que aplicará _ al texto encontrado en el Richtextbox .SelColor = Color_Text 'Ejecuta nuevamente el método Find _ hasta el final, es decir hasta que Pos_Caracter = 0 Pos_Caracter = .Find( _ cadena, _ (Pos_Caracter + LenCadena), , _ Tipobusqueda) End With Wend ' Seteamos las propiedades SelStart y Sellength RichTextBox.SelStart = posSelInicio RichTextBox.SelLength = posSelLen ' Retorna las veces que se encontró la cadena en el Richtextbox Resaltar_Texto = n End If End Function 'Para cargar un archivo en el RichtextBox con el método LoadFile Private Sub Command2_Click() With CommonDialog1 .DialogTitle = " Selecciona el archivo de texto a cargar en el RichTextBox " .ShowOpen If .FileName = "" Then Exit Sub RichTextBox1.LoadFile .FileName End With End Sub Private Sub Option2_Click() ReestablecerColor End Sub Private Sub ReestablecerColor() On Local Error Resume Next Dim p As Long With RichTextBox1 p = .SelStart .SelStart = 0 .SelLength = Len(.Text) .SelColor = vblack .SelStart = p End With End Sub 'Caption de los controles Private Sub Form_Load() Command1.Caption = " Buscar " Command2.Caption = " Cargar archivo " Check1.Caption = " Palabra completa " Check2.Caption = " Coincidir mayúsculas y minúsculas " Me.Caption = " Resaltar texto en Richtextbox " Option1.Caption = " Resaltar coincidencias " Option2.Caption = " Solo buscar " End Sub

Descargar este código fuente

Modificar Código RTF para resaltar backcolor del texto

Este código fuente para descargar es exactamente el mismo que al anterior, pero tiene una función agregada, que permite modificar el código RTF para establecer el backcolor o color de fondo del texto o coincidencias encontradas.

El agregado en el código RTF son los atributos que definen el color de fondo ( Valores RGB del atributo colortbl y el atributo Highlight)

La función que se añadió es la siguiente, y se le debe enviar como parámetro :

El valor RGB para (el color del fondo del texto)
El control RichTextBox
El texto ( propiedad Text o propiedad selText)
Y el color del texto

Private Sub setRTFColors(RGBRed As Byte, RGBGreen As Byte, RGBBlue As Byte, rb As RichTextBox, sText As String, lForeColor As Long) With rb .SelColor = lForeColor .SelRTF = "{{\colortbl;\red" & CStr(RGBRed) & _ "\green" & CStr(RGBGreen) & _ "\blue" & CStr(RGBBlue) & ";}" & _ "{\highlight1 " & sText & "}}" End With End Sub

Descargar código el código fuente

vb 6.0 - Enlaces Relacionados

vb.net - Enlaces relacionados

HighLight color en visual basic.net

Buscar en Recursos vb