Поиск числового значения в текстовом файле

[GazimagomedovM]

Здравствуйте. Помогите пожалуйста необразованному новичку. У меня есть формула, в которую надо из текстового файла найти и подставить значение справа от знака "=" (поиск будет осуществляться по левой части от знака равно), предварительно преобразовав значения в число отделив два знака справа запятой,
примерное содержание файла:
1010016431=5454545
1010018401=551212
1010019781=69548
1010019801=27445597
1010026431=1926537
1010028401=11661120
1010029781=1000322
1010029801=165790652
1010049801=30877500
1010078401=2521428
1010079781=343622
1010079801=904555470

Конкретно из приведённого куска файла нужно выбрать к примеру числовые значения 19265,37 + 116611,20 + 10003,22+1657906,52 (потому -что слева от знака равно имеются вхождение набора символов "1002")

Пожалуйста помогите. Заранее спасибо.

[Stilet]

Это контрольная? Если нет рекомендую либо TStringList'ом парсить либо что еще путевее работать с БД (кста некоторые провайдеры могут и с TXT файлами работать, вот только не помню какие)

[GazimagomedovM]

Да это контрольная. С БД никак нельзя, нужно именно с файлом текстовым. Спасибо.

[B_N]

Какой язык?

[puporev]

Для данного конкретного кусочка на Паскале это можно сделать так:

var f:text;
    s:string;
    s1:array[1..20]of string;
    s2:array[1..20]of double;
    n,i,j,c:integer;
    t,sum:double;
begin
assign(f,'znak_rav.txt');
reset(f);
n:=0;
while not eof(f) do
   begin
    n:=n+1;
    readln(f,s);
    s1[n]:=copy(s,1,(pos('=',s)-1));
    delete(s,1,pos('=',s));
    val(s,t,c);
    s2[n]:=t/100;
   end;
sum:=0;
for i:=1 to n do
if pos('1002',s1[i])>0 then
sum:=sum+s2[i];
writeln('summa=',sum:0:2);
readln
end.

[GazimagomedovM]

Delphi 6/0

[puporev]

То же самое на Делфи. Можно еще файл считать в Мемо для интереса.

procedure TForm1.Button1Click(Sender: TObject);
var f:textfile;
    s:string;
    s1:array[1..20]of string;
    s2:array[1..20]of double;
    n,i:integer;
    sum:double;
begin
assignfile(f,'znak_rav.txt');
reset(f);
n:=0;
while not eof(f) do
   begin
    n:=n+1;
    readln(f,s);
    s1[n]:=copy(s,1,(pos('=',s)-1));
    delete(s,1,pos('=',s));
    s2[n]:=strtofloat(s)/100;
   end;
sum:=0;
for i:=1 to n do
if pos('1002',s1[i])>0 then
sum:=sum+s2[i];
Edit1.text:='Summa = '+ floattostrF(sum,fffixed,10,2);
end;

end.