фильтрование базы с большим количеством записей

Форум » Clipper » фильтрование базы с большим количеством записей » Ответить

фильтрование базы с большим количеством записей

SergeyKorotun: clipper 5.01 есть база следующей структуры: id n 7 name character 42 В этой базе более миллиона записей, name не повторяется. В get поле вводится несколько символов, потом после нажатия какой то комбинации клавиш выводится только та часть записей базы, в которых первые символы поля name совпадают с введенными в поле get. Так вот если применить set filter to. то фильтрация продолжается очень продолжительное время и поэтому для базы с большим количеством записей не подходит. Даже если дождаться и начать двигаться по записям, то переход от записи к записи не замедляется, так как база отсортирована по name. но когда с первой отображенной записи шагнуть выше или после последней отображенной шагнуть вниз - снова большая задержка. Причина задержек мне понятна. Вопрос: чем заменить set filter to? Переписывать нужные записи в массив тоже не подойдет, так как при небольшом количестве введенных символов в get поле количество записей, подходящих под критерий выборки может превысить максимальный размер массива.

Ответов - 53, стр: 1 2 3 All

Pasha: Вместо set filter to Name=cName надо использовать scope: команду set scope to cName или функцию OrdScope(0, cName) OrdScope(1, cName) Если используется clipper 5.2, то эти средства есть в rdd comix Если clipper 5.3 - то они есть и в обычных rdd dbfcdx/dbfntx Вместо scope можно просто использовать выборку: dbSeek(cName) while ! eof() .and. Name = cName ... skip enddo

Haz: Вместо фильтра в данном случае можно использовать условную индексацию, тормоза при перемещении по записям точно не будет

SergeyKorotun: Pasha пишет: Вместо set filter to Name=cName надо использовать scope: команду set scope to cName или функцию OrdScope(0, cName) OrdScope(1, cName) У меня Clipper 5.01 В NG не нашел ни SET SCOPE ни OrdScope Программу хотя и объемную надо написать, но одну, не хотелось бы разбираться с новыми версиями клиппера Если используется clipper 5.2, то эти средства есть в rdd comix Если clipper 5.3 - то они есть и в обычных rdd dbfcdx/dbfntx Вместо scope можно просто использовать выборку: dbSeek(cName) while ! eof() .and. Name = cName ... skip enddo А что внутри цикла? Создать временную базу? Неподходящие под фильтр записи должны быть скрытыми

SergeyKorotun: Haz пишет: Вместо фильтра в данном случае можно использовать условную индексацию, тормоза при перемещении по записям точно не будет А можно поподробнее и с примером. И если возможно, то для клиппер 5.01

Haz: Озадачил поподробнее это наверное так: вместо SET FILTER TO (cExp) используй INDEX ON Name FOR (cExp) , где cExp - условие фильтра. Синтаксис команды INDEX есть в той же NG. Индекс по базе c двумя полями построиться достаточно быстренько, в него попадут только записи удовлетволяющие условию. Кстати что значит "так как база отсортирована по name" ? командой SORT ? Если так то это лишний тормоз, т.к. индекс уже выстроит тебе порядок записей

Pasha: Haz пишет: Индекс по базе c двумя полями построиться достаточно быстренько эээ.. по миллиону записей ? Да и сколько же таких индексов понадобится, для каждой комбинации ввода в Get ? При каждом нажатии клавиши молотить миллион записей для создания индекса по условию, который не нужен, ведь индекс по name и так есть Это не наш метод (c) Если scope не поддерживаются в 5.01, тогда уже лучше определить навигационные блоки кода для tbrowse. Их есть у меня, только надо адаптитовать компиляцию под 5.01, давно я с ним дело не имел

PSP: Проще Клиппер 5.3 скопировать.

СевДон: Сделать свой Browse либо создать TBrowse-объект с блоками для навигации: bRange := {|| cFind == имя_поля } // это пример (укажите Ваше условие) bGoTop := {|| dbseek( cFind ) } bGoBottom := {|| FindBottom( cFind , bRange)} // поиск последней записи по условию при наличии индекса по символьному полю func FindBottom(Key,bRange) local nR := recno(), xKey := substr(Key,1,len(Key)-1)+chr(asc(substr(Key,-1))+1) dbseek(xKey) if !eof() ; dbskip(-1) ; endif if eof() .or. ! eval(bRange) // не попали ! dbgoto(nR) do while eval(bRange) // мелкими прыжками dbskip() enddo dbskip(-1) endif retu nil ЗЫ Индекс по симв. полю надо приводить к верхнему/нижнему регистру и, следовательно, переменную-ключ после Get`a тож надо привести к выбранному регистру при передаче в коды поиска и сравнения

