Remover um certo número em um campo de uma DBF

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

kristo
Usuário Nível 2
Usuário Nível 2
Mensagens: 78
Registrado em: 21 Set 2004 16:19

Remover um certo número em um campo de uma DBF

Mensagem por kristo »

Feliz ano novo a todos e seus familiares, que Deus esteja presente no coração de todos !!!!

Pessoal tenho um probleminha aqui....

Tenho uma DBF chamada DF.dbf e nessa dbf tem o campo TELEFONE, mais os telefones tem o 0 (zero) no início, eu gostaria de remover esse 0 (zero) alguém pode me ajudar, se alguém puder montar uma PRG pra mim, eu agradeço.......

Ex. o campo do telefone está assim:

02124142

eu gostaria de remover apenas o primeiro ZERO para ficar assim:

2124142

Fico no aguardo, desde já obrigado a todos....

Kristo
Avatar do usuário
Clipper
Colaborador
Colaborador
Mensagens: 1334
Registrado em: 23 Ago 2004 00:04
Localização: Recife/PE

Mensagem por Clipper »

Prezado Colega

Você pode usar assim :

Código: Selecionar todos

USE DF
TAMANHO=LEN(TELEFONE)
DO WHILE .NOT. EOF()
   REPLACE TELEFONE WITH SUBSTR(TELEFONE,2,TAMANHO-1)
ENDDO
DBCLOSEALL()
Até logo.

Marcelo
Programador que é programador, quando tá de folga vai inventar função nova, fazer testes, ou seja... se divertir
Cobra 210 - Drive de 8" 1.024 KB - 64 KB RAM - Impressora de Linha Cobra - Visicalc - Fortran - Dialog - Sistema Operacional SP/M (é sp/m mesmo - era o cp/m da cobra)
Responder