Чтение из файла

[pautina]

Здравствуйте Уважаемое сообщество.
Ни подскажете какой код мне использовать чтоб открыть текстовый файл, в цикле проити с 1 по последнюю строку этого файла, найти все временные метки в этом файле и вывести эти метки например в другой текстовый файл. Заранее большое спасибо.

[SERG1980]

Наверно удобней будет через TStringList и OpenDialog. А какая форма записи временных меток?

procedure TForm1.Button1Click(Sender: TObject);
var SourceST,DestST:TStringList;
    i:integer;
begin
 SourceST:=TStringList.Create;
 DestST:=TStringList.Create;
 if form1.OpenDialog1.Execute then SourceST.LoadFromFile(form1.OpenDialog1.FileName);
 for i:=0 to SourceST.Count-1 do
 begin
 //Здесь обработка файла и запись найденного в DestST 
 //....
 //....
 end;
 SourceST.Free;
 DestST.Free;
end;

[pautina]

Если честно то низнаю, программа генерирует текстовый файл ligfile.txt
Участок кода там такой
-Юг-О --АL--АL-г 23/01/2009 9:09:19

=================================== ===========================
| -=АА--КL | -ё---г--КL -=АА--КL | -=L-¦¬БгLЛ-КL -=АА--КL |
| Ю=АЕ-г--гЮ | Ю=АЕ-г, Б---/Г=А | Ю=АЕ-г, Б--- |
|-------------|---------------------|------------------------|
| -Б=¦ L-- N1 | 80.0 | 69989.4 |
| -Б=¦ L-- N2 | 0.0 | 571833.8 |
| -Б=¦ L-- N3 | 0.0 | 167899.1 |
| -Б=¦ L-- + | 0.0 | 32586.9 |
| ¦?- N1 | 0.0 | 10585.1 |
| ¦?- + | 30.5 | 158009.1 |
| ?Б=- N1 | 0.0 | 0.0 |
| ?Б=- N2 | 0.0 | 0.0 |
| ?Б=- + | 0.0 | 0.0 |
|------------------------------------------------------------|
| ¦L-Б- -+ | 0.8001 |
| ¦L-Б- ¦?- | 0.5980 |
| ¦L-Б- ?Б=- | 0.0000 |
=================================== ===========================
===================20/====================
-Юг-О --АL--АL-г 23/01/2009 9:09:22

=================================== ===========================
| -=АА--КL | -ё---г--КL -=АА--КL | -=L-¦¬БгLЛ-КL -=АА--КL |
| Ю=АЕ-г--гЮ | Ю=АЕ-г, Б---/Г=А | Ю=АЕ-г, Б--- |
|-------------|---------------------|------------------------|
| -Б=¦ L-- N1 | 80.0 | 69989.4 |
| -Б=¦ L-- N2 | 0.0 | 571833.8 |
| -Б=¦ L-- N3 | 0.0 | 167899.1 |
| -Б=¦ L-- + | 0.0 | 32586.9 |
| ¦?- N1 | 0.0 | 10585.1 |
| ¦?- + | 30.5 | 158009.1 |
| ?Б=- N1 | 0.0 | 0.0 |
| ?Б=- N2 | 0.0 | 0.0 |
| ?Б=- + | 0.0 | 0.0 |
|------------------------------------------------------------|
| ¦L-Б- -+ | 0.8001 |
| ¦L-Б- ¦?- | 0.5980 |
| ¦L-Б- ?Б=- | 0.0000 |
=================================== ===========================
-Юг-О --АL--АL-г 23/01/2009 9:09:23
В этом файле нужно подсчитать все временные метки, как сделать низнаю,

[SERG1980]

А временная метка это вот эта строка -Юг-О --АL--АL-г 23/01/2009 9:09:22 или нет?

[pautina]

да, та строка где есть дата и время. Нужно считать всё количество временных меток и записать их в другой файл. Какой участок кода использовать ни подскажете, этот правильный

unit pr1;

interface

uses
  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;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
  var SourceST,DestST:TStringList;
      i:integer;
begin
 SourceST:=TStringList.Create;
 DestST:=TStringList.Create;
 if form1.OpenDialog1.Execute then SourceST.LoadFromFile(form1.OpenDialog1.FileName);
 for i:=0 to SourceST.Count-1 do
begin
 //Здесь обработка файла и запись найденного в DestST 
 //....
 //....
 end;
 SourceST.Free;
 DestST.Free;
end;

end.

Что посоветуете

[SERG1980]

Можно так попробовать. Обработанный файл сохраняется тудаже где и ехе

[pautina]

Почему то в файле project1.dpr ругается на строку Application.MainFormOnTaskbar := True;

[SERG1980]

procedure TForm1.Button1Click(Sender: TObject);
var SourceST,DestST:TStringList;
    i:integer;
    s:string;
begin
 SourceST:=TStringList.Create;
 DestST:=TStringList.Create;
 if form1.OpenDialog1.Execute then SourceST.LoadFromFile(form1.OpenDialog1.FileName);
 for i:=0 to SourceST.Count-1 do
 begin
  s:=Copy(SourceST[i],Length(SourceST[i])-6,7);
  try
   strtotime(s);
   DestST.Add(SourceST[i]);
  except
  end;
 end;
 DestST.SaveToFile('112.txt'); 
 SourceST.Free;
 DestST.Free;
end;

[pautina]

Извините а Вы ни скажете, как изменить этот код чтобы выводились не только временные метки, а ещё и цыфры из таблицы, файл откуда нужно брать вр. метки и цыфры из таблицы logfile.txt прикрепил http://files.mail.ru/KMVYFB
Такой участок кода, ни подошёл

procedure TForm1.Button1Click(Sender: TObject);
var SourceST,DestST:TStringList;
    i:integer;
    s:string;
    s1:string;
begin
 SourceST:=TStringList.Create;
 DestST:=TStringList.Create;
 if form1.OpenDialog1.Execute then SourceST.LoadFromFile(form1.OpenDialog1.FileName);
 for i:=0 to SourceST.Count-1 do
 begin
  s:=Copy(SourceST[i],Length(SourceST[i])-6,7);
  s1:=Copy(SourceST[i],Length(SourceST[i])-6,8);
  try
   strtotime(s);
   strtoreal48(s1);
   DestST.Add(SourceST[i]);
  except
  end;
 end;
 DestST.SaveToFile('112.txt'); 
 SourceST.Free;
 DestST.Free;
end;

В чём здесь ошибка