Arquivo texto - quebra de linha
Sds!
Tenho um cliente usa um software de fechado que gera o arquivo texto sem as quebras de linhas.
Gostaria de saber como posso quebrar as linhas o arquivo texto.
Ex: abro arquivo pelo componentem Memo e em seguida clico num button que executa uma rotina que a cada 100 caracters e efetua um enter/return, quebrando a linha, e descedo para a próxima linha...
O tamanho dos campos estão padronizados.
Agradeço a todos!!!!
Tenho um cliente usa um software de fechado que gera o arquivo texto sem as quebras de linhas.
Gostaria de saber como posso quebrar as linhas o arquivo texto.
Ex: abro arquivo pelo componentem Memo e em seguida clico num button que executa uma rotina que a cada 100 caracters e efetua um enter/return, quebrando a linha, e descedo para a próxima linha...
O tamanho dos campos estão padronizados.
Agradeço a todos!!!!
Ricardoif
Curtidas 0
Respostas
Rjun
07/02/2008
Após o caracter que você deseja que seja o último, adicione #1310.
NovaLinha := Copy(Linha, 1, 100) + 1310;
GOSTEI 0
Ricardoif
07/02/2008
Beleza!!
O que eu não sei é como posicionar o cursor na coluna desejada
repeat
1.Más eu preciso posicionar o cursor na coluna 100 e aplicar a quebra de linha.
2. Next para a linha seguinte...
until ...
Agradeço a ajuda!!!
O que eu não sei é como posicionar o cursor na coluna desejada
repeat
1.Más eu preciso posicionar o cursor na coluna 100 e aplicar a quebra de linha.
2. Next para a linha seguinte...
until ...
Agradeço a ajuda!!!
GOSTEI 0