ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Locate в цикле правильно ли это ?
25 сообщений из 33, страница 1 из 2
  1  все
Locate в цикле правильно ли это ?
    #32980892
Strong
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Strong
Участник
Задача :
поиск в поле таблицы определннного значения
Пример: Москва.ИнтерТур-искомое значение
Москва.ИнтерСвязь - самое похожее в таблице, соотв. Москва.ИнтерТур нет в таблице
обычный локейт не найдет

написал такой код

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
cl_field_org="f1"
nl_Ipoz= 0 
bl_Found=.t.
DO WHILE bl_Found AND nl_Ipoz<Len(c_Find)+ 1 
	nl_Ipoz=nl_Ipoz+ 1  
	SELECT org
	LOCATE FOR LEFT(ALLTRIM(org.&cl_field_org),nl_Ipoz)==LEFT(ALLTRIM(c_Find),nl_Ipoz)
	bl_Found=FOUND()
ENDDO 
SELECT org
LOCATE FOR LEFT(ALLTRIM(org.&cl_field_org),nl_Ipoz- 1 )==LEFT(ALLTRIM(c_Find),nl_Ipoz- 1 )
thisform.Refresh

Т.е. в цикле ищется похожее отсекая по букве, недостаток такого алгоритма в том что при большой таблице и большой переменной c_Find он может притормаживать.
Есть ли вариант лучше?
Может быть кто то сталкивался с подобной задачей?

______________________________________
с уважением: Strong
...
Рейтинг: 0 / 0
25.03.2005, 14:17
| Ответить | Цитировать | Написать  
Locate в цикле правильно ли это ?
    #32980938
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
MyString=ИнтерСвязь
select * from table1 into curs qq1 where nam$Mystring
brow normal
...
Рейтинг: 0 / 0
25.03.2005, 14:25
| Ответить | Цитировать | Написать  
Locate в цикле правильно ли это ?
    #32980943
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
MyString="ИнтерСвязь"
select * from table1 into curs qq1 where nam$Mystring
brow normal
...
Рейтинг: 0 / 0
25.03.2005, 14:26
| Ответить | Цитировать | Написать  
Locate в цикле правильно ли это ?
    #32980962
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
MyString="Москва.Интер"
select t1
locate for nam$nam$Mystring
do while !eof()
messagebox(nam)
continue
enddo
...
Рейтинг: 0 / 0
25.03.2005, 14:30
| Ответить | Цитировать | Написать  
Locate в цикле правильно ли это ?
    #32980967
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
MyString="Москва.Интер"
select t1
locate for nam$Mystring do while !eof()
messagebox(nam)
continue
enddo
...
Рейтинг: 0 / 0
25.03.2005, 14:31
| Ответить | Цитировать | Написать  
Locate в цикле правильно ли это ?
    #32980980
Strong
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Strong
Участник
leafMyString="Москва.Интер"
select t1
locate for nam$Mystring do while !eof()
messagebox(nam)
continue
enddo

Хех А как узнать где Москва.Интер а где Москва. и дальше что то другое?
MyString="Москва.Интер" - не пойдет
...
Рейтинг: 0 / 0
25.03.2005, 14:34
| Ответить | Цитировать | Написать  
Locate в цикле правильно ли это ?
    #32980998
Strong
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Strong
Участник
Наверно я плохо обьяснил надо найти строку значение которой максимально близко к искомому значению

______________________________________
с уважением: Strong
...
Рейтинг: 0 / 0
25.03.2005, 14:40
| Ответить | Цитировать | Написать  
Locate в цикле правильно ли это ?
    #32981024
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
MyString="Москва.ИнтерТур"
nn=len(MyString)
select t1
locate for alltrim(nam)$left(MyString,nn)
do while !found() and nn>1
nn=nn-1
locate for alltrim(nam)$left(MyString,nn)
enddo
...
Рейтинг: 0 / 0
25.03.2005, 14:48
| Ответить | Цитировать | Написать  
Locate в цикле правильно ли это ?
    #32981038
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Строится индекс по интересующему полю (в данном случае по полю F1), а далее

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
SET NEAR ON
SELECT MyTable
SET ORDER TO F1
IF SEEK("Москва.ИнтерТур")
* Есть такая запись
ELSE
* Указатель встал на запись ближайшую к искомой
ENDIF
...
Рейтинг: 0 / 0
25.03.2005, 14:51
| Ответить | Цитировать | Написать  
Locate в цикле правильно ли это ?
    #32981042