Pasha: СевДон пишет: Сделать свой Browse либо создать TBrowse-объект с блоками для навигации: Я это и имел в виду, только надо еще определить skipblock Вот мои процедуры, попробуйте их собрать с 5.01 Параметры: bIndExp: индексое выражение, либо блок кода, который его вычисляет, либо массив {xTop, xBottom} bFilter - дополнительный фильтр (необязательно) nOrder - номер индекса (необязательно) Пример использования: oB:GoTopBlock := {|| mGoTop(cName)} oB:GoBottomBlock := {|| mGoBottom(cName)} oB:SkipBlock := {|n, x| imSkipper(n, cName)} #translate ISARRAY( <v1> ) => ( valtype( <v1> ) == "A" ) #translate ISBLOCK( <v1> ) => ( valtype( <v1> ) == "B" ) #translate ISCHARACTER( <v1> ) => ( valtype( <v1> ) == "C" ) #translate ISDATE( <v1> ) => ( valtype( <v1> ) == "D" ) #translate ISLOGICAL( <v1> ) => ( valtype( <v1> ) == "L" ) #translate ISMEMO( <v1> ) => ( valtype( <v1> ) == "M" ) #translate ISNUMBER( <v1> ) => ( valtype( <v1> ) == "N" ) oB:GoTopBlock := {|| mGoTop(bIndExp, bFilter, nOrder)} oB:GoBottomBlock := {|| mGoBottom(bIndExp, bFilter, nOrder)} oB:SkipBlock := {|n, x| imSkipper(n, bIndExp, bFilter, nOrder)} Function mGoTop(bIndExp, bFilter, nOrder) // ------------------------------------------------------------- // Перемещение на первую запись по фильтру // ------------------------------------------------------------- Local uIndExp, xIndExp, Released := .f., nOrdSave, lC if bIndExp == nil dbGoTop() else if nOrder # nil nOrdSave = IndexOrd() dbSetOrder(nOrder) endif uIndExp = if(IsBlock(bIndExp), EVAL(bIndExp), bIndExp) if ! IsArray(uIndExp) xIndExp = uIndExp if xIndExp # nil dbSeek(xIndExp) else dbGoTop() endif else xIndExp = uIndExp[2] dbSeek(uIndExp[1], .t.) lC = .f. endif endif while ! Eof() .and. CheckIndex(xIndExp, lC) IF bFilter == nil .or. EVAL(bFilter) Released = .t. EXIT ENDIF dbSkip() enddo if ! Released dbGoto(0) endif if nOrdSave # nil dbSetOrder(nOrdSave) endif Return nil Function mGoBottom(bIndExp, bFilter, nOrder) // ------------------------------------------------------------- // Перемещение на последнюю запись по фильтру // ------------------------------------------------------------- Local uIndExp, xIndExp, Released := .f., nOrdSave, lC if bIndExp == nil dbGoBottom() else if nOrder # nil nOrdSave = IndexOrd() dbSetOrder(nOrder) endif uIndExp = if(IsBlock(bIndExp), EVAL(bIndExp), bIndExp) if ! IsArray(uIndExp) xIndExp = uIndExp if xIndExp # nil dbSeekLast(xIndExp) else dbGoBottom() endif else xIndExp = uIndExp[1] dbSeekLast(uIndExp[2], .t.) lC = .t. endif endif while ! Bof() .and. ! Eof() .and. CheckIndex(xIndExp, lC) IF bFilter == nil .or. EVAL(bFilter) Released = .t. EXIT ENDIF dbSkip(-1) enddo if ! Released dbGoto(0) endif if nOrdSave # nil dbSetOrder(nOrdSave) endif Return nil Function mSkipper(n, bIndExp, bFilter, nOrder) // ------------------------------------------------------------- // Перемещения по файлу на количество записей n // ------------------------------------------------------------- Local uIndExp, nRet := 0, nRec := RecNo(), xIndExp1, xIndExp2, nOrdSave Local lC if bIndExp # nil if nOrder # nil nOrdSave = IndexOrd() dbSetOrder(nOrder) endif uIndExp := if(IsBlock(bIndExp), EVAL(bIndExp), bIndExp) if ! IsArray(uIndExp) xIndExp1 := xIndExp2 := uIndExp else xIndExp1 = uIndExp[1] xIndExp2 = uIndExp[2] lC := (n < 0) endif endif if n < 0 while nRet > n if Eof() .and. LastRec() > 0 mGoBottom(uIndExp, bFilter,,) else dbSkip(-1) endif if Eof() .or. Bof() .or. ! CheckIndex(xIndExp1, lC) dbGoto(nRec) if bFilter # nil Eval(bFilter) endif Exit endif if bFilter == nil .or. Eval(bFilter) nRec = RecNo() nRet -- endif enddo elseif n > 0 while nRet < n dbSkip() if Eof() .or. ! CheckIndex(xIndExp2, lC) dbGoto(nRec) if bFilter # nil Eval(bFilter) endif Exit endif if bFilter == nil .or. Eval(bFilter) nRec = RecNo() nRet ++ endif enddo elseif bFilter # nil Eval(bFilter) endif if nOrdSave # nil dbSetOrder(nOrdSave) endif Return nRet Function CheckIndex(xIndExp, lC) // ------------------------------------------------------------- // Проверка фильтра по индексному выражению // ------------------------------------------------------------- Local l, xKey if xIndExp == nil l = .t. else xKey := &(IndexKey()) if lC == nil if IsDate(xKey) .and. IsCharacter(xIndExp) l := (DTOS(xKey) = xIndExp) else l := (xKey = xIndExp) endif else l := if(lC, (xKey >= xIndExp), (xKey <= xIndExp)) endif endif Return l Function dbSeekLast(xExpr, lC, nOrd) // ------------------------------------------------------------- // Находит последнюю запись по ключевому выражению xExpr // Возвращает: // Логическое значение (найдена или нет). // ------------------------------------------------------------- Local xSeek, x, cc, nc, nOldOrd Local cIndex := IndexKey() if nOrd # nil .and. (nOldOrd:=IndexOrd()) # nOrd dbSetOrder(nOrd) endif if ValType(xExpr) == 'C' if len(xExpr) == 0 dbGoBottom() Return ! Eof() endif xSeek := incStr(xExpr) else //IF ValType(xExpr) == 'N' xSeek := xExpr + 1 endif dbSeek(xSeek, .t.) dbSkip(-1) x := &cIndex if lC == nil if ! (if(ValType(x) == 'D' .and. ValType(xExpr) == 'C', DTOS(x), x) = xExpr) dbGoto(0) endif else if x > xExpr dbGoto(0) endif endif if nOrd # nil .and. nOrd # nOldOrd dbSetOrder(nOldOrd) endif Return ! Eof() Function IncStr(cStr) Local ser, c for ser := len(cStr) to 1 step -1 c := Chr(Asc(Substr(cStr, ser, 1)) + 1) cStr := Stuff(cStr, ser, 1, c) if c # Chr(0) exit endif next Return cStr

