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

9 - Buscar y reemplazar texto en un control RichTextBox

Este simple ejemplo que lo tenía guardado, y que lo hizo el amigo Ex3 del Foro de Canal Visual Basic, sirve para buscar coincidencias de palabras en un control de texto, en este caso en un RichTextBox, con la opción de poder reemplazar el texto encontrado.

Colocar los controles como la siguiente imagen:

Nota importante: No colcarle los caption a los controles ni ubicarlos, ya que se realiza todo mediante el evento Resize del formulario, es decir solo colocarlos en el form

Vista del Ejemplo de como buscar y reemplazar texto en un control RichTextBox

Un control CommandButton llamado cmd_Buscar
Un control CommandButton llamado cmd_Buscar_Siguiente
1 Command llamado cmd_Remplazar
1 Command llamado Cmd_Abrir
Un control CommonDialog llamado CommonDialog1
Un control RichTextBox llamado RichTextBox1
2 controles TextBox, txt_Buscar y txt_Reemplazar
1 CheckBox llamado Check1

Código en un Formulario:

Option Explicit Option Compare Text 'constantes para el redimensionado de los controles Const MARGEN As Single = 80 Const ANCHO_BOTON As Single = 2000 Const ALTO_BOTON As Single = 380 'subrutina para buscar '--------------------------------------------------------------------- Sub BuscarTexto(RichTextBox As Object, Optional ByVal PosIni As Integer) Dim Pos As Integer Dim PalabraClave As String 'TipoBusqueda corresponde si se busca Mayus y Minus identicas... Dim TipoBusqueda As Long 'La variable PalabraClave toma el valor de txt_Buscar PalabraClave = txt_Buscar.Text 'Verificar si PalabraClave no esta vacía If Len(PalabraClave) Then 'Verificar si Mayusculas y Minusculas esta desactivada If Check1.Value = 0 Then TipoBusqueda = vbTextCompare Else TipoBusqueda = vbBinaryCompare End If 'Busca desde la PosIni que se indico... Pos = InStr(PosIni + 1, RichTextBox.Text, PalabraClave, TipoBusqueda) If Pos > 0 Then 'Si devolvio mayor de 0...se encontro With RichTextBox RichTextBox.SelStart = Pos - 1 RichTextBox.SelLength = Len(PalabraClave) RichTextBox.SetFocus End With Me.Caption = "Se encontro la palabra." Else 'No se encontró RichTextBox.SetFocus Me.Caption = "No se encontro." End If End If End Sub ' Subrutina para reemplazar el texto seleccionado '--------------------------------------------------------------------- Private Sub RemplazarTexto(RichTextBox As Object, _ Optional ByVal PosIni As Integer) Dim Pos As Integer Dim PalabraClave As String 'TipoBusqueda corresponde si se busca Mayus y Minus identicas... Dim TipoBusqueda As Long 'La variable PalabraClave toma el valor de txt_Buscar PalabraClave = txt_Buscar.Text 'Verificar si PalabraClave no esta vacia If Len(PalabraClave) Then 'Verificar si Mayus y Minus esta desactivada If Check1.Value = 0 Then TipoBusqueda = vbTextCompare Else TipoBusqueda = vbBinaryCompare End If 'Busca desde la PosIni que se indico.. Pos = InStr(PosIni + 1, RichTextBox.Text, _ PalabraClave, TipoBusqueda) If Pos > 0 Then 'Si devolvio mayor de 0...se encontro RichTextBox.SelStart = Pos - 1 RichTextBox.SelLength = Len(PalabraClave) RichTextBox.SetFocus 'Eliminamos el contenido del clipboard Clipboard.Clear Clipboard.SetText txt_Reemplazar.Text 'Pega el contenido SendKeys "^(V)" Me.Caption = "Se encontro y reemplazo la cadena de texto." Else 'No se encontró RichTextBox.SetFocus Me.Caption = "No se encontro." End If End If End Sub ' Abre y carga un archivo en el control RichTextBox con el método LoadFile '--------------------------------------------------------------------- Private Sub Cmd_Abrir_Click() On Error GoTo ErrOut Dlgopen.Filter = " Archivos de Texto (*.txt)|*.txt" Dlgopen.ShowOpen If Dlgopen.CancelError = True Then Exit Sub 'Código encargado para cargar textos en un control RichTextBox RichTextBox1.Text = vbNullString RichTextBox1.LoadFile (Dlgopen.FileName) Exit Sub 'Rutina de Error ErrOut: MsgBox Err.Description End Sub ' Para buscar la frase '--------------------------------------------------------------------- Private Sub cmd_Buscar_Click() 'Función que busca el texto escrito en el txt_Buscar Call BuscarTexto(RichTextBox1) End Sub ' busca la siguiente frase '--------------------------------------------------------------------- Private Sub cmd_Buscar_Siguiente_Click() 'Sigue buscando mas coincidencias Call BuscarTexto(RichTextBox1, RichTextBox1.SelStart + 1) End Sub 'reemplaza el texto seleccionado '--------------------------------------------------------------------- Private Sub cmd_Remplazar_Click() 'Función que busca y reemplaza el texto seleccionado _ por el texto escrito en el txt_Reemplazar Call RemplazarTexto(RichTextBox1, RichTextBox1.SelStart) End Sub 'Caption de los controles del formulario '--------------------------------------------------------------------- Private Sub Form_Load() cmd_Buscar.Caption = " Buscar " cmd_Buscar_Siguiente.Caption = " Buscar siguiente " cmd_Remplazar.Caption = " Reemplazar " Cmd_Abrir.Caption = " Abrir archivo " Check1.Caption = " Mayúscula / Minúscula " Check1.Value = Unchecked txt_Buscar.Text = "" txt_Reemplazar.Text = "" End Sub 'Para Posicionar y redimensionar los controles en el formulario '--------------------------------------------------------------------- Private Sub Form_Resize() On Local Error Resume Next Me.AutoRedraw = True Me.CurrentX = MARGEN Me.CurrentY = MARGEN Me.Print " Buscar" Me.CurrentX = MARGEN Me.CurrentY = 550 Me.Print " Reemplazar: " 'Redimensiona y posiciona los controles textBox txt_Buscar.Move MARGEN * 15, MARGEN, Me.ScaleWidth - ANCHO_BOTON * 1.5 txt_Reemplazar.Move MARGEN * 15, txt_Buscar.Top + txt_Buscar.Height + MARGEN, _ Me.ScaleWidth - ANCHO_BOTON * 1.5 Check1.Move MARGEN, txt_Reemplazar.Top + txt_Reemplazar.Height + MARGEN * 4, _ Me.ScaleWidth - ANCHO_BOTON * 1.5 'Redimensiona y posiciona los CommandButton cmd_Buscar.Move Me.ScaleWidth - (ANCHO_BOTON - MARGEN * 4), MARGEN, _ ANCHO_BOTON - MARGEN * 6, ALTO_BOTON cmd_Buscar_Siguiente.Move Me.ScaleWidth - (ANCHO_BOTON - MARGEN * 4), _ MARGEN + cmd_Buscar.Top + cmd_Buscar.Height, _ ANCHO_BOTON - MARGEN * 6, ALTO_BOTON cmd_Remplazar.Move Me.ScaleWidth - (ANCHO_BOTON - MARGEN * 4), _ MARGEN + cmd_Buscar_Siguiente.Top + cmd_Buscar_Siguiente.Height, _ ANCHO_BOTON - MARGEN * 6, ALTO_BOTON Cmd_Abrir.Move Me.ScaleWidth - (ANCHO_BOTON - MARGEN * 4), _ MARGEN + cmd_Remplazar.Top + cmd_Remplazar.Height, _ ANCHO_BOTON - MARGEN * 6, ALTO_BOTON 'Redimensiona y posiciona el RichtextBox RichTextBox1.Move MARGEN, Cmd_Abrir.Top + Cmd_Abrir.Height + MARGEN * 4, _ Me.ScaleWidth - MARGEN * 2, _ Me.ScaleHeight - (Cmd_Abrir.Top + Cmd_Abrir.Height + MARGEN * 6) End Sub

Nota: si bien en el ejemplo se utiliza la función Instr de visual basic para la búsqueda, también es posible usar el método Find que posee el control RichTextBox

Recursos vb6 - Enlaces relacionados

Buscar en Recursos vb