Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
15 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 15 Visitantes :: 1 Motor de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Espessura do cursor intermitente

7/3/2017, 09:08 por Jefferson Matakas

Bom dia a todos !!

Existe uma opcao no windows que pode ser acessada atraves da 'central da …

Comentários: 0

DESENVOLVIMENTO EM REDES

4/3/2017, 18:45 por AJC

Pessoal tem ou conhece livros ou material para programação em
redes usando banco de dados nativo …

Comentários: 0

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: 4

Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Enviar msg para WhatsAPP via VFP

7/2/2017, 10:31 por Eliana

Olá Pessoal!

Alguém sabe se é possível enviar mensagem para o WhatsAPP via VFP?


Grata


Comentários: 0

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

Os nossos membros postaram um total de 31 mensagens em 17 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
avatar
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)
avatar
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))))
avatar
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.
avatar
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.]
avatar
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
avatar
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
avatar
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