Fórum Retirar espaços a mais em registro de dbf #147231
19/03/2003
0
Amigos, preciso de uma rotina parecida com o ARRUMAR do excel para retirar espaços de um campo denominado NOME dentro de um dbf.
Ex. ETR SAO JOSE, deveria aparecer ETR SAO JOSE com apenas um espaço entre as palavras.
Obrigado pela ajuda nas outras questões...
Jeff
Ex. ETR SAO JOSE, deveria aparecer ETR SAO JOSE com apenas um espaço entre as palavras.
Obrigado pela ajuda nas outras questões...
Jeff
Jeffjames
Curtir tópico
+ 0
Responder
Posts
19/03/2003
Bilouro
Amigos, preciso de uma rotina parecida com o ARRUMAR do excel para retirar espaços de um campo denominado NOME dentro de um dbf.
Ex. ETR SAO JOSE, deveria aparecer ETR SAO JOSE com apenas um espaço entre as palavras.
Obrigado pela ajuda nas outras questões...
Jeff
Grande, a função [b:b87c35bc02]POS[/b:b87c35bc02] retorna a posição de um determinado caracter (ex.: ´ ´) faça um algoritimo que se achar ´ ´ por exemplo na posição 7 e 8 que tire um usando [b:b87c35bc02]delete[/b:b87c35bc02] ou [b:b87c35bc02]copy[/b:b87c35bc02]
restando dúvidas...
[]´s
Responder
Gostei + 0
19/03/2003
Dor_poa
usa o Trim
Trim(Campo).;
Ou
Function Trim(J:String):String; Export;
Begin
While J[Length(J)]=#32 do Dec(J[0]);
If Length(J)>1 then
While (J[1]=´ ´) do
Begin
Delete(J,1,1);
If Length(J)<=1 then J:=´´;
end;
Result:=J;
end;
Trim(Campo).;
Ou
Function Trim(J:String):String; Export;
Begin
While J[Length(J)]=#32 do Dec(J[0]);
If Length(J)>1 then
While (J[1]=´ ´) do
Begin
Delete(J,1,1);
If Length(J)<=1 then J:=´´;
end;
Result:=J;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)