ler uma linha txt e deletar

Question

caros amigos , estou precisando de uma ajuda pois n�o tenho ideia com fazer para o meu programinha ler todo arquivo txt depois se encontra o a linha que tenha uma data ele deleta da aquela para trazpo...

Siam · Answer

Acho que diretamente no arquivo txt n�o d� para fazer.Utilize um TStringList, execute LoadFromFile, fa�a as opera��es e depois execute SaveToFile....

Beto_martini · Answer

Para fazer direto do arquivo vc teria na verdade que salvar o conte�do em um outro arquivo.

Ex:

Abre arquivo 1
abre arquivo 2

l� arquivo 1 at� encontrar a data

� partir da�, grave o restante no arquivo 2.

Se n�o souber como fazer as opera��es entre em contato. Ok?

Fabiano G�es · Answer

[code:1:04e20fec40]procedure NewTxt( pathArq, Data: String );var Arquivo, NovoArq: TStringList;    i, Index: Integer;    linha: String;begin  Index := 0;  Arquivo := TStringList.Create;  NovoArq := TStringList.Create;  try    Arquivo.LoadFromFile(pathArq);    for i := 0 to Arquivo.Count - 1 do    begin      linha := Arquivo.Strings&#91;i&93;;      if copy(linha, 11, 06) = Data then      begin        index := i + 1;        Break;      end;    end;    for i := Index to Arquivo.Count - 1 do      NovoArq.Add(Arquivo.Strings&91;i&93;);    NovoArq.SaveToFile(pathArq);    ShowMessage(�concluido !!!�);  finally    FreeAndNil(Arquivo);    FreeAndNil(NovoArq);  end;end;[/code:1:04e20fec40]usar assim:[code:1:04e20fec40]NewTxt(�c:coleta.txt�, �060822�);[/code:1:04e20fec40]obs: se a sua condi��o � apenas a data �060822�, esta fun��o conta apartir da primeira que encontra.testa e posta se funcionou ou n�o !!!abra�o !!!...

Antseralves · Answer

Se n�o quiser fazer no mesmo arquivo use o metodo [b:bbe2d57456] Delete[/b:bbe2d57456].

procedure TForm1.DelData(PathArq,Data : string);

var S : TstringList;
I,Cont : integer;

begin
S := TStringList.Create;
S.LoadFromFile(PathArq);
Cont := S.Count;
I := 0;
while I < Cont do
begin
if Copy (S.Strings[I],1,8) = Data then
begin
S.Delete(I);
Dec(Cont);
end
else
Inc(I);
end;
S.SaveToFile(PathArq);
S.Free;
end;

Emerson1 · Answer

Fabiano G�esmuito obrigado deu certinho...agora eu vou pensar um jeito de o sistema olhar data do  dia - 30 e jogar la no codigo que vc me passouvaleu...

Fabiano G�es · Answer

emerson1,n�o entendi o que voc� dize com:[code:1:308e84ef8e]agora eu vou pensar um jeito de o sistema olhar data do dia - 30 e jogar la no codigo que vc me passou[/code:1:308e84ef8e] se voc� postar mais detales eu posso tentar te ajudar.abra�o !!![/code]...

Emerson1 · Answer

Fabiano G�esex: quando clicar no bot�o o sistema olhar a data do dia 29/08/2006 pega essa data (- 30)dias=060729  e colocar no parametroNewTxt(�c:coleta.txt�, �060729�);fabiano g�es desculpa se n�o fui claro.... mas ja agrade�o sua ajuda muito obrigado.........

Fabiano G�es · Answer

emerson1,descupe a demora, eu estava meio enrolado aqui no trampo.se voc� ainda n�o conseguiu a solu��o pra sua data-30 ai vai:[code:1:c283027b3c]NewTxt(�c:coleta.txt�, FormatDateTime( �yymmdd�, (Now-30) ) );[/code:1:c283027b3c]cara nem testei, teata ai depois post pra saber se funcionou;...

Emerson1 · Answer

Fabiano G�esdeu certo...muito obrigado......valeuuuuuu...

Fabiano G�es · Answer

Falowwww mano,se precisar tamo ai !!!!abraxxxx !!!...

F�rum ler uma linha txt e deletar #328007