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
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
0
Comentar
RE:Contar palabras de un cuadro de texto
Publicado por aldo (1 intervención) el 19/12/2007 18:37:44