Ultima Linha de Arq *.txt

Question

Boa tarde, Estou precisando de uma sugest�o, tenho um arquivo txt no seguinte formato:[quote:968955ab17]118048426Maquina numero:  557Programa A  21P  39 0 24  4 04 1215  1 4561 1076   1  10C1076 9382 ...

Tinorj · Answer

O que pode ser feito � carregar o arquivo texto para um TStrings e capturar o valor da �ltima linha

Ex:

procedure btnCapturarDataClick(Sender: TObject);
var
  Conteudo: TStrings;
  Arquivo, UltLinha: String;
  NumLinhas: Integer;
begin
  if not OpenDialog1.Execute then
    Exit;

  Conteudo := TStrings.Create;

  try
    try
      Arquivo := OpenDialog1.FileName;
      Conteudo.LoadFromFile(�C:\SeuArquivo.TXT�);
      NumLinhas := Conteudo.Count;

      UltLinha := Conteudo[NumLinhas - 1]; //Conteudo ser� U03-05-2004
    except
      ShowMessage(�Ocorreu um erro�);
    end;
  finally
    Conteudo.Free;
  end;
end;

Espero ter ajudado.

Fer_nanda · Answer

Opa!! Ajudou sim, valeu :wink:...

Fer_nanda · Answer

Mais uma dificuldade encontrada...Gente, os campos q preciso ler est�o todos numa mesma linha, s� q eles n�o seguem um padr�o de posi��es, eles s� s�o separados por espa�os em branco, algu�m sabe se existe alguma fun��o no delphi q leia um peda�o da string (at� o espa�o em branco) e jogue numa vari�vel esse conte�do?Em PHP eu sei q existe, a fun��o se chama (acho) split(variavel, char_separador), ela funciona lendo os campos at� encontrar o �char_separador� e vai jogando para um vetor o conte�do.Eu entendo q fazer esse tipo de tratamento n�o � t�o complicado, mas se existe fun��o pra isso... ajuda bastante.Obrigada...

F�rum Ultima Linha de Arq *.txt #229612