Haz: Согласен с СевДон и Pasha, для отображения в бровсе предложенный вариант оптимален. Я же предложил самый простой и возможно - единственно приемлемый для SergeyKorotun исходя из его комментариев к задаче. Pasha пишет: эээ.. по миллиону записей ? Да и сколько же таких индексов понадобится, для каждой комбинации ввода в Get ? При каждом нажатии клавиши молотить миллион записей для создания индекса по условию, который не нужен, ведь индекс по name и так есть Это не наш метод (c) Проверил, на миллион записей индекс строится 4 секунды. Приемлемое время для ожидания, да и не на каждое нажатие, а по "какой -то" комбинации, и про индекс по Name не уточнялось ( есть только "отсортировано" ), и как потом выборку эту обрабатывать будут тоже не известно. Индекс потребуется один, после нажатия заветной комбинации , старый индекс рушим, новый строим . Да и навыки программирования ( в том числе и броуз объектов ) у топикстартера - неизвестны. В любом случае, решение предложенное СевДон и Pasha многим на форуме будет полезно. PS. Только прошу "меня за советскую власть не агитировать" , на клиппере подобные проблемы когда-то решал через Sx_WildSeek() - SIXRDD , на харбуре - через SQL запросы.

Pasha: Haz пишет: Проверил, на миллион записей индекс строится 4 секунды Так тачка наверное шустрая, да и локально. Если так быстро индекс строится, то и обычный фильтр так же быстро должен работать. Ведь построение индекса - это та же выборка всех записей файла, которая используется и для фильтра

Pasha: К тому же 5.01 не поддерживает условную индексацию, так что это в любом случае не вариант

Haz: Pasha пишет: К тому же 5.01 не поддерживает условную индексацию, так что это в любом случае не вариант а вот это аргумент, однако

Vlad04: Есть у меня библиотека SIXrdd к Clipper 5.01. Программу хотя и объемную надо написать, но одну, не хотелось бы разбираться с новыми версиями клиппера Но если уж переделывать программу , то лучше сразу на Харбор.Много другого хорошего получишь.

СевДон: Судя по условиям осмелюсь предположить что эта база содержит список, например, матценностей с идентификаторами и задача состоит в отсеве похожих записей по условию для последующей ВИЗУАЛЬНОЙ выборки оператором (с пометкой) и передаче этих записей в др.документ. Если это так предлагаю не фильтровать базу а делать контекстный поиск первой записи по условию и дальше пусть оператор выполняет свою работу. 1. на нижней части рамки броуза сделать строку ввода и по нажатию любой цифро-буквенной клавишы формировать строку поиска и делать seek, и сразу обновлять брауз 2. если искомая комбинация не найдена можно бибикнуть т.е. если надо найти "Пиво светлое Опупенное" то оператор уже после ввода 4 букв попадет в раздел ПИВО и, например, светлого почемуто нет то можно переходить к поиску следующей позиции накладной, т.е. вводить новую строку поиска, а если есть то оператор будет шагать вниз пока не найдет шо надо или пока ПИВО не закончится. Таким образом не тратиться время на выборку, переход на первую запись произойдет АРХИБЫСТРО, а выход за пределы "фильтра" оператор и сам увидит ЗЫ чёто пример с ПИВОМ не совсем удачен -- организм стал быстро пересыхать

