Fórum Salvando arquivo TXT sem o comando rewrite #350629
14/12/2007
0
Olá pessoal! Eu estou querendo abrir um arquivo texto, alterá-lo e salvá-lo, sem ter que reescrevê-lo ou criá-lo novamente. Já tentei usar o reset e depois o write, writeln, mas quando uso o reset o modo de alteração do arquivo é obrigatoriamente read-only, não posso alterar. Alguma sugestão? Obrigado!
Danoan
Curtir tópico
+ 0
Responder
Posts
17/12/2007
Marcosrocha
Você pode usar TStringList
var
stFile: TStringList;
begin
stFile := TStringList.Create;
stFile.LoadFromFile(´c:\temp\arquivo.txt´);
stFile.Add(´Adicionei mais uma linha ´+FormatDateTime(´dd/mm/yyyy hh:mm´, Now));
stFile.Free;
end;
Responder
Gostei + 0
17/12/2007
Jakefrog
faz assim oh:
primeiro vc dá o assing né?
var
fTex : TextFile;
begin
AssignFile(fTex,ExtractFilePath(Application.ExeName)+´LOG.TXT´);
Append(fTex);
Writeln(fTex,´Testando!´);
Flush(fTex);
CloseFile(fTex);
primeiro vc dá o assing né?
var
fTex : TextFile;
begin
AssignFile(fTex,ExtractFilePath(Application.ExeName)+´LOG.TXT´);
Append(fTex);
Writeln(fTex,´Testando!´);
Flush(fTex);
CloseFile(fTex);
Responder
Gostei + 0
18/12/2007
Marcosrocha
o [b:45f474858d]jakefrog[/b:45f474858d] está certo, assim dá pra fazer também e é mais rápido quando se está escrevendo sobre arquivos de texto muito grandes. No meu caso eu indiquei a TStringList porque foi a primeira coisa que me veio em mente e é também fácil de manipular e trabalhar com ela. Mas o TextFile com WriteLn é a melhor solução.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)