Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
25 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 25 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
TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

COMO BLOQUEAR REGISTRO OU TABELA NO VISUAL FOXPRO PARA GRAVAÇÃO EM REDE

3/4/2017, 10:29 por AJC

Pessoal estou tendo um problema que acontece sempre busco na minha tabela de clientes o ultimo …

Comentários: 2

Controlar Scanner Twain

31/3/2017, 17:31 por Kleber R Bento

Estou usando o EZTW32.DLL para criar uma ferramenta que escaneia e gera PDF. Porém com esses …

Comentários: 0

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

Os nossos membros postaram um total de 48 mensagens em 25 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