Страница: 1 |
Страница: 1 |
Вопрос: Поиск
Добавлено: 03.06.04 21:19
Автор вопроса: AV | Web-сайт:
Помогите, пожалуйста. Необходимо сделать поиск в строке с функцией, чтобы искалась точная фраза, а не отрывки в словах...
Ответы
Всего ответов: 5
Номер ответа: 1
Автор ответа:
HACKER
Разработчик Offline Client
Вопросов: 236
Ответов: 8362
Профиль | | #1
Добавлено: 04.06.04 01:16
а InStr негодиться?
Номер ответа: 2
Автор ответа:
Novichek
Вопросов: 19
Ответов: 60
Профиль | | #2
Добавлено: 04.06.04 09:30
может InStr, а искать с добавлением пробелов или запятых? " искомое_слово "
Номер ответа: 3
Автор ответа:
AV
Вопросов: 28
Ответов: 48
Web-сайт:
Профиль | | #3
Добавлено: 04.06.04 15:19
InStr годится, только как? Когда ставишь vbBinaryCompare - ищет с учетом регистра, когда vbTextCompare - все подряд. А мне необходимо как в WordPad'е, в поиске ставишь галочку 'Только слово целиком' и все ок... А добавлять запятые и пробелы как-то не катит...
Номер ответа: 4
Автор ответа:
Sharp
Лидер форума
ICQ: 216865379
Вопросов: 106
Ответов: 9979
Web-сайт:
Профиль | | #4
Добавлено: 05.06.04 13:34
Можно написать свой поиск, что-то типа
private function searchword(txt,what)
currword=""
for i=1 to len(txt)
s=mid(txt,i,1)
if ucase(s)>="A" and ucase(s)<="Z" then 'Для английских слов
currword=currword & s
else
if what=currword then
searchword=i
exit function
end if
currword=""
end if
next
end function
Номер ответа: 5
Автор ответа:
@CyRax PTR
ICQ: 204447456
Вопросов: 28
Ответов: 664
Web-сайт:
Профиль | | #5
Добавлено: 05.06.04 17:44
Находишь с помощью InStr, а затем проверяешь символ перед словом и после. Можно с помощью IsCharAlphaNumeric (Win API).