Strong
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Strong
Участник
leafMyString="Москва.ИнтерТур"
nn=len(MyString)
select t1
locate for alltrim(nam)$left(MyString,nn)
do while !found() and nn>1
nn=nn-1
locate for alltrim(nam)$left(MyString,nn)
enddo


Так это тоже самое что я предложил.
leaf вы читали что я написал то?
...
Рейтинг: 0 / 0
25.03.2005, 14:52
| Ответить | Цитировать | Написать  
Locate в цикле правильно ли это ?
    #32981050
Strong
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Strong
Участник
ВладимирМСтроится индекс по интересующему полю (в данном случае по полю F1), а далее

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
SET NEAR ON
SELECT MyTable
SET ORDER TO F1
IF SEEK("Москва.ИнтерТур")
* Есть такая запись
ELSE
* Указатель встал на запись ближайшую к искомой
ENDIF


" Если поиск завершился неудачно, SEEK( ) возвращает "ложь" (.F.) и указатель записи устанавливается в конец файла."

Так что толку от :
ELSE
* Указатель встал на запись ближайшую к искомой
ENDIF
...
Рейтинг: 0 / 0
25.03.2005, 14:55
| Ответить | Цитировать | Написать  
Locate в цикле правильно ли это ?
    #32981064
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
set near off
при индексе не обязательно делть каждый раз поиск по всей таблице моно сканировать таблицу от скажем например от "М" до "Н"
...
Рейтинг: 0 / 0
25.03.2005, 14:59
| Ответить | Цитировать | Написать  
Locate в цикле правильно ли это ?
    #32981083
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AleksMed
Участник
Возможно эту задачу поможет решить metla.vcx с сайта Михаила Дроздова
...
Рейтинг: 0 / 0
25.03.2005, 15:03
| Ответить | Цитировать | Написать  
Locate в цикле правильно ли это ?
    #32981096
Strong
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Strong
Участник
" Если поиск завершился неудачно, SEEK( ) возвращает "ложь" (.F.) и указатель записи устанавливается в конец файла."

Был неправ , виноват
SET NEAR ON
хелп почитал
А есть еще RECNO(0) воспользуюсь лучше ей
...
Рейтинг: 0 / 0
25.03.2005, 15:05
| Ответить | Цитировать | Написать  
Locate в цикле правильно ли это ?
    #32981115
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
RECNO(0)
а как вы хотите использовать это?
ИМХО всегда ноль или нет
...
Рейтинг: 0 / 0
25.03.2005, 15:10
| Ответить | Цитировать | Написать  
Locate в цикле правильно ли это ?
    #32981150
Strong
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Strong
Участник
"Функция SEEK( ) возвращает логическое значение, указывающее, насколько успешным был поиск."
"При выдаче функции RECNO( ) с аргументом 0 в случае неудачного поиска возвращается номер наиболее подходящей записи, независимо от установки SET NEAR."

______________________________________
с уважением: Strong
...
Рейтинг: 0 / 0
25.03.2005, 15:18
| Ответить | Цитировать | Написать  
Locate в цикле правильно ли это ?
    #32981215
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PaulWist
Участник
Не.. ребята, решение в лоб без сканирования не пройдет, все предложенные решения подразумевают, что начало слова совпадает с началом искомого выражения, а здесь я так понял нужен аналог полнотекстового поиска.
По повду алгоритма, наверное нужно отсекать символы справа и затем искать $, и потом надо бы не Locate использовать, а Select, что бы предоставить все вхождения, поскольку МоскваИнтер может быть несколько.
...
Рейтинг: 0 / 0
25.03.2005, 15:36
| Ответить | Цитировать | Написать  
Locate в цикле правильно ли это ?
    #32981259
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
вариант с выборкой в курсор и последующей обработкой был отброшен автором
да и он уже нашел решение
...
Рейтинг: 0 / 0
25.03.2005, 15:49
| Ответить | Цитировать | Написать  
Locate в цикле правильно ли это ?
    #32981379
Strong
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Strong
Участник
PaulWistНе.. ребята, решение в лоб без сканирования не пройдет, все предложенные решения подразумевают, что начало слова совпадает с началом искомого выражения, а здесь я так понял нужен аналог полнотекстового поиска.


