Alterar Linha em Arquivo

Question

Pesso ajuda �Pelo Amor de Deus�.......................................No meu trabalho eu tenho q pegar um disquete colocar no driveentrar no MS-DOS e entrar no edit para fazer umas altera��es noArquiv...

Amarildo · Answer

Ola topetebg, nao sei se consegui enter tudo que voce descreveu, mas vamos l�, voce possui um arquivo tipo .txt identifcado por esta extens�o, voce deseja alterar toda vez que voce recebe essas informa��es, mas voce esta tentando achar um outro meio para estar realizando essas opera��es, � isso sua d�vida? No aguardo por sua resposta.

Topetebg · Answer

[quote:cea7044066=�amarildo�]Ola topetebg, nao sei se consegui enter tudo que voce descreveu, mas vamos l�, voce possui um arquivo tipo .txt identifcado por esta extens�o, voce deseja alterar toda vez que voce recebe essas informa��es, mas voce esta tentando achar um outro meio para estar realizando essas opera��es, � isso sua d�vida? No aguardo por sua resposta.[/quote:cea7044066]exatamente...tenho bom conhecimento de delphi apesar de estar iniciando na programa��o+ ate hoje todos aplicativos que desenvolvi eram relacionados a banco de dados Accessou seja naum sei quase nada de manipula��o de arquivos de dadosse puder me ajudar eu agrade�o muito!!!vlw irm�o!...

Bon Jovi · Answer

No Delphi vc pode usar as fun��es Copy e Pos. D� uma olhada no Help sobre elas. Vai a� um exemplo. N�o validei, teste.

function TForm1.Altera(Linha: string): string;
var
  AnoMes: string;
  Ano, Mes: integer;
  ParteInicial, ParteFinal: string;
begin
  ParteInicial := Copy(Linha, 1, 8);
  ParteFinal := Copy(Linha, 13, Length(Linha));

  AnoMes := Copy(Linha, 9, 4);
  Ano := StrToInt(Copy(AnoMes, 3, 2));
  Mes := StrToInt(Copy(AnoMes, 1, 2));

  //Se for sempre ano 2000. Senao fa�a um if!
  Ano := Ano + 2000;

  Result := ParteInicial + FormatFloat(�0000�, Ano) + FormatFloat(�00�, Mes) + ParteFinal;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  Arquivo: TStringList;
begin
  Arquivo := TStringList.Create;
  try
    Arquivo.LoadFromFile(�c:\teste.txt�);
    for i := 0 to Arquivo.Count - 1 do
      Arquivo[i] := Altera(Arquivo[i]);
    Arquivo.SaveToFile(�c:\teste_alterado.txt�);
  finally
    Arquivo.Free;
  end;
end;

Topetebg · Answer

minha unit ta assim:[quote:4921a8d25e]unit ManutUnit;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    Button1: TButton;    procedure Button1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementationfunction TForm1.Altera(Linha: string): string; var   AnoMes: string;   Ano, Mes: integer;   ParteInicial, ParteFinal: string; begin   ParteInicial := Copy(Linha, 1, 8);   ParteFinal := Copy(Linha, 13, Length(Linha));   AnoMes := Copy(Linha, 9, 4);  Ano := StrToInt(Copy(AnoMes, 3, 2));   Mes := StrToInt(Copy(AnoMes, 1, 2));   //Se for sempre ano 2000. Senao fa�a um if!   Ano := Ano + 2000;   Result := ParteInicial + FormatFloat(�0000�, Ano) + FormatFloat(�00�, Mes) + ParteFinal; end;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var   i: integer;   Arquivo: TStringList; begin   Arquivo := TStringList.Create;   try     Arquivo.LoadFromFile(�c:teste.txt�);     for i := 0 to Arquivo.Count - 1 do       Arquivo := Altera(Arquivo);     Arquivo.SaveToFile(�c:teste_alterado.txt�);   finally     Arquivo.Free;   end; end;end.[/quote:4921a8d25e]porem naum funcionou :([error]ManutUnit.pas(23): Undeclared identifier: �Altera�[error]ManutUnit.pas(29): Undeclared identifier: �Linha�[error]ManutUnit.pas(30): Incompatible types[error]ManutUnit.pas(30): Incompatible types[error]ManutUnit.pas(32): Incompatible types[err...

Topetebg · Answer

Desculpa...era uma coisinha muito simplesem function form1.Altera(.....so tirei o form1 ficoufunction Altera(...funcionou perfeitamentevlw amigo...vou estudar o Algoritimo que me enviou pra me aprofundar +vlwwwwwwwwwwww=***...

F�rum Alterar Linha em Arquivo #321797