SergeyKorotun: СевДон пишет: Судя по условиям осмелюсь предположить что эта база содержит список, например, матценностей с идентификаторами и задача состоит в отсеве похожих записей по условию для последующей ВИЗУАЛЬНОЙ выборки оператором (с пометкой) и передаче этих записей в др.документ. Матценностей наверно столько не существует. Это база с списком всех фамилий Украины. Передать в get поле надо только одну запись, визуально выбранную оператором из каким-то образом отфильтрованной базы. В базе должны отображаться только те записи, у которых первые символы фамилий совпадают с теми, что введены в get поле. Фамилии, не удовлетворяющие условиям фильтрации, не должны быть видимыми. INDEX ON есть в NG для клиппер 5.01, а INDEX ON ... FOR нет Я не переделываю программу, а пишу новую. Существует официальная программа на Фокспро, но очень неудобная в использовании. Хотя отфильтрованный справочник фамилий высвечивается практически мгновенно. Справочники обновляются централизовано. Но я могу делать с ними что угодно, так как работаю с их копиями. То есть после копирования могу например отсортировать. Последней проге, написанной мной на клиппере лет десять. TBrowse тогда не освоил. И сейчас использую dbedit() Переход на клиппер версии выше 5.01 нежелателен в связи с англоязычным NG. Но если реализовать выборку на 5.01 не удастся, то лучше перейду на 5.х, чем на 5.01 осваивать tbrowse Индексация базы каждый раз перед вызовом из get поля не подходит, так как продолжительность индексации сделает работу с программой некомфортной.

PSP: SergeyKorotun пишет: Я не переделываю программу, а пишу новую. Существует официальная программа на Фокспро, но очень неудобная в использовании. Ё-маё! Дык, делайте на Harbour. Там все есть, что вам нужно. Сразу сделаете с OrdScope и всё...

SergeyKorotun: PSP пишет: Ё-маё! Дык, делайте на Harbour. Там все есть, что вам нужно. Сразу сделаете с OrdScope и всё... процентов 90 уже написано. Если б вы предложили делать, ну например, на оракле, возможно б и начал изучать с нуля. Но заставлять изучать Harbour, это все равно что заставлять фирму по производству телевизоров усовершенствовать черно-белый телевизор. Или я заблуждаюсь? Тогда дайте ссылку на нормальную доку по Harbour

PSP: SergeyKorotun пишет: процентов 90 уже написано. Ничего переписывать не надо. Но заставлять изучать Harbour, это все равно что заставлять фирму по производству телевизоров усовершенствовать черно-белый телевизор. Это - тот же Клиппер. http://harbour-project.org/ В этом форуме: http://clipper.b.qip.ru/?0-4 Все, что есть в Клиппер 5.3 (а уж тем более 5.01), есть в Harbour. И даже больше.

Andrey: SergeyKorotun пишет: Или я заблуждаюсь? Тогда дайте ссылку на нормальную доку по Harbour Заблуждаешься... Бери и пользуйся.... http://clipper.b.qip.ru/?1-4-0-00000515-000-0-0-1267900828

AlexMyr: SergeyKorotun пишет: Это база с списком всех фамилий Украины Пенсионный фонд, налоговая инспекция?

Vlad04: SergeyKorotun пишет: Существует официальная программа на Фокспро, но очень неудобная в использовании. Хотя отфильтрованный справочник фамилий высвечивается практически мгновенно. Подозреваю, что Фокспро использует запросы. Я то же при формировании выборок, отчетов использую запросы, которые можно формировать в ADSRDD. Хотя меня наши"корифеи" освистали, считаю такую возможность очень удобной и достаточно быстрой.

СевДон: SergeyKorotun пишет: Индексация базы каждый раз перед вызовом из get поля не подходит (пере)индексация выполняется в сл.случаях: 1. при отсутствии индекса (первый запуск системы) 2. при обнаружении некорректного завершения предыдущего сеанса задачи 3. из задачи как профилактика (в случае предположения о разрушении индекса, редко но бывает) моё предложение о замене выборки на быстрый поиск 1й записи основывается на том, что оператор всё равно будет искать визуально треб. запись и терять время на выборку -- эт лишнее. например, если надо найти Иванищенко, достаточно ввести Иван (а это и так надо будет делать) и дальше оператор скролингом вниз будет высматривать нужное фамилиё. и если он увидит на очередном экране, например, Кабанов он и так поймёт что поиск(выборка) не удался.

SergeyKorotun: Andrey пишет: цитата: Или я заблуждаюсь? Тогда дайте ссылку на нормальную доку по Harbour Заблуждаешься... Бери и пользуйся.... http://clipper.b.qip.ru/?1-4-0-00000515-000-0-0-1267900828 Не нашел там доку по функциям, командам, ... Harbour

PSP: SergeyKorotun пишет: Не нашел там доку по функциям, командам, ... Harbour Все так же, как и в Клиппере. Просто компилируй свои исходники Харбором и получай 32-разрядное Win-приложение.

SergeyKorotun: PSP пишет: Все так же, как и в Клиппере. Просто компилируй свои исходники Харбором и получай 32-разрядное Win-приложение. Проблема в том, что в клиппер 5.01 недостаточно функций для реализации поставленной задачи. А русскоязычного NG для клиппер 5.3 не нашел. Помогите ссылками или бросьте на мой ящик korotun_sn@mail.ru. А получится дос или вин приложение, не столь важно. А возможно с вин приложением будут проблемы с украинскими буквами. Используется keyrus

