Привет!
Тут такая задача - есть бд тарификации тел. разговоров. В этой бд есть такие поля
RowMark i - означает тип пакета
abonent c(7) - кто звонил
date d - дата звонка
time c(5) - время
minutes i - минут от полуночи
talk_sec i - время разговора
abonent2 c(20) - набранный номер
Здесь важен RowMark вот в каком смысле. Дело в том, что пакеты, используемые для тарификации официально имеют значение 42316, но они так же дублируются еще какимто технологическим пакетом со значением уже 42317, который обычно создается следом за пакетом 42316. Проблема в том, что:
1) дублирование какбы "неточное", т.е. в дубль-пакете 42317 может отличаться длительность разговора на +-3 секунды, а так же время начала разговора может быть +1 минута (зависит восновном от случаев когда разговор начат в последние секунды минуты), причем секунды начала разговора не отмечаются нигде и никак, т.е. точность начала разговора есть до минуты.
2) иногда в бд попадают только дубль-пакеты с меткой 42317, а их "родителя" 42316 при этом может не быть и наоборот.
Задача.
Отбросить дубль-пакеты с меткой 42317, если в наличии есть оригинал с меткой 42316, учитывая неполное и неидеальное сходство. При этом должны остаться записи с меткой 42316 непродублированные с меткой 42317 и наоборот.
Я сделал следующим образом. В отдельную бд (dbf_42316) выбираю только записи с меткой 42316, т.к. их обычно меньше, а затем по полной базе (dbfTemp) делаю SCAN/LOCATE/DELETE:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
SELECT dbfTemp
SCAN FOR RowMark = 42317
SELECT dbf_42316
LOCATE FOR NOT DELETED();
AND Abonent = dbfTemp.Abonent;
AND Date = dbfTemp.Date;
AND (BETWEEN(Minutes, dbfTemp.Minutes- 1 ,dbfTemp.Minutes);
OR Minutes= 1439 AND dbfTemp.Minutes= 0 )
AND Abonent2 = dbfTemp.Abonent2;
AND BETWEEN(Talk_Sec,dbfTemp.Talk_Sec- 3 ,dbfTemp.Talk_Sec+ 3 )
IF FOUND()
DELETE
SELECT dbfTemp
DELETE
ENDIF
ENDSCAN
такой способ очень медленным оказался, оно и понятно.
Я размышлял над индексацией, но так и не пришел к определенному решению.
Непонятно как это можно оптимизировать - может подскажете?
спасибо.
вфп9
