Hola mi problema hoy es que necesito buscar una palabra exacta en un texto y que devuelva un valor booleam Verdadero si encuentra la palabra y sino que devuelva falso..Haber si me pueden ayudar a realizar la función que necesitoGracias de Antemano
![]()
Hola mi problema hoy es que necesito buscar una palabra exacta en un texto y que devuelva un valor booleam Verdadero si encuentra la palabra y sino que devuelva falso..Haber si me pueden ayudar a realizar la función que necesitoGracias de Antemano
![]()
Gracias pero ya no es necesario ya consegui hacer la funcion aqui esta
Function BuscarTexto(Texto As String, Busqueda As String) As Boolean
Dim i As Integer
i = InStr(1, Texto, Busqueda)
If i > 0 Then
BuscarTexto = True
Else
BuscarTexto = False
End If
End Function
Gracias!... justo lo q necesitaba..
La utilice para buscar coincidencias en un campo de un datagrid...
Código:
Dim i As Integer For i = 0 To Me.dgvDatos.RowCount - 1 If BuscarTexto(Me.dgvDatos.Rows(i).Cells("TextoTesis").Value.ToString, Me.txtContenido.Text.Trim) Then dgvDatos.Rows(i).DefaultCellStyle.BackColor = Color.Yellow End If Next