PSP: Русских у меня нет. А английская доступна, к примеру, вот так: http://www.ousob.com/ng/53guide/

SergeyKorotun: СевДон пишет: моё предложение о замене выборки на быстрый поиск 1й записи основывается на том, что оператор всё равно будет искать визуально треб. запись и терять время на выборку -- эт лишнее. например, если надо найти Иванищенко, достаточно ввести Иван (а это и так надо будет делать) и дальше оператор скролингом вниз будет высматривать нужное фамилиё. и если он увидит на очередном экране, например, Кабанов он и так поймёт что поиск(выборка) не удался. Дело в том что в программе не один справочник с большим количеством записей. И если в справочнике фамилий двух одинаковых нет, то в справочнике населенных пунктов сколько угодно. И прокрутив немного далее записи, можно выбрать искомый населенный пункт, но с другого района. Поэтому неподходящие записи не должны быть видимыми(другой области и другого района). А справочник с фамилиями был дан для примера. Не один здравомыслящий оператор не будет набирать только часть фамилии, чтобы затем несколько букв выбрать из (1 100 000 записей/30 букв алфавита/4 введенных в вашем примере букв (ИВАНищенко))=около 10 000 записей. Ему проще добрать ИЩЕНКО

SergeyKorotun: PSP пишет: Русских у меня нет. А английская доступна, к примеру, вот так: http://www.ousob.com/ng/53guide/ Английский NG устанавливается при инсталляции клиппер 5.3, подошла б дока в любом виде на русском языке

AlexMyr: PSP пишет: SergeyKorotun пишет: цитата: процентов 90 уже написано. Ничего переписывать не надо. Оптимальный вариант - Harbour. SergeyKorotun пишет: Но заставлять изучать Harbour, это все равно что заставлять фирму по производству телевизоров усовершенствовать черно-белый телевизор. Или я заблуждаюсь? Скорее всего заблуждаетесь. Вот Ваша цитата: SergeyKorotun пишет: Я не переделываю программу, а пишу новую. Существует официальная программа на Фокспро, но очень неудобная в использовании. Что Вы делаете? Правильно - усовершенствуете. Так что определитесь что Вам надо.

SergeyKorotun: AlexMyr пишет: Что Вы делаете? Правильно - усовершенствуете. Так что определитесь что Вам надо. В базе есть вся информация о клиенте. Допустим в клиента изменился почтовый индекс. Очень распространенный случай. Был шестизначный, стал пятизначный. В официальной программе все надо ввести вручную (форма, которую заполняет клиент занимает весь лист формата А4, пол листа - вопросы, на второй половине - ответы). Правда в некоторые поля можно занести значения, выбрав их из справочника. Но далеко не во все поля. И чтобы добраться до справочника, нужно нажать несколько клавиш. В некоторые поля значения проще было бы занести вручную, но в программе реализован только выбор из справочника. Например к полю кем выдан паспорт (70 символов) справочник вообще не подключен. И вот для того чтобы изменить один почтовый индекс, нужно ввести пол листа А4 текста. Пишу отдельную программу, которая использует копии справочников из официальной программы (обновляются раз в сутки). После обновления копирую необходимые базы в свою программу и в этой программе ввожу заявления клиентов на протяжении дня. Вечером подливаю набранные заявления в базу официальной программы, передаю их в центр, а свою базу от введенных за день заявлений очищаю. У каждого клиента есть уникальный номер. После его ввода в моей программе все данные клиента заполняются в поля автоматически и оператору остается только для вышеприведенного примера изменить только почтовый индекс. Еще пол-года назад прога стояла на 133 пентиуме, сейчас на 700 целероне 128 ОЗУ, вин98

Haz: SergeyKorotun пишет: Пишу отдельную программу, которая использует копии справочников из официальной программы (обновляются раз в сутки) Задача в целом понятна, но харбур все же попробуйте, функционал с клиппер 5.0 не сравнить просто. Кстати как подливаете ? если оригинал на фоксе, значит своими вливами рушите ему все индексы ...

SergeyKorotun: Haz пишет: Задача в целом понятна, но харбур все же попробуйте, функционал с клиппер 5.0 не сравнить просто. Кстати как подливаете ? если оригинал на фоксе, значит своими вливами рушите ему все индексы ... Добавляться записи будут в две-три базы. В этих базах много записей не бывает (не больше тысячи), так как это база промежуточная и после поступления квитанции из центра записи в основной базе обновляются соответствующими записями из промежуточной, а из промежуточной удаляются. Переиндексация много времени не займет. Так что поначалу придется переиндексировать с офисной программы несколько баз. Там есть такая возможность. Потом или сам разберусь как в фокспро создать индекс или кого-то попрошу написать *.app. В батник включу сначала свою программу, потом *.app и все будет делаться автоматом. Я не могу перейти на харбур или хотя бы на клиппер 5.3, не имея документации на русском языке. Выкручусь как то и клиппером 5.01. Просто, поскольку планирую поделиться программой с коллегами по области, не хотелось чтобы она хотя бы в чем-то уступала официальной. И не по теме просьба: дайте нормальных настроек функции color("x/x,x/x,x/x,x/x,x/x") для get объектов.

