Fórum Deletando espaços em branco e sinal de quot;-quot; numa st #205800
12/01/2004
0
se alguém souber como faço isso eu agradeço, valeu.
Eduardo_lcouto
Curtir tópico
+ 0Posts
12/01/2004
Marconi
while Ansipos(´ -.,/|\;:!¬$#@´ , MinhaString) >0 do
delete(MinhaString,Ansipos(´ -.,/||;:!¬$@´ , MinhaString),1);
Na constante => ´ -.,/|\;:!¬$@´ voce coloca todos os caracteres indesejáveis (inclusive espaço em branco).
Enquanto encontrar qualquer um deles dentro da String eles serão apagados.
Marconi
Gostei + 0
12/01/2004
Marconi
delete(MinhaString,Ansipos(´ -.,/|\;:!¬$#@´ , MinhaString),1);
Marconi
Gostei + 0
12/01/2004
Eduardo_lcouto
Está função Funciona bem, mas esqueci de mencionar e que pego as informações de um determinado periodo, quero dizer, por dia, e no decorrer do dia, os operadores do sistema, alguns lançam do hifém e outros colocam espaço em branco, e na hora de gerar o txt eu quero não importa se a placa de hifem ou não, eu queria colocar ela como padrão ´GGG0000´, porque este arquivo para um site de uma seguradora, e o site não aceita separação de hifém nem espaço.
Obrigado pela ajuda, mas a função não adianta neste caso, se você tiver outra saída. Valeu
Gostei + 0
12/01/2004
Eduardo_lcouto
obs: Utilizei as duas funções.
Gostei + 0
22/01/2004
Marconi
Estou recolocando a função só para não deixa-la incompleta caso alguem chegue até aqui por pesquisa.
Function TForm1.LimpaString(MinhaString:String);
var i:word; limpar:string;
begin
limpar:=´ -.,/|\;:!¬$#@´;
for i:= o to length(limpar)-1 do begin
while AnsiPos(limpar[i],MinhaString)>0
do delete(MinhaString,AnsiPos(limpar[i],MinhaString),1);
end;
result := MinhaString;
end;
A variavel Limpar pode ser uma contante, ou ainda parametro de entrada.
Marconi
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)