Emiliana
13 de Diciembre del 2003

Necisito contar un texto, o sea quiero contar el numero de palabras de un texto grande en visual basic.

MMM
13 de Diciembre del 2003

Este es un foro de VFP, luego yo te indico como hacer esto en este lenguaje. Sólo tienes que ver la metodología para trasladarlo a VB.


FOR IL=1 TO 45
PALABRA[IL,1]=''
PALABRA[IL,2]=0
ENDFOR
PIP=1 &&& Posición Inicial de la Palabra
NPA=1 &&& Número de PAlabras
NLE=1 &&& Número de LEtras
LPA=1 &&& LONGItud de la PAlabra
CW=.F.
DO WHILE NLE<=LDENO
LETRA=SUBSTR(DENOM,NLE,1)
IF LETRA$'-&' &&Considero que - y & unen no separan, pero puede hacerlo al revés
DENOM=STUFF(DENOM,NLE,1,' ')
ENDIF
IF LETRA=' ' .AND. SUBSTR(DENOM,NLE+1,1)=' '
DENOM=STUFF(DENOM,NLE+1,1,'')
LDENO=LDENO-1
LOOP
ENDIF
IF LETRA=' ' .AND. SUBSTR(DENOM,NLE+2,1)=' '
IF NLE<3
CW=.T.
ELSE
IF SUBSTR(DENOM,NLE-2,1)=' '
CW=.T.
ENDIF
ENDIF
IF CW
DENOM=STUFF(DENOM,NLE,1,'')
LDENO=LDENO-1
ENDIF
ENDIF
LETRA=SUBSTR(DENOM,NLE,1)
IF LETRA$' '
CW=.F.
PALABRA[NPA,1]=SUBSTR(DENOM,PIP,LPA-1)
INICI=palabra[NPA,1]
IF INICI<>' '
NPA=NPA+1
ELSE
PALABRA[NPA,1]=''
ENDIF
PIP=NLE+1
LPA=0
ENDIF
LPA=LPA+1
NLE=NLE+1
ENDDO
PALABRA[NPA,1]=SUBSTR(DENOM,PIP,LPA-1)
INICI=palabra[NPA,1]
IF .NOT. INICI<>' '
PALABRA[NPA,1]=''
NPA=NPA-1
ENDIF