Um problema com StringList

24/06/2008

1

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?
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



Responder

Posts

26/06/2008

Paulo

Sobe


Responder

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);


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