Programación General > Visual Basic 6.0 e inferiores

 Programa Que Lea Un Textbox Y ...

(1/1)

Bopo:
Programa que lea un textbox y que me diga cuantas palabras hay dede 4 o más letras

Estoy recalentandome la cabeza pensando en como hacerlo :hola: ... necesito ayudaaa :unsure:

Cyclop:
puedes hacer esto



--- Código: Text --- sMiTexto = "solo se que nada se"aArray = Split(sMiTexto," ")nPalabras = UBound(aArray) - 1  
La otra forma


--- Código: Text --- sMiTexto = "solo se que nada se"nCuenta = 0Do While True     nPos = InStr(1,sMiTexto," ") ' Creo que es asi     If nPos > 0 Then        nCuenta = nCuenta + 1        sMiTexto = Mid(sMiTexto, nPos + 1)      Else        If Len(Trim(sMiTexto))>0 Then           nCuenta = nCuenta + 1        EndIf        Exit loop     EndIfLoop  

Suerte

Navegación

[0] Índice de Mensajes