Andrey: SergeyKorotun пишет: Я не могу перейти на харбур или хотя бы на клиппер 5.3, не имея документации на русском языке. Выкручусь как то и клиппером 5.01. Это только кажется что перейти на Харбор сложно. Инструкцию по переходу мою читали ? Судя по вашим сообщениям нет !!! Там у меня все по шагам расписано. Мне письма присылают на почту благодарственные за доку по переходу. На Клипере 5.01 глупо оставаться имея Харбор. Тем более лицензия нужна даже на Клипер 5.01.

SergeyKorotun: Andrey пишет: Это только кажется что перейти на Харбор сложно. Инструкцию по переходу мою читали ? Судя по вашим сообщениям нет !!! Там у меня все по шагам расписано. Мне письма присылают на почту благодарственные за доку по переходу. На Клипере 5.01 глупо оставаться имея Харбор. Тем более лицензия нужна даже на Клипер 5.01. У нас никто лицензий не проверяет. Инструкцию читал, имея такую инструкцию и мавпа откомпилирует. Но что мне даст переход, если я смогу применять только функционал с клиппера 5.01 и не смогу применить ни одной новой функции или команды харбора, так как нет их описания на русском языке. Английского не знаю.

Andrey: SergeyKorotun пишет: Но что мне даст переход, если я смогу применять только функционал с клиппера 5.01 и не смогу применить ни одной новой функции или команды харбора, так как нет их описания на русском языке. Английского не знаю. Переход даст во первых СКОРОСТЬ ! Харбор быстрей Клипера на порядок, да и Фокс обгонит. Во вторых все функции Клипера 5.01 должны работать на хХарборе, различия в синтаксисе минимальны. А дока на русском на Клипер 5.01 ЕСТЬ ? Английского я тоже не знаю. Но посмотреть как функция написана в английской доке - любой школьник сможет. Что не поймешь, здесь можно будет спросить. Ссылки на NG по клиперу http://files.mail.ru/8Z0JN1 По хХарбору хелпер здесь на форуме поищи.

Pasha: SergeyKorotun пишет: Но что мне даст переход, Вы хотя бы сможете легко решить эту маленькую проблему с фильтром. Используя dbedit с 5.01, она на решается в принципе. А с харбором - легко, надо только scope выдать. Конечно, также легко она решается и переходом на 5.2/5.3, но такой переход сейчас бессмыссленный, поскольку уже давно есть харбор. Используя харбор, вы будете иметь сырцы всеого, сможете посмотреть, как работает та или иная функция. Не будет проблем с использованием dos, а их все больше и больше. Ну и tbrowse неплохо бы освоить, пора бросать рудименты и атавизмы вроде dbedit

Haz: SergeyKorotun пишет: Но заставлять изучать Harbour, это все равно что заставлять фирму по производству телевизоров усовершенствовать черно-белый телевизор. Сергей давайте по порядку разберем что же вы хотите и какие есть варианты. Итак, чем заменить set filter to, при обязательных условиях: Дано: 1 "Английского не знаю." 2."TBrowse тогда не освоил." и "лучше перейду на 5.х, чем на 5.01 осваивать tbrowse" 3."А получится дос или вин приложение, не столь важно." 4. "оператор не будет набирать только часть фамилии ИВАНищенко. проще добрать ИЩЕНКО" 5. "133 пентиуме, сейчас на 700 целероне 128 ОЗУ, вин98" 6. "Пишу отдельную программу, которая использует копии справочников" и "после копирования могу например отсортировать." 7. "Так что поначалу придется переиндексировать" 8. Клиппер 5.01 Предложения 1. Разобраться с Tbrowse - по условиям 2 и 4 не подходит 2. Условная индексация - по условию 8 не подходит 3. Перейти на SIXRDD и более быстрые индексы, там есть шаблоны типа ("*ИЩЕНКО")- по условию 1 опять мимо 4. Перейти на Клиппер 5.х - по условию 1 и 4 мимо 5. Перейти на ADSRDD, где есть SQL - по условию 1 мимо 6. Использовать Харбур - - по условию 1 мимо Вывод - остается сменить тачку ( условие 5 ) на конфигурацию при которой тормоза исчезнут. Чистый Клиппер 5.0 вообще не годится для решения задачи с условием 4, можете писать на чем угодно, что понимает dbf формат (все равно работа с копией и проблема совместимости с мастер-базой не волнует). Ну а теперь про "телевизор" или почему харбур. 1. Минимальные переделки - 90% написанного не надо переписывать 2. win32 приложение - используется вся доступная оперативка, а не кусок ~ в 500к для досовского приложения 3. понимает dbf и кучу других форматов, а также много-много других возможностей 4. в отличие от клиппер не вешает проц на 100% ( клиппер использует 21 прерывание для опроса клавы, позднее был патч , который позволял использовать коммуникационное 2F прерывание ), на вынь выше 98 более двух одновременных задач на непатченом клиппере заставляют задуматься о вечном. SergeyKorotun, как ни крути ... но выбирать между Клиппер и чем-то еще все же придется. PS. Лично я вашу задачку с примером на данном справочнике решал бы через ADS одной строкой SELECT * FROM Base WHERE Name Like "%ИЩЕНКО%", с предварительной индексацией по Name

