Retirar espaços a mais em registro de dbf
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
Curtidas 0
Respostas
Bilouro
19/03/2003
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
GOSTEI 0
Dor_poa
19/03/2003
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;
GOSTEI 0