SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Bopo en Sábado 24 de Enero de 2004, 07:14

Título: Programa Que Lea Un Textbox Y ...
Publicado por: Bopo en Sábado 24 de Enero de 2004, 07:14

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:

Título: Re: Programa Que Lea Un Textbox Y ...
Publicado por: Cyclop en Domingo 25 de Enero de 2004, 02:44

puedes hacer esto

Código: Text

1.  
2. sMiTexto = "solo se que nada se"
3. aArray = Split(sMiTexto," ")
4. nPalabras = UBound(aArray) - 1
5.  
6.  

La otra forma

Código: Text

1.  
2. sMiTexto = "solo se que nada se"
3. nCuenta = 0
4. Do While True
5.      nPos = InStr(1,sMiTexto," ") ' Creo que es asi
6.      If nPos > 0 Then
7.         nCuenta = nCuenta + 1
8.         sMiTexto = Mid(sMiTexto, nPos + 1)
9.       Else
10.         If Len(Trim(sMiTexto))>0 Then
11.            nCuenta = nCuenta + 1
12.         EndIf
13.         Exit loop
14.      EndIf
15. Loop
16.  
17.  

Suerte