leo: В свое время я работал на Clipper 5.2 и для решения таких задач с успехом использовал библиотеку Six3. Sx_SetScope( 0, DtOs( m->dDat1 ) ) Sx_SetScope( 1, DtOs( m->dDat2 ) ) ............................................... Sx_ClrScope(0) // Clear SCOPETOP Sx_ClrScope(1) // Clear SCOPEBOTTOM и все дела!Andrey пишет: Andrey Харбор быстрей Клипера на порядок, да и Фокс обгонит Ну это вы уже загнули! Удобнее и комфортнее для программиста - согласен, но на порядок...

Andrey: leo пишет: Ну это вы уже загнули! Я тесты делал в свое время (лет 5 назад) для Клипера 5.3б и хХарбора 0.77 ! По созданию базы, индексации, условной индексации - все быстрей... Когда переделал ВСЕ свои программу - то пропала необходимость в трудоемком сопровождении на Клипере. Ну не живет Клипер 5.3б нормально в сети !!! Да и пользователи довольны стали, программы шустрей работают и не сваливаются за день НИ РАЗУ !!!

SergejKis: SergeyKorotun пишет: Переход на клиппер версии выше 5.01 нежелателен ... Попробуйте тогда вариант типа: INDEX ON PADR(Name, 20) TO TAG_1 UNIQUE INDEX ON Name TO TAG_2 и фильтруйте по уникалиному с переключением на полный ... А переходить совершенно не проблема, на днях Summer перегнал (prg 200K), только строчку Func Main() добавил

SergeyKorotun: SergejKis пишет: Попробуйте тогда вариант типа: INDEX ON PADR(Name, 20) TO TAG_1 UNIQUE INDEX ON Name TO TAG_2 и фильтруйте по уникалиному с переключением на полный ... UNIQUE ни к чему, так как справочники ведутся не пользователем, а обновляются с центра и повторяющихся Name нет. Но если бы и были, то может это как бы то ускорило время открытия справочника, но никак бы не повлияло на тормоза, возникающие при нажатии клавиши, которая курсор пытается переместить на запись, не удовлетворяющую условию фильтра. SergejKis пишет: А переходить совершенно не проблема, на днях Summer перегнал (prg 200K), только строчку Func Main() добавил Ну это же не переход. Это перекомпиляция имеющегося prg файла. Я под переходом понимаю использование тех функций(команд, ...) харбора, которых нет в клиппер 5.01. И вот здесь как раз для меня и есть проблема - отсутствие русской документации. Поэтому допишу на клиппер 5.01. Может попробую создавать временную базу, в которой будут только те записи, которые удовлетворяют фильтру, может еще как-то по другому. Да и я уже писал, что справочник фамилий взял только в качестве примера. Никто не будет открывать этот отфильтрованный справочник, поскольку ввести надо до десятка букв, а в справочнике будет сотни фамилий, удовлетворяющих фильтру. И только после того, как программа будет написана и протестирована, только после этого начну переводить на харбор.

Pasha: SergeyKorotun пишет: Ну это же не переход. Это перекомпиляция имеющегося prg файла. Я под переходом понимаю использование тех функций(команд, ...) харбора, которых нет в клиппер 5.01. Вы можете собрать свою программу харбором, и добавить несколько строк для фильтра по scope, чем и решите свою проблему. Этот и будет использование функций, которых нет в 5.01 И только после того, как программа будет написана и протестирована, только после этого начну переводить на харбор. Это хорошо, что вы увидели магистральный путь. А незнания английского не бойтесь, это не будет большим препятствием

SergeyKorotun: Pasha пишет: Вы можете собрать свою программу харбором, и добавить несколько строк для фильтра по scope, чем и решите свою проблему. Этот и будет использование функций, которых нет в 5.01 и добавив пару функций в недописанную программу, закрыть навсегда возврат к клипперу. И даже если программа дописана, завтра в связи с изменением законодательства или по иным причинам, в нее будет необходимо вносить изменения. А я привык писать так: изменил что-то, посмотрел как работает. Есть оболочка, в которой нажав только Ctrl+F9 и автоматически создастся экзешник и запустится. Что то не-так, здесь же и поправил и снова Ctrl+F9

Pasha: SergeyKorotun пишет: закрыть навсегда возврат к клипперу И не надо. Но возврат возможен Пишем: #ifdef __HARBOUR__ // фильтр по scope #endif Собираем клиппером - работает мееееедленно Собираем харбором - работает мгновенно

