Quitar Ceros a la izquierda

1,187 views
Skip to first unread message

Luis Leon

unread,
May 20, 2014, 11:08:02 AM5/20/14
to foro vfp
Hola amigos alguien me puede proporcionar una funcion que me permita quitar los ceros a la izquierda de un campo caracter.

Ejm.

00001256    -----> 1256
0000T1256 ------> T1256


Muchas Gracias


Luis

Miguel Canchas

unread,
May 20, 2014, 11:20:17 AM5/20/14
to publice...@googlegroups.com

STRTRAN(“00001256”, “0”, “”)

 

 

MK

Luis Leon

unread,
May 20, 2014, 11:28:16 AM5/20/14
to foro vfp
Mi estimado eso elimina todos los ceros,  es decir 

si hay esto

0000T0120    ->   T0120


Subject: RE: [vfp] Quitar Ceros a la izquierda
Date: Tue, 20 May 2014 10:20:17 -0500
From: mcan...@ximesa.com
To: publice...@googlegroups.com

Fidel Charny

unread,
May 20, 2014, 11:32:25 AM5/20/14
to publice...@googlegroups.com, leon-...@hotmail.com
Chapuza al paso:
PROCEDURE QuitaCeros(tcNumero)
LOCAL lcNew,lCorte,i
lcNew=""
FOR i=1 TO LEN(tcNumero)
    lcPart=SUBSTR(tcNumero,i,1)
    IF lcpart="0" AND !lcorte
        LOOP
    ENDIF
    lCorte=.t.
    lcNew=lcNew+lcpart
ENDFOR
RETURN lcNew

Luis Mata Figueroa

unread,
May 20, 2014, 11:40:35 AM5/20/14
to publice...@googlegroups.com
clear
texto = '05256'
cntr = 0
FOR i=1 TO LEN(texto)
    x=substr(texto,i,1)
    ?x
    IF x = '0'
        cntr = cntr + 1
    ELSE
        exit
    endif
NEXT i
?STUFF(texto,1,cntr,'')

Ricardo Pina

unread,
May 20, 2014, 12:14:10 PM5/20/14
to Grupo VFP
Hola Luis

SUBSTR(cVariable,AT(SUBSTR(STRTRAN(cVariable,"0"),1,1),cVariable))

Saludos
--
            

                   Ricardo Pina

Desarrollo y Servicios Informáticos

                  Profesionales
               www.dsip.com.ar

 

 

Víctor Hugo Espínola Domínguez

unread,
May 20, 2014, 12:22:48 PM5/20/14
to publice...@googlegroups.com
Hola Ricardo

Genial!

Saludos.

Ing. Bernardo José Martínez Pérez

unread,
May 20, 2014, 2:09:10 PM5/20/14
to publice...@googlegroups.com
Alltrim(transform(int(val("0000675"))))

Espero te ayude.

Enviado desde mi Windows Phone
De: Luis Leon
Enviado el: ‎20/‎05/‎2014 10:08 a. m.

Para: foro vfp
Asunto: [vfp] Quitar Ceros a la izquierda

Luis la Romana

unread,
May 20, 2014, 2:22:50 PM5/20/14
to publice...@googlegroups.com
El que transforma a números no aplica porque hay cadenas que llevan letras.

ZeRoberto

unread,
May 20, 2014, 4:08:31 PM5/20/14
to publicesvfoxpro
? LTRIM("0000T1256", 1, "0")





Saludos


El 20 de mayo de 2014, 13:22, Luis la Romana <jose...@gmail.com> escribió:
El que transforma a números no aplica porque hay cadenas que llevan letras.



--
btnMyVideo.Click()

Víctor Hugo Espínola Domínguez

unread,
May 20, 2014, 4:29:07 PM5/20/14
to publice...@googlegroups.com
PLOP!

Nunca leí las ayudas de las funciones TRIM, asumía que se aplicaba solo a espacios.

Saludos,
Víctor.
Lambaré - Paraguay.

33D.gif

andrea Kummers

unread,
May 20, 2014, 4:36:37 PM5/20/14
to publice...@googlegroups.com
Felicitaciones ZeRoberto:
 
Nos has abierto los EYESITOS a más de uno.

33D.gif

Jorge Kiernan

unread,
May 20, 2014, 4:38:02 PM5/20/14
to publicesvfoxpro
And the Winner is... Ze Roberto!!!!

Luis Mata Figueroa

unread,
May 20, 2014, 4:41:50 PM5/20/14
to publice...@googlegroups.com
Buena esta, tampoco me la sabia...

Ricardo Pina

unread,
May 20, 2014, 5:01:19 PM5/20/14
to Grupo VFP
Ze roberto

Muy buena, tampoco conocía estos parametros del trim
lo bueno, si simple dos veces bueno

Saludos



El 20 de mayo de 2014, 17:08, ZeRoberto <zero...@gmail.com> escribió:

Carlos Miguel FARIAS

unread,
May 20, 2014, 7:17:53 PM5/20/14
to Grupo Fox
En portugués (brasil), ZeRoberto signifca Roberto sabe :-D 

Allan Raúl Acuña

unread,
May 20, 2014, 7:20:30 PM5/20/14
to publice...@googlegroups.com
Gracias mi estimado Ze, ya lo anoté en mi documentador de códigos.

Saludos cordiales.

Lic. Allan Raúl Acuña
Analista Programador
msn= allan...@hotmail.com
skype= NicEasySoft
            +(505) 8 831 8191
Managua, Nicaragua
Centroamérica


Date: Tue, 20 May 2014 20:17:53 -0300
Subject: Re: [vfp] Quitar Ceros a la izquierda
From: carlosmig...@gmail.com
To: publice...@googlegroups.com
Reply all
Reply to author
Forward
0 new messages