Em vez de usar o AssignFile use um tStringList;
lArquivo := tStringList.Create;
lArquivo.LoadFromFile('web\GE.INFO');
For Contador := 0 to lArquivo.Count -1 do
Begin
if Copy(lArquivo.Strings[Contador],1,5) = '#date' then
lArquivo.Strings[Contador] := lArquivo.Strings[Contador] + wdata);
End;
lArquivo.SaveToFile('xxxx');
Arnaldo V. Scarin
[EMAIL PROTECTED]
[EMAIL PROTECTED]
[EMAIL PROTECTED]
[EMAIL PROTECTED]
[EMAIL PROTECTED]
-----Mensagem original-----
De: Wildner B. Ferreira [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 11 de outubro de 2004 09:48
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] Editar Arquivo TXT
Ola Pessoal estou precisando estar alterando um linha dentro de um arquivo
txt e não estou conseguindo pois estou lendo o arquivo mas não estou
conseguindo gravar pois acho que não estou pegando a lógica da coisa veja.
Assignfile(Arquivo,'web\GE.INFO');
Reset(Arquivo);
While not eof(Arquivo) Do begin
Readln(Arquivo,wlinha);
if Substring(wLinha,1,5) = '#date' then
Writeln(Arquivo,'#date='+wdata);
end;
closeFile(Arquivo);
O problema e que se utilizo o rewrite au invés de reset ele zera o arquivo .
Ai então minha duvida como fazer para alterar somente uma linha de um
arquivo txt.
Aguardo a ajuda de alguém que puder me ajudar.
_____
<http://www.3wnetcom.com.br/>
Wildner Bernardes Ferreira
Desenvolvimento Delphi / Firebird
<mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]
Av. Amazonas, 502 S. 98 CEP 38400-734 Uberlândia/MG
Fone: (34)3087 4931 Fax: 3211 2010 [EMAIL PROTECTED]
_____
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.775 / Virus Database: 522 - Release Date: 8/10/2004
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.775 / Virus Database: 522 - Release Date: 8/10/2004
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
