Incluir linhas em um arquivo txt
Consigo criar um arquivo txt, a partir de uma tabela.
Só que quero, pegar este arquivo já existente, e acrescentar em seu final outros dados da mesma, ou de outra tabela..
Como estou fazendo, nao consigo acrescentar nenhuma linha em seu final, sempre crecrio o mesmo.
Na verdade eu quero :
1 - abrir o arquivo TXT já existente.
2 - ir para o seu final
3 - acrescentar mais linhas.
obrigado
Só que quero, pegar este arquivo já existente, e acrescentar em seu final outros dados da mesma, ou de outra tabela..
Como estou fazendo, nao consigo acrescentar nenhuma linha em seu final, sempre crecrio o mesmo.
Na verdade eu quero :
1 - abrir o arquivo TXT já existente.
2 - ir para o seu final
3 - acrescentar mais linhas.
obrigado
Edeson
Curtidas 0
Respostas
Basilio.sp
04/11/2003
Caro edeson,
Utilize um código como o abaixo:
var
Arquivo : TextFile; // ponteiro para o arquivo texto
begin
AssignFile (Arquivo, ´C:\Texto.txt´); // Atribui o arquivo ´C:\TEXTO.TXT´
//para o ponteiro Arquivo
Append (Arquivo); // Dessa maneira, o arquivo é aberto para escrita, já
// posicionado em seu final
...
// Restante de seu código
...
end;
Caso tenha mais dúvidas, envie-me um e-mail, que terei o maior prazer de lhe enviar um exemplo completo.
Caso queira me dizer se deu tudo certo, fico no aguardo de seu e-mail também.
Utilize um código como o abaixo:
var
Arquivo : TextFile; // ponteiro para o arquivo texto
begin
AssignFile (Arquivo, ´C:\Texto.txt´); // Atribui o arquivo ´C:\TEXTO.TXT´
//para o ponteiro Arquivo
Append (Arquivo); // Dessa maneira, o arquivo é aberto para escrita, já
// posicionado em seu final
...
// Restante de seu código
...
end;
Caso tenha mais dúvidas, envie-me um e-mail, que terei o maior prazer de lhe enviar um exemplo completo.
Caso queira me dizer se deu tudo certo, fico no aguardo de seu e-mail também.
GOSTEI 0