Visual Basic - Contar palabras en un RichTextBox

Life is soft - evento anual de software empresarial
 
Vista:

Contar palabras en un RichTextBox

Publicado por asta (3 intervenciones) el 18/05/2007 22:10:15
Tengo un RichTextBox con un texto, y me gustaria poder contar las veces que se repite, por ejemplo, la palabra "Hola", y que me devuelva el valor numerico. ¿Cómo podría hacerlo?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Contar palabras en un RichTextBox

Publicado por Nuevo (7 intervenciones) el 18/05/2007 22:36:53
Desde luego que sería un valor NUMÉRICO, si quieres las VECES que se repite. Podrías usar la función InStr( ), así que revisa en la MSDN la manera en que puedes usarla.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Contar palabras en un RichTextBox

Publicado por quique (25 intervenciones) el 19/05/2007 00:14:43
estas seguro de lo que dices?

porque siempre recomiendas la ayuda del MSDN?? será porque no sabes ni tan siquiera lo que se pregunta

que acaso no crees que si ya la hubiera revisado, te estuviera preguntando??
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Contar palabras en un RichTextBox

Publicado por Luis Prieto (167 intervenciones) el 19/05/2007 00:03:43
Hola, asta!!

Solo tienes que hacer esto:

con = 0
For i = 1 To Len(Text1)
If InStr(i, Text1, "hola") <> 0 And pos <> InStr(i, Text1, "hola") Then
con = con + 1
pos = InStr(i, Text1, "hola")
End If
Next
MsgBox con

Espero te sirva

Saludos!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Contar palabras en un RichTextBox

Publicado por Crítico (7 intervenciones) el 19/05/2007 08:42:34
Hola!

No olvidemos que el control RichTextBox tiene el método Find para buscar palabras y es mucho mas rápido que hacer comparación de cadenas. (Compruébalo en un texto de 20.000 palabras, la diferencia es abismal).

sBuscar = "Hola"
iLen = Len(sBuscar)
lpos = RichTextBox1.Find(sBuscar, , , 2)
While lpos > 0
iVeces = iVeces + 1
RichTextBox1.SelStart = lpos
RichTextBox1.SelLength = iLen
lpos = RichTextBox1.Find(sBuscar, lpos + iLen, , 2)
Wend
MsgBox iVeces

Salu2 a to2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Contar palabras en un RichTextBox

Publicado por asta (3 intervenciones) el 19/05/2007 09:09:53
Lo probe y no funciona, me da 0
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Contar palabras en un RichTextBox

Publicado por Crítico (7 intervenciones) el 19/05/2007 12:54:39
Para que el método Find funcione en un control RichTextBox, éste tiene que estar cargado desde un archivo de texto.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar