powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Поиск в Memo - поле
5 сообщений из 5, страница 1 из 1
Поиск в Memo - поле
    #35021807
Lermontov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Привет, товарищи! Тут уже поднималась эта тема, ( а именно здесь 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
Поиск в Memo - поле
    #35022023
Lermontov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Или хотя бы разом выделялись все искомые слова.
...
Рейтинг: 0 / 0
Поиск в Memo - поле
    #35022833
MiklS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Выделение словосочетания
Код: 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
Поиск в Memo - поле
    #35022842
MiklS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Прошу прощения, первая строка должна иметь вид
Код: plaintext
s = ALLTRIM(THISFORM.Edit1.Value)
...
Рейтинг: 0 / 0
Поиск в Memo - поле
    #35024645
Lermontov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
MiklS, спасибо! Жаль на форуме нет системы начисления репутации! =)
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Поиск в Memo - поле
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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