Ajuda com Arquivo Texto

Question

Seguinte galeraAgrade�o a todos de cora��o pela enorme ajuda com minha outra duvidaagora tenho + uma duvida que parece ser sinistraeu tenho um arquivo ( JOB051.TXT ) que eu preciso pegar alguns dados ...

Eliasexner · Answer

Ol�

Se vc estiver usando um arquivo de parametros onde cada linha representa um determinado
parametro, vc poder� usar a rotina abaixo que identifica o valor de cada linha baseado
no titulo do parametro. por�m, o conte�do dever� estar separado do sinal de �=� do t�tulo

Ex: MATRICULA=0032533

segue...
procedure TMainForm.Button1Click(Sender: TObject);
var
Lista: TStringList;
CaptionW: TCaption;
begin
if FileExists(ExtractFilePath(ParamStr(0)) + �\Params.txt�) then
begin
Lista := TStringList.Create;
lista.LoadFromFile(ExtractFilePath(ParamStr(0)) + �\Params.txt�);
ShowMessage(lista.Text);
if Lista.IndexOfName(UpperCase(�matricula�)) <> -1 then
begin
CaptionW := Lista.Values[UpperCase(�matricula�)];
ShowMessage(CaptionW);
end;
if lista <> nil then lista.free;
end;
end;

caso vc n�o use uma linha para cada parametro, vc poderia fazer um loop no arquivo at� a linha 10 caso
ele esteja sempre nesta linha e ler o conte�do com a fun��o copy.

Espero ter ajudado

Massuda · Answer

O jeito mais simples, mas n�o o mais eficiente, � usar um TStringList...

var
  Texto: TStringList;
  S: string;
...
  Texto := TStringList.Create;
  Texto.LoadFromFile(�seu\arquivo\texto.txt�);

  // como TStringList numera as linhas a partir de 0,
  // para pegar a linha 10, use Texto[9]
  S := Copy(Texto[9], 9, 4);

  Texto.Free;
...

Topetebg · Answer

o arquivo tem umas 500 linhasna linha 1 tem o pagamento do carana linha 5 tem o nome do carana linha 8 tem o cpf do carana linha 10 a matriculadai ja vem outro cara abaixo de novo linha 1 apos a 10 anterior tem o pagamento do cara novona linha 5 apos a linha 10 anterior tem o pagamento do cara novoe etc...e abixo comeca tudo de novo com outro carae etcate acabar o arquivoso q naum � essa a ordem ta...os numeros da linha eu inventei foi so como exemplona verdade a matricula fica na linha 52 da posicao 65 ate a posicao 72era so pra ter uma ideiaeu disponibilizei uma copia do arquivo para vcs deem uma olhada e veja o q da pra ser feitoolha o link//www.megaupload.com/?d=3AJW2HNLVou explicar os campos q queroMATRICULA: linha 52 posicao 65 ate 72VLCM: linha 52 posicao 83 ate 85dai pula 55 linhas e repete o procedimento acimaMATRICULA: posicao 65 ate 72VLCM: posicao 83 a 85dai pula + 55 linha e continuaMATRICULA: 65 ate 72VLCM: 83 a 85e assim por diante ate acabar o arquivo TXTlembrando q cada matricula + VLCM em cada linha do outro arquivo de saidaou sejapula 52 linhas copia a matricula e vlcm para a linha 1 do outro arquivo textopula 55 linhas copia a matricula e vlcm para a linha 2 do outro arquivo textoPula + 55 linhas copia a matricula e vlcm para a linha 3 do outro arquivo textoassim ate acabar o arquivo txtblz? nada complicado...lembrando o link//www.megaupload.com/?d=3AJW2HNL...

Aroldo Zanela · Answer

Colega,Como era de se esperar em arquivos textos para troca de informa��es, o arquivo possui identificadores de registros. No caso, o identificador que interessa neste momento � o [b:b99625e359]C1[/b:b99625e359], ou seja, apenas os registros (linhas) com identificador [b:b99625e359]C1[/b:b99625e359] nas duas primeiras posi��es de cada linha dever�o ser avaliados.Fiz um exemplo utilizando um TButton (btn1) e um TMemo (mmo1) com o arquivo baixado no diret�rio recebe.[code:1:b99625e359]var Arquivo: TextFile;    LocalNome: string;    LinhaDados: string;begin  LocalNome := �c:recebejob051.txt�;  AssignFile(Arquivo, LocalNome);  Reset(Arquivo);  while not Eof(Arquivo) do  begin    Readln(Arquivo, LinhaDados);    if Copy(LinhaDados, 1, 2)=�C1� then    begin      mmo1.Lines.Add(Copy(LinhaDados, 65, 10));    end;  end;  CloseFile(Arquivo);end;[/code:1:b99625e359]...

Topetebg · Answer

nossa era exatamente isso que eu queriabrigadaum a todos... como sempre vc�s me ajudaram na minha angustia:Pvlw galera vc�s sao nota 10 :D...

F�rum Ajuda com Arquivo Texto #322531