[Aporte] Buscar en consola

Este code sirve para buscar lo que dice un PJ en la consola. Se escribe su nombre en un textbox, se le da a Aceptar y resalta el nombre del PJ.

Agregamos un TextBox al frmMain (txtRes) y un CommandButon (cmdBus)

Al final del codigo el frmMain poner:

Option Strict On

Imports System.Text.RegularExpressions

Public Class Form1

Private Sub Buscar_Coincidencia( _
ByVal pattern As String, _
ByVal RichTextBox As RichTextBox, _
ByVal cColor As Color, _
ByVal BackColor As Color)


Dim Resultados As MatchCollection
Dim Palabra As Match

Try
' PAsar el pattern e indicar que ignore las mayúsculas y minúsculas al mosmento de buscar
Dim obj_Expresion As New Regex(pattern.ToString, RegexOptions.IgnoreCase)

' Ejecutar el método Matches para buscar la cadena en el texto del control
' y retornar un MatchCollection con los resultados
Resultados = obj_Expresion.Matches(RichTextBox.Text)

' quitar el coloreado anterior
With RichTextBox
.SelectAll()
.SelectionColor = Color.Black
End With

' Si se encontraron coincidencias recorre las colección
For Each Palabra In Resultados
With RichTextBox
.SelectionStart = Palabra.Index ' comienzo de la selección
.SelectionLength = Palabra.Length ' longitud de la cadena a seleccionar
.SelectionColor = cColor ' color de la selección
.SelectionBackColor = BackColor
Debug.Print(Palabra.Value)
End With
Next Palabra

Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try

End Sub

Private Sub cmdBus_Click( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
' pasar el pattern, el Richtext, y los colores para el resalte
Buscar_Coincidencia(txtRes.Text, Rectxt, Color.Blue, Color.Yellow)

End Sub
End Class