Haz: SergeyKorotun пишет:: закрыть навсегда возврат к клипперу. Сергей, может выложите исходники куда ( можно тестовый пример ) и вам его в конфе соберут харбуром. Оцените живьем работу, может тогда что-то и поменяется ?

AlexMyr: SergeyKorotun пишет: и добавив пару функций в недописанную программу, закрыть навсегда возврат к клипперу. И даже если программа дописана, завтра в связи с изменением законодательства или по иным причинам, в нее будет необходимо вносить изменения. А я привык писать так: изменил что-то, посмотрел как работает. Есть оболочка, в которой нажав только Ctrl+F9 и автоматически создастся экзешник и запустится. Что то не-так, здесь же и поправил и снова Ctrl+F9 Что-то я вас не пойму , просите о помощи и сами же отказываетесь от нее и от идей данных на форуме. Из последнего поста следует, что только с помощью клиппера легко внести изменения в разных случаях и с помощью какой-то оболочки с Ctrl+F9. Я думаю Вам форум не поможет пока Вы не определитесь сами что Вам нужно. А пока пусть работает оф. прога на фоксе.

SergeyKorotun: AlexMyr пишет: Что-то я вас не пойму , просите о помощи и сами же отказываетесь от нее и от идей данных на форуме. Из последнего поста следует, что только с помощью клиппера легко внести изменения в разных случаях и с помощью какой-то оболочки с Ctrl+F9. Я думаю Вам форум не поможет пока Вы не определитесь сами что Вам нужно. А пока пусть работает оф. прога на фоксе. Цель как можно быстрее написать программу. А это можно реализовать только на языке, на котором был опыт (паскаль, клиппер, парадокс), хотя и десятилетней давности. Пусть немного будет медленнее работать, пусть не будет вызываться какой то справочник из полей, где надо ввести небольшое количество символов (но будет контроль на наличие введенного в справочнике), но запустить программу надо как можно скорее. После этого, поверьте, каждый ответ буду пытаться внедрить, усовершенствуя программу.

AlexMyr: SergeyKorotun пишет: Цель как можно быстрее написать программу. С того момента как SergeyKorotun пишет: Отправлено: 30.05.11 01:54. Заголовок: фильтрование базы с большим количеством записей уже можно было на харборе написать основу и с помощью форума освоить ordscope, а с другой стороны есть онлайн переводчик или на худой конец англо-русский словарь. А с третей стороны Вы говорите, что SergeyKorotun пишет: Если б вы предложили делать, ну например, на оракле, возможно б и начал изучать с нуля и Вы думаете, что оракл при наличии русской доки освоить легче чем клиппер=харбор?

SergeyKorotun: Переход на клиппер выше 5.01 не планировал, так как язык умирающий, а надо написать только несколько программ. Про существования харбор первый раз услышал на этом форуме. Написал первый вопрос даже не надеясь на ответ, думал клипперистов уже не осталось. Оказывается заблуждался. Принято решение (обжалованию не подлежит): 1. Дописать программу все же на клиппер 5.01 2. Сразу после завершения освоить новые возможности клиппер 5.03 (все же не стоит забрасывать то, на чем можешь что-то сделать) 3. Перейти на Харбор и перевести на него уже написанные программы, усовершенствовав их. 4. Одновременно с пунктами 2 и 3 осваивать оракл. Основные программы у нас написаны на оракле. Но в нашем округе никто даже не может составить простенький запрос к базе данных.

AlexMyr: SergeyKorotun пишет: . Дописать программу все же на клиппер 5.01 2. Сразу после завершения освоить новые возможности клиппер 5.03 (все же не стоит забрасывать то, на чем можешь что-то сделать) 3. Перейти на Харбор и перевести на него уже написанные программы, усовершенствовав их. Еще раз клиппер=харбор, потому еща раз харбор, иначе никакого конструктива. SergeyKorotun пишет: 4. Одновременно с пунктами 2 и 3 осваивать оракл. Основные программы у нас написаны на оракле. Но в нашем округе никто даже не может составить простенький запрос к базе данных. Про оракл и запросы на оракле в другом форуме.

leo: Andrey Я не делал замеров, но работая с большими обьемами не заметил особого увеличения в скорости. Тем более, как вы говорили, на порядок(уж это я точно бы почувствовал!). Ну а c фоксом ( с его технологией рашмор) Harbour вообще сложно тягаться. Но я все равно предпочитаю Harbour в первую очередь за то, что это открытая и постоянно развивающаяся система. А Visual Foxpro Microsoft, к сожалению, уже похоронила.

SergejKis: SergeyKorotun пишет:: UNIQUE ни к чему, так как справочники ведутся не пользователем, а обновляются с центра и повторяющихся Name нет и Дописать программу все же на клиппер 5.01 Уникальный индекс я предложил на первые 20 байт от cName. На S87 и PC 286 (база до 500000 записей) такая задача была решена следующим образом: создано 3 уникальных индекса (1-по первому слову, 2-по 1+2 слова, 3-по 1+2+3) и по полному полю. Если первый символ был * , то filter на вхождение иначе подвод по нужному индексу. Работало все очень приемлемо.

полная версия страницы