como contar el numero de letras en una variable

1,396 views
Skip to first unread message

Miguel Castillo

unread,
Jul 20, 2011, 12:52:04 AM7/20/11
to publice...@googlegroups.com
Saludos
Recuerda alguien como hacer para contar elnumero de letras en una variable
 
Saludos
 
 
Miguel
 
Desde Santander España
 
 

HDA HDA54

unread,
Jul 20, 2011, 8:22:44 AM7/20/11
to publice...@googlegroups.com
Si la variable solo tiene letras o si los caracteres son solo letras podria ser asi. ahora si dentro de la variable hay letras y números y solo quieres contar las letras hay que hacer un poquito mas.

x=Len(allt(variable))
? x

Saludos

edgar suarez kummers

unread,
Jul 20, 2011, 8:29:37 AM7/20/11
to publice...@googlegroups.com
* espero que sea lo que buscas
* nombre_variable debe ser una variable tipo character
cantidad_letras = 0
for alfa = 1 to len(nombre_variable)
izquierda = left(nombre_variable,1)
if isalpha(izquierda) = .T. then
cantidad_letras = 1 + cantidad_letras
endif
enddo
? "cantidad_letras = "; cantidad_letras
saludos
edgar


De: HDA HDA54 <hda...@gmail.com>
Para: publice...@googlegroups.com
Enviado: miércoles 20 de julio de 2011 7:22
Asunto: Re: [vfp] como contar el numero de letras en una variable

Intel Man

unread,
Jul 20, 2011, 9:14:51 AM7/20/11
to publice...@googlegroups.com
Hola, en este algoritmo, no se podría usar la funcion left(), tendria que usarse la funcion substr() para comprobar cada caracter.

>izquierda = left(nombre_variable,1)

Aqui estaria tomando siempre la primera letra de la variable.

Saludos



Date: Wed, 20 Jul 2011 13:29:37 +0100
From: edgark...@yahoo.es
Subject: Re: [vfp] como contar el numero de letras en una variable
To: publice...@googlegroups.com

edgar suarez kummers

unread,
Jul 20, 2011, 9:28:08 AM7/20/11
to publice...@googlegroups.com
tienes razón, disculpa, debe ser así, gracias.
Lo he hecho muchas veces, pero hoy se me
apagó la luz ....

* espero que sea lo que buscas
* nombre_variable debe ser una variable tipo character
cantidad_letras = 0
for alfa = 1 to len(nombre_variable)
toditos = left(nombre_variable, alfa)
izquierda = right(toditos,1)
if isalpha(izquierda) = .T. then
cantidad_letras = 1 + cantidad_letras
endif
enddo
? "cantidad_letras = "; cantidad_letras
saludos
edgar


De: Intel Man <intel_m...@hotmail.com>
Para: publice...@googlegroups.com
Enviado: miércoles 20 de julio de 2011 8:14
Asunto: RE: [vfp] como contar el numero de letras en una variable

Marco Plaza

unread,
Jul 20, 2011, 9:31:40 AM7/20/11
to Comunidad de Visual Foxpro en Español

si le quitas los numeros te quedan solo las letras, asi que:
( claro asumiendo que Var solo contiene letras o números ):

nLetras = len(chrtran(Var,'0123456789'),'')

Saludos.

Miguel Castillo

unread,
Jul 21, 2011, 1:25:43 AM7/21/11
to publice...@googlegroups.com
Gracias compañeros con esto ya salgo adelante
 
Saludos
Miguel Castillo
 

From: intel_m...@hotmail.com
To: publice...@googlegroups.com
Subject: RE: [vfp] como contar el numero de letras en una variable
Date: Wed, 20 Jul 2011 13:14:51 +0000

Miguel Castillo

unread,
Jul 28, 2011, 12:09:56 AM7/28/11
to publice...@googlegroups.com
muy gradecido saludos
 
> Date: Wed, 20 Jul 2011 06:31:40 -0700
> Subject: [vfp] Re: como contar el numero de letras en una variable
> From: stma...@gmail.com
> To: publice...@googlegroups.com

Mario Alfredo

unread,
Jul 29, 2011, 6:06:51 PM7/29/11
to Comunidad de Visual Foxpro en Español
esto debe del profe luis maria o

SET EXACT ON
? TieneN("LETRAS Y NÚMEROS 1234")
SET EXACT OFF
? TieneN("LETRAS Y NÚMEROS 1234")

FUNCTION TieneN(Cadena)
RETURN CHRTRAN(Cadena,"0123456789","") # Cadena
ENDFUNC

ent="luismaria0123456789"
q=" áéíóúÁÉÍÓÚ0123456789"
sust=”ABCDEFGHIJKLMNÑOPQRSTUVWXYZabcdefghijklmnñopqrstuvwxyz"

variable=CHRTRAN(ent, q , sust)

x=Len(allt(variable))
? x




On Jul 27, 10:09 pm, Miguel Castillo <mike711...@hotmail.com> wrote:
> muy gradecido saludos
>
>
>
>
>
>
>
> > Date: Wed, 20 Jul 2011 06:31:40 -0700
> > Subject: [vfp] Re: como contar el numero de letras en una variable
> > From: stmapw...@gmail.com> To:publice...@googlegroups.com
Reply all
Reply to author
Forward
0 new messages