• Jueves 15 de Abril de 2021, 18:46

Autor Tema:  Programa Que Lea Un Textbox Y ...  (Leído 637 veces)

Bopo

  • Miembro activo
  • **
  • Mensajes: 72
    • Ver Perfil
Programa Que Lea Un Textbox Y ...
« en: Sábado 24 de Enero de 2004, 07:14 »
0
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

  • Miembro MUY activo
  • ***
  • Mensajes: 323
    • Ver Perfil
    • http://www.geocities.com/icotext/spanish/
Re: Programa Que Lea Un Textbox Y ...
« Respuesta #1 en: Domingo 25 de Enero de 2004, 02:44 »
0
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
Icotext Evolution v0.5 para los amantes del ASCII Art
http]