ActiveDelphi

[marvazoler]

Olá galera blz?

Tenho um arquivo txt que contem várias linhas, e quero alterar os valores na posição pre-definada, quero alterar a data e a hora.
atraves de dois campos em um form:

txtdata
txthora

codigo data hora
1026456465 A12042010 15:00
1026456465 A12042010 15:00
1026456465 A12042010 15:00
1026456465 A12042010 15:00
1026456465 A12042010 15:00

o operador digita por exemplo no campo txtdata 13042010 e no campo txt hora ele digita 14:00.

então no arquivo é alterado e salvo.

Como eu faço isso?

Desde já agradeço

[gilsonnrodrigues]

ou ler td, mudar e salvar

ou abre com um nao textfile e vai para as possicoes e muda

[marvazoler]

Olá galera, ainda não achei a solução!!

tenho um arquivo chamado teste.txt, e nele contem várias linhas,
quero altera nas linhas as data em todo o aquivo txt, como eu faço?

12133 D12042010 H15:00
12134 D12042010 H15:00
12135 D12042010 H15:00
12136 D12042010 H15:00


Como eu faço para alterar a data via delphi?

Ou seja, tenho um campo que se chama txtdata, o operador
digita 24042010, então faz um loop em todo o arquivo alterando
a data que contem no campo txtdata!

[marvazoler]

Olá amigão obrigado pela atenção!!

seguinte quando dou F9 passa, quando executo no botão está dando erro chamado!!

I/O error 105, o que pode ser?

[rafmattos]

[marvazoler]

Sim amigão olha isso!!


procedure TForm1.Button1Click(Sender: TObject);
var arq: TextFile;
var linha: String;
begin
AssignFile ( arq, 'C:\teste.txt' );
Reset ( arq );
ReadLn ( arq, linha );
while not Eof ( arq ) do
begin
linha := Copy(linha,1,length(linha)-13)+ ' D24042010';
WriteLn( arq );
end;
CloseFile ( arq );
end;


o q pode ser?

[rafmattos]

entao ele nao encontrou esse arquivo c:\teste.txt

[gilsonnrodrigues]

o q eu disse?

deu certo não?

[marvazoler]

Camarada, olha deu erro!!



olha onde está dando o erro

var arq: TextFile;
var linha: String;
begin
AssignFile ( arq, 'C:\teste.txt' );
Reset ( arq );
ReadLn ( arq, linha );
while not Eof ( arq ) do
begin
linha := Copy(linha,1,length(linha)-13)+ ' D24042010';
WriteLn( arq );
end;
CloseFile ( arq );
end;


WriteLn( arq ); --Aqui o erro

I/O erro 105

o q pode ser?

[gilsonnrodrigues]

pq vc abriu ele pra leitura

Reset

use um tipo nao textfile q vc conseguirá fazer isso.

o textfile é pra log.
ele abre ou pra litura ou pra escrita, nunca os dois.

[marvazoler]

O que vc sugere, amigão?

[gilsonnrodrigues]

puts!!!


eu ja sujeri.

não?