Um problema com StringList
24/06/2008
0
Eu tenho uma rotina para percorrer um arquivo Texto. Em algumas situações, se faz necessário usar uma StringList. Após carregado, ou em variável ou numa Stringlist, preciso agora jogar tudo isso num arquivo. O que passa é, quando o arquivo vem de uma stringlist, entre um arquivo e outro, existe um espaço(Um enter causado pelo Stringlist). Como faço para remover esses espaços de forma que meu arquivo fique sem nenhum espaço entre linhas? Grato desde já. Abaixo um pequeno exemplo de como está e de como gostaria que ficasse?
Deveria ficar assim:
6061322970000106100499619113001482002173SERGIO ZABEU 11214141846
6500100174305020080M T4CAMISETA MC G.POLO 2 BOT R00100000002970
6500100174155110162M T4CAMISETA MC G.POLO LISTR R00100000006300
650010010422312028044 T4BERMUDA JEANS FIVE POCKTS00100000004200
7000000000000000000000000000000000000000000013470
75CARTAO 134,70
801800
1061322970000106100499619113002175
150705200801060003000004000000000000490014820001000000
2000079893053000001056900000002550000000000900000000000000000000000000000000000000000792900000000000000000000000
35000000000000000000000000000000000000000000000000000000000000000000
40CER00000000
4501 A VISTA 00000033270
4502 CARTAO 00000046020
4503 CHEQUE 00000000000
4504 OUTROS 00000000000
50Total: 00000079290
550007000337235615MFDSW0000000330003587IF ST1000100040010001
6061322970000106100499619113001483002176Sergio Zabeu 11214141846
650010012427003019795 T4CINTO COURO S/COST.3.2CM G00100000003300
7000000000000000000000000000000000000000000003300
75A VISTA 33,00
801800
Deveria ficar assim:
6061322970000106100499619113001482002173SERGIO ZABEU 11214141846
6500100174305020080M T4CAMISETA MC G.POLO 2 BOT R00100000002970
6500100174155110162M T4CAMISETA MC G.POLO LISTR R00100000006300
650010010422312028044 T4BERMUDA JEANS FIVE POCKTS00100000004200
7000000000000000000000000000000000000000000013470
75CARTAO 134,70
801800
1061322970000106100499619113002175
150705200801060003000004000000000000490014820001000000
2000079893053000001056900000002550000000000900000000000000000000000000000000000000000792900000000000000000000000
35000000000000000000000000000000000000000000000000000000000000000000
40CER00000000
4501 A VISTA 00000033270
4502 CARTAO 00000046020
4503 CHEQUE 00000000000
4504 OUTROS 00000000000
50Total: 00000079290
550007000337235615MFDSW0000000330003587IF ST1000100040010001
6061322970000106100499619113001483002176Sergio Zabeu 11214141846
650010012427003019795 T4CINTO COURO S/COST.3.2CM G00100000003300
7000000000000000000000000000000000000000000003300
75A VISTA 33,00
801800
Paulo
Curtir tópico
+ 0
Responder
Posts
26/06/2008
Paulo
Resolvi assim:
var
Listadir stringList;
begin
Listadir := TStringList.Create;
for i := ListaDir.Count-1 downto 0 do
if (ListaDir[i] = ´ ´) or
(ListaDir[i] = ´´) or
(ListaDir[i] = #13) then
ListaDir.Delete(i);
var
Listadir stringList;
begin
Listadir := TStringList.Create;
for i := ListaDir.Count-1 downto 0 do
if (ListaDir[i] = ´ ´) or
(ListaDir[i] = ´´) or
(ListaDir[i] = #13) then
ListaDir.Delete(i);
Responder
26/06/2008
Altingon
Eu iria responder sobre o #13 mas achei muita bola fora e não respondi....que bom que vc conseguiu cara...obrigado por postar a resposta...
Responder
Clique aqui para fazer login e interagir na Comunidade :)