[kamael]

Доброго времени суток! Есть одна (для меня) крупная проблема... нужна программа, которая считает определенные столбы в сумме, также был фильтр определенных чисел... т.е. есть такая таблица -

И 05.07.2010 15:05:53 0:01:54 92718 950175
И 13.07.2010 10:10:05 0:01:08 92224 250175
В 13.07.2010 10:11:32 0:00:50 92224 950175
И 15.07.2010 18:13:46 0:00:34 92998 450175
И 20.07.2010 8:42:24 0:00:30 92718 950175
В 20.07.2010 8:43:10 0:00:04 92718 550175
И 20.07.2010 8:43:28 0:00:46 92718 950175

надо чтобы она отсеивала значения "И" , 2 столбец и значения последнего столбца - отдельно со значениями в радиусе от 95000-95999 25000-25999 и так далее , отсеянное, которое осталось - из столбца 3 т.е. время - складывалось....
вот такая непростая задача.. (( если будут мысли - ответьте срочно надо! с меня пиво!

[Bars1992]

Сообщение от kamael

надо чтобы она отсеивала значения "И" , 2 столбец и значения последнего столбца - отдельно со значениями в радиусе от 95000-95999 25000-25999 и так далее , отсеянное, которое осталось - из столбца 3 т.е. время - складывалось....
вот такая непростая задача.. (( если будут мысли - ответьте срочно надо! с меня пиво!

обясните попотробней. Этап один отсееваем все значения с "И" это ясно, а потом что отсеивать? расталкуйте пожалуйста.

[Bars1992]

на форме размещаете 3 компонента: кнопку мемо и опен диалог.
насколько я понял то нужно в итоге вывести 2 переменные времени для двух промежутков значений последнего столбца. Если я чтото неправельно понял, скажите подправим

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
f,s:tstringlist;
i:integer;
dip1,dip2:ttime;
begin
if not opendialog1.Execute then exit;
F:=tstringlist.Create;
s:=tstringlist.Create;
f.LoadFromFile(opendialog1.FileName);
s.Delimiter:=' ';
for i:=0 to f.Count-1 do
 begin
 s.Clear;
 s.DelimitedText:=f[i];
 if s.Count<>6 then continue;
 if s[0]='И' then continue;
 if (strtoint(s[5])>950000 )and(strtoint(s[5])<950999)then dip1:=dip1+strtotime(s[2]);
 if (strtoint(s[5])>250000 )and(strtoint(s[5])<250999)then dip2:=dip2+strtotime(s[2]);
 end;
s.Free;
f.Free;
memo1.Lines.Add('dip1= '+timetostr(dip1)+' dip2= '+timetostr(dip2));
end; 


[Страдалецъ]

Эта задача решается совсем легко и приятно, если к текстовому файлу подключаться как к таблице БД. Вот почитайте: http://www.delphisources.ru/pages/fa...ii_driver.html

[kamael]

Сообщение от Bars1992

обясните попотробней. Этап один отсееваем все значения с "И" это ясно, а потом что отсеивать? расталкуйте пожалуйста.

отсеиваться должны несколько значений, 1,5 но в разных значениях.. т.е. будет как автоматизированный счетчик, который при нескольких фильтров будет суммировать 4 столбец Оо например фильтр:

Код:

И	05.07.2010	15:05:53	0:01:54	92718	950175
И	20.07.2010	8:42:24	0:00:30	92718	950175

будет работать по "И-92718" и считать 4 столбец как время разговора:
0:01:54 + 0:00:30 = 0:02:26 - бужет выводимой суммой на экране с примерным тестом - входящий трафик АТС№1

парни! огромное спасибо что откликнулись... очень рад даже.. в понедельник буду пробовать воплотить ваш код в жизнь!

[Bars1992]

Тогда мой код надо подредактировать

PHP код:

procedure TForm1.Button1Click(Sender: TObject); 
var 
f,s:tstringlist; 
i:integer; 
dip1,dip2:ttime; 
begin 
if not opendialog1.Execute then exit; 
F:=tstringlist.Create; 
s:=tstringlist.Create; 
f.LoadFromFile(opendialog1.FileName); 
s.Delimiter:=' '; 
for i:=0 to f.Count-1 do 
 begin 
 s.Clear; 
 s.DelimitedText:=f[i]; 
 if s.Count<>6 then continue; 
 if s[0]='И' then continue; 
 if (strtoint(s[5])>950000 )and(strtoint(s[5])<950999)then dip1:=dip1+strtotime(s[3]); 
 if (strtoint(s[5])>250000 )and(strtoint(s[5])<250999)then dip2:=dip2+strtotime(s[3]); 
 end; 
s.Free; 
f.Free; 
memo1.Lines.Add('dip1= '+timetostr(dip1)+' dip2= '+timetostr(dip2)); 
end; 


dip1 dip2 - 2 диапазона 6-ого столбца соответсвено

[kamael]

а ведь работает!!! =) ох емаё! куда пиво выслать ??? РЕСПЕКТ!!!

[Bars1992]

Сообщение от kamael

а ведь работает!!! =) ох емаё! куда пиво выслать ??? РЕСПЕКТ!!!

Пиво не надо лутче сок))) А вобще- ето довольно легкая задача так что ты никому ничто не должен)