Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Поиск в Memo - поле / 5 сообщений из 5, страница 1 из 1
19.12.2007, 21:08
    #35021807
Lermontov
Lermontov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск в Memo - поле
Привет, товарищи! Тут уже поднималась эта тема, ( а именно здесь http://www.sql.ru/forum/actualthread.aspx?tid=203231 )

Очень хорошо там сделал товарищ lesha_spb в последнем посте, а именно:

old_pos = THISFORM.Edit1.SelStart
s = SUBSTR(THISFORM.Edit1.Value, old_pos+1, LEN(THISFORM.edit1.Value) - old_pos - 1)

fstr = ALLTRIM(THISFORM.Text1.Value)
pos = AT(fstr, s)
IF( pos == 0 )
RETURN
ENDIF

THISFORM.Edit1.SelStart = pos + old_pos - 1
THISFORM.Edit1.SelLength = LEN(fstr)

THISFORM.Edit1.SetFocus()

Не подскажите ли как переделать код, чтобы можно было вводить в Text1 не одно слово, а словосочетание, и чтобы полностью выделялись предложения, содержащие это словосочетание ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.12.2007, 00:10
    #35022023
Lermontov
Lermontov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск в Memo - поле
Или хотя бы разом выделялись все искомые слова.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.12.2007, 12:14
    #35022833
MiklS
MiklS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск в Memo - поле
Выделение словосочетания
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
s = SUBSTR(THISFORM.Edit1.Value, old_pos+ 1 , LEN(THISFORM.edit1.Value) - old_pos -  1 )

fstr = ALLTRIM(THISFORM.Text1.Value)
pos = RAT(fstr, s)
*** Если нужно все предложение тогда нужно вставить код поиска предложения от точки до точки
IF pos >  0 
    THISFORM.Edit1.SelStart = pos
    THISFORM.Edit1.SelLength = LEN(fstr)
ENDIF
THISFORM.Edit1.SetFocus()
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.12.2007, 12:16
    #35022842
MiklS
MiklS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск в Memo - поле
Прошу прощения, первая строка должна иметь вид
Код: plaintext
s = ALLTRIM(THISFORM.Edit1.Value)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.12.2007, 19:22
    #35024645
Lermontov
Lermontov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск в Memo - поле
MiklS, спасибо! Жаль на форуме нет системы начисления репутации! =)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Поиск в Memo - поле / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 336ms
Закрыть
start [/forum/topic.php?fid=41&mobile=1&tid=1588378]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 49ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 218ms
total:  336ms
x
x
Закрыть


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