Buscar y contar palabras de un TextBox
Publicado por Andrés (3 intervenciones) el 15/02/2018 19:32:13
Buenos días amigos, tengo que hacer un pequeño programa que consiste en que a partir de un texto que se digite en un TextBox, poder a de igual manera en otro TextBox hacer una búsqueda donde hayan coincidencias y que de igual manera poder contar las coincidencias y mostrarlas en un MessageBox, estoy como empezando a programar y voy de esta manera...:
En este caso cuando le doy en boton buscar solo me encuentra la primera coincidencia y yo quiero que me resalte todas las coincidencias, pero antes de eso que en un MessageBox me "diga por ejemplo 3 coincidencias encontradas" es decir me cuente las coincidencias.
De igual manera que si se le da Clic al botón buscar sin haber digitado algo pues que salga otro MessageBox anunciando Por favor digite un texto!, pero en este caso el programa no me recorre Else If, creo que tengo algo mal.
Pero si intento buscar una palabra que no este en el TextBox si me resulta el MessageBox anunciando que la Palabra no fue encontrada!
Les agradecería su colaboración amigos, Gracias por sus aportes!!!
Codigo:
...Gracias por sus aportes!!!
En este caso cuando le doy en boton buscar solo me encuentra la primera coincidencia y yo quiero que me resalte todas las coincidencias, pero antes de eso que en un MessageBox me "diga por ejemplo 3 coincidencias encontradas" es decir me cuente las coincidencias.
De igual manera que si se le da Clic al botón buscar sin haber digitado algo pues que salga otro MessageBox anunciando Por favor digite un texto!, pero en este caso el programa no me recorre Else If, creo que tengo algo mal.
Pero si intento buscar una palabra que no este en el TextBox si me resulta el MessageBox anunciando que la Palabra no fue encontrada!
Les agradecería su colaboración amigos, Gracias por sus aportes!!!
Codigo:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Public Class Form1
Private Sub btnbuscar_Click(sender As Object, e As EventArgs) Handles btnbuscar.Click
Dim buscar As String
Dim descripcion As String
Dim palabra As Integer
buscar = txtbuscar.Text
descripcion = InStr(txtdescripcion.Text, buscar)
If descripcion = " " And buscar = " " Then
MessageBox.Show("Por favor digite un texto!", "Buscando coincidencias...", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
If descripcion Then
Name = palabra + 1
txtdescripcion.Focus()
txtdescripcion.SelectionStart = descripcion - 1
txtdescripcion.SelectionLength = Len(buscar)
MessageBox.Show("Total de conincidencias encontradas: ", "Resultado...!", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
MessageBox.Show("Palabra o letra no encontrada!", "Resultado...!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
End Sub
Private Sub btnlimpiar_Click(sender As Object, e As EventArgs) Handles btnlimpiar.Click
txtbuscar.Text = ""
txtdescripcion.Text = ""
End Sub
End Class
...Gracias por sus aportes!!!
Valora esta pregunta
0
