Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
5 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 5 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 3

Impressora Ticket

15/11/2016, 09:20 por clima238

Bom dia,
Por favor alguém me explique porque o código abaixo imprime no ecrã em vez do printer: …

Comentários: 2

Visite meu canal no Youtube

20/1/2017, 00:45 por ImRicoh

VFP Unlimited


Comentários: 0

Bloquear edição do ListBox

17/6/2010, 15:13 por Julio

Pessoal

Boa Tarde!

Tnho uma listbox apenas para exibir o resultado.
Preciso bloquear a listbox …

Comentários: 17

automação do mozilla e chrome

15/1/2017, 12:16 por Handerson Mildroz

Boa tarde a todos!

Sou iniciante no VFP. Preciso de ajuda, pois tenho um código que usa o …

Comentários: 0

Estatísticas
Temos 6991 usuários registrados
O último usuário registrado atende pelo nome de cpmacedo

Os nossos membros postaram um total de 9 mensagens em 3 assuntos

Remover ZERO a esquerda de Texto

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Resolvido Remover ZERO a esquerda de Texto

Mensagem por ton_oliver em 13/4/2011, 16:26

Boa Tarde

Pessoal tenho em meu banco de dados varias numeros seguidos de zero a esquerda e preciso tirar eles.


0000012345
0000089765
0012398763


alguem tem alguma ideia ???

ton_oliver
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Remover ZERO a esquerda de Texto

Mensagem por alceu11 em 13/4/2011, 17:05

? STRTRAN("0000012345","0") && retorna 12345
o problema
? STRTRAN("00000123045","0") && retorna 12345

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Remover ZERO a esquerda de Texto

Mensagem por ton_oliver em 13/4/2011, 17:06

Alceu, esse é o problema. kkkk

Eu ja fiz essa ideia mas tem numeros que tenho o zero, junto.


é igualzinho o que vc sugeriu.

ton_oliver
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Remover ZERO a esquerda de Texto

Mensagem por alceu11 em 13/4/2011, 17:14

A solucao esta de ondi vem este numero, de que tamanho , e partir de qual casa pegar,,00,,,,,o nr. certo,,,,,,se nao tiver padrao,,,,,,,,ai esquece!!!
Se puder responder, sera que o problema esta na origem, deste numero?
Qual o objetivo, de tirar os zeros, pq o numero veio com zeros as esquerdas,?


Última edição por alceu11 em 13/4/2011, 17:16, editado 1 vez(es)

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Remover ZERO a esquerda de Texto

Mensagem por ton_oliver em 13/4/2011, 17:16

Entao Alceu nao tem padrao. kkkkkkkkk

Mas valeu pela Ajuda!!!!

Vou tentar alguma coisa e posto se conseguir

ton_oliver
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Remover ZERO a esquerda de Texto

Mensagem por Julio em 13/4/2011, 17:44

Ton

Veja este exemplo.
Clique nos botoes com (...)


[Você precisa estar registrado e conectado para ver este link.]

Abaixo o codigo

Código:
c= ALLTRIM(thisform.text1.Value) && pegar todo textbox eliminando espaços laterais.
n= LEN(c) && retorna o nr de caracter contido na expressão c

LOCAL m.guarda as string
m.guarda=SPACE(01)

FOR a = 1 TO n
cString= SUBSTR(c, a, 1) && pegar um caracter por vez
MESSAGEBOX( "O caracter da posição " + TRANSFORM(a) + " é: " + TRANSFORM(cstring) )

DO CASE
  CASE UPPER(cString)# "0"
    m.guarda = m.guarda + cstring
ENDCASE

ENDFOR

MESSAGEBOX("RESULTADO é " + m.guarda)

abs

julio

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Remover ZERO a esquerda de Texto

Mensagem por Nelson Arcas em 13/4/2011, 18:49

Olá, ton
Pelo exemplo que voce passou veja se vai servir para voce.

Caso seja para transformar em número
Código:

m.texto='000123050'
m.texto=INT(VAL(m.texto))

Caso seja para manter em caracter
Código:

m.texto='000123050'
m.texto=alltrim(str(INT(VAL(m.texto))))

Nelson Arcas
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Remover ZERO a esquerda de Texto

Mensagem por alceu11 em 13/4/2011, 19:40

resolve sim int(VAL(M.VAR)), To ficando veio, esqueci disto.tenho ke Pindurar as chuteiras.

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Remover ZERO a esquerda de Texto

Mensagem por hugo em 13/4/2011, 21:25

parabens a voces galera

sempre empenhados em ajudar o proximo!

se nao considerar resolvido solicite que voltamos em aberto

mais tudo indica sucesso!

_________________
"A tristeza é a falta de alegria, mais sem ela eu não poderia entender a alegria do fato de que a felicidade existe!"
Helio Leites - [Você precisa estar registrado e conectado para ver este link.]

hugo
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Remover ZERO a esquerda de Texto

Mensagem por ton_oliver em 14/4/2011, 09:18

Fala galera....


Resolvidasso!!!! kkkkkk

Obrigado a todos....

Tentei fazer um loop a procura de zeros e o remover, mas nao adiantou.

Mas a dica foi simples. kkkkk Espero que ajude outras pessoas tb.

ton_oliver
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Outra forma...

Mensagem por felipe.depaula em 14/4/2011, 15:01

Oi Ton, sei que já conseguiu o que queria, mas só para ter mais uma opção....

Você poderia ter feito esta forma também:


?cast('0000012345' as integer)

Abraços

felipe.depaula
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: Remover ZERO a esquerda de Texto

Mensagem por ton_oliver em 14/4/2011, 15:03

Felipe obrigadaooo

Mas esse jeito, se eu tiver um 0 no meio ele nao perde ???

Acho que nao né. kkkk

Estou sem o FOX agora para testar.

Abraçoss

ton_oliver
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido ....

Mensagem por felipe.depaula em 14/4/2011, 16:38

Não Perde não!!!! rs

Testa aí!

Abraços

felipe.depaula
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: Remover ZERO a esquerda de Texto

Mensagem por ton_oliver em 15/4/2011, 15:30

Deu certinho..

Mas um jeito de se fazer....

ton_oliver
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum