Visual Basic - Contar palabras de un cuadro de texto

Life is soft - evento anual de software empresarial
   
Vista:

Contar palabras de un cuadro de texto

Publicado por Fany (1 intervención) el 26/10/2007 01:55:12
Hola, alguien me podria decir como puedo contra las palabras de un cuadro de texto?, porfavor ayundenme!!!!!!!
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 de un cuadro de texto

Publicado por SERD (4 intervenciones) el 26/10/2007 02:26:28
Es un poco complejo ya que tienes que buscar los espacios en blanco con InStr()
y colocarlo en un bucle para que encuntre todos y con eso te das cuenta cuantas palabras tines espero lo entiendas:

str_cadena as string ; i_posicion as integer ; i_contador as integer ; i_totalcadena as integer

str_cadena= trim(text1.text)
i_posicion =1

do while bt_cont<>0
i_totalcadena=len(str_cadena)
i_posicion = InSrt(str_cadena," ")
str_cadena= mid(str_cadena, i_posicion,i_totalcadena-i_posicion)
str_cadena=trim(str_cadena)
bt_contador=bt_contador+1
loop

msgbox "Cantidad de Palabras " & bt_contador

Suerte
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 de un cuadro de texto

Publicado por Tomás (8 intervenciones) el 26/10/2007 07:59:25
Bueno, tampoco es tan complejo. Con una sola instrucción se puede conseguir lo deseado, sólo hay que introducir las palabras en un array y contar el número de elementos.

Dim a() As String
a = Split(Text1, " ")
MsgBox "La frase contiene " & UBound(a) + 1 & " palabras"

Nota: Hay que sumarle uno al mayor subíndice porque el primer elemento de la matriz es cero
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 de un cuadro de texto

Publicado por aldo (1 intervención) el 19/12/2007 18:37:44
pasenlo porfas
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