В данном случае меня устроит совпадение начала слова с началом искомого выражения. т к таблица большая и там есть все буквы алфавита( ну или почти все) а полнотекстовый поиск как раз тут не подойдет.

---------------------------
Но вообще и насчет полнотекстового поиска очень интересно как без цикла сделать.
но
PaulWist
По повду алгоритма, наверное нужно отсекать символы справа и затем искать $, и потом надо бы не Locate использовать, а Select, что бы предоставить все вхождения, поскольку МоскваИнтер может быть несколько.


ту опять предлагают цикл зависящий от длины переменной, хочется как то изящней
...
Рейтинг: 0 / 0
25.03.2005, 16:30
| Ответить | Цитировать | Написать  
Locate в цикле правильно ли это ?
    #32981418
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PaulWist
Участник
авторВ данном случае меня устроит совпадение начала слова с началом искомого выражения.

А если таких совпадений будет 100, то Locate найдет только первое, и что показать пользователю - первое совпадение или 10-ое или все?

авторНо вообще и насчет полнотекстового поиска очень интересно как без цикла сделать.

Вот здесь есть , на мой взгляд очень достойное решение
http://www.foxclub.ru/sol/index.php?act=view&id=443
...
Рейтинг: 0 / 0
25.03.2005, 16:40
| Ответить | Цитировать | Написать  
Locate в цикле правильно ли это ?
    #32982399
Igor Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Igor Korolyov
Участник
Hi PaulWist!

> А если таких совпадений будет 100, то Locate найдет только первое, и что показать пользователю - первое совпадение или 10-ое или все?

Если активен нужный индексный тег (а причин обратному я не вижу), то достаточно показать курсор в grid/browse - соответственно будут видны ВСЕ более менее подходящие записи (по началу слова поиска конечно).

Posted via ActualForum NNTP Server 1.1
...
Рейтинг: 0 / 0
26.03.2005, 16:57
| Ответить | Цитировать | Написать  
Locate в цикле правильно ли это ?
    #32983178
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PaulWist
Участник
Igor Korolyov

Igor Korolyov> А если таких совпадений будет 100, то Locate найдет только первое, и что показать пользователю - первое совпадение или 10-ое или все?

Если активен нужный индексный тег (а причин обратному я не вижу), то достаточно показать курсор в grid/browse - соответственно будут видны ВСЕ более менее подходящие записи (по началу слова поиска конечно).

Игорь, ну так для этого и задавался вопрос, что бы человек попробовал на него ответить и в конце концов понял, какое надо принять решение.
...
Рейтинг: 0 / 0
28.03.2005, 08:48
| Ответить | Цитировать | Написать  
Locate в цикле правильно ли это ?
    #32983214
Strong
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Strong
Участник
Вообще вариант с SEEk не подходит
Поиск должен вестись не по индексируемому полю. И проиндексировать его не могу. Т. к. система не моя. Могу сделать выборку в курсор сделать с ним все что захочу, найти в нем, а затем перескочить на необходимую запись.
Но как то слишком замудрено не будет ли медленнее чем несколько локейтов?

______________________________________
с уважением: Strong
...
Рейтинг: 0 / 0
28.03.2005, 09:34
| Ответить | Цитировать | Написать  
Locate в цикле правильно ли это ?
    #32983233
Strong
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Strong
Участник
StrongВообще вариант с SEEk не подходит
Поиск должен вестись не по индексируемому полю. И проиндексировать его не могу.


т.е. поле то индексируемое (в таблице) и представление упорядочено по нему но как мне этим воспользоватся не знаю.
...
Рейтинг: 0 / 0
28.03.2005, 09:48
| Ответить | Цитировать | Написать  
Locate в цикле правильно ли это ?
    #32983256
Andrey Ts
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrey Ts
Участник
Strong StrongВообще вариант с SEEk не подходит
Поиск должен вестись не по индексируемому полю. И проиндексировать его не могу.


т.е. поле то индексируемое (в таблице) и представление упорядочено по нему но как мне этим воспользоватся не знаю.
Индексировать представление по тому же полю (после открытия) и потом делать все вышесказанное.
...
Рейтинг: 0 / 0
28.03.2005, 10:06
| Ответить | Цитировать | Написать  
25 сообщений из 33, страница 1 из 2
  1  все
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Locate в цикле правильно ли это ?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]