tenho uma string conta="1.1.1.1.1111"
quero retirar todos pontos para gerar um txt "111111111"
um abraço
)
retirar ponto?
Moderador: Moderadores
-
pena
- Usuário Nível 3
- Mensagens: 331
- Registrado em: 06 Jul 2004 18:08
- Localização: CACHOEIRA DO SUL-RS
retirar ponto?
boa tarde pessoal, sei que tem mas nao lembro qual e de como usar uma função que tem pronta,preciso disso daqui
tenho uma string conta="1.1.1.1.1111"
quero retirar todos pontos para gerar um txt "111111111"
um abraço)
tenho uma string conta="1.1.1.1.1111"
quero retirar todos pontos para gerar um txt "111111111"
um abraço
)
Re: retirar ponto?
É a função StrTran().
[]'s
Maligno
---
Não respondo questões técnicas através de MP ou eMail. Não insista.
As dúvidas devem ser postadas no fórum. Desta forma, todos poderão
se beneficiar das respostas.
---
Se um dia precisar de uma transfusão de sangue você perceberá como
é importante a figura do doador. Procure o hemocentro de sua cidade e
se informe sobre a doação de sangue, plaquetas e medula óssea. Doe!
Maligno
---
Não respondo questões técnicas através de MP ou eMail. Não insista.
As dúvidas devem ser postadas no fórum. Desta forma, todos poderão
se beneficiar das respostas.
---
Se um dia precisar de uma transfusão de sangue você perceberá como
é importante a figura do doador. Procure o hemocentro de sua cidade e
se informe sobre a doação de sangue, plaquetas e medula óssea. Doe!
-
Pablo César
- Usuário Nível 7
- Mensagens: 5312
- Registrado em: 31 Mai 2006 10:22
- Localização: Curitiba - Paraná
retirar ponto?
ou das funções do CT.LIB:
conta:="1.1.1.1.1111"
conta:=ATREPL(".",conta,"")
ou:
conta:=CHARREM(".",conta)
ou faz você mesmo assim:
conta:=RETIRA(".",conta)
FUNCTION RETIRA(cDel,cString)
cNewString:=""
FOR I=1 TO LEN(cString)
IF !(SUBSTR(cNewString,I,1)=cDel)
cNewString:=cNewString+SUBSTR(cNewString,I,1)
ENDIF
NEXT
RETURN cNewString
conta:="1.1.1.1.1111"
conta:=ATREPL(".",conta,"")
ou:
conta:=CHARREM(".",conta)
ou faz você mesmo assim:
conta:=RETIRA(".",conta)
FUNCTION RETIRA(cDel,cString)
cNewString:=""
FOR I=1 TO LEN(cString)
IF !(SUBSTR(cNewString,I,1)=cDel)
cNewString:=cNewString+SUBSTR(cNewString,I,1)
ENDIF
NEXT
RETURN cNewString
Um clip-abraço !
Pablo César Arrascaeta
Compartilhe suas dúvidas e soluções com todos os colegas aqui do fórum.
Evite enviar as dúvidas técnicas por MPs ou eMails, assim todos iremos beneficiar-nos.
Pablo César Arrascaeta
Compartilhe suas dúvidas e soluções com todos os colegas aqui do fórum.
Evite enviar as dúvidas técnicas por MPs ou eMails, assim todos iremos beneficiar-nos.
-
jamazevedo
- Usuário Nível 3
- Mensagens: 122
- Registrado em: 29 Dez 2005 16:50
- Localização: Manaus - AM
Re: retirar ponto?
Outro exemplo:
Código: Selecionar todos
cContaComPonto := "1.1.1.1.1111"
cContaSemPonto := STRTRAN( cContaComPonto , "." , "" )
______________________________________________________
Usando: Linux Ubuntu 18.04, Harbour 3.2.0dev r1811161533
______________________________________________________
José Airton de Menezes Azevedo
Manaus - AM
Usando: Linux Ubuntu 18.04, Harbour 3.2.0dev r1811161533
______________________________________________________
José Airton de Menezes Azevedo
Manaus - AM