VPF::Сравнение текста - Форум программистов

SoFuWa

Дата 18.7.2009, 19:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 20.3.2009

Репутация: нет
Всего: нет

Приветствую smile

Я в скрипте использую InStr(x,y) для сравнения строк текста, можно ли сделать так что бы проверка была по целому слову, например:
InStr(x,y)
x=Вышгородская ул.
y=Вышгород

Вышгород это город, а Х это улица, и нужно чтоб искался только Вышгород. А Вышгородская ул. не искалась
Вот такая проблема :(

Akina

Дата 18.7.2009, 19:52 (ссылка)

(голосов:1)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454

Ну так и ищи "Вышгород "

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

SOLAMON

Дата 22.7.2009, 12:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 21.7.2009
Где: Санкт-Петербург

Репутация: нет
Всего: нет

Код



function ИщемЦелоеСлово(Строка as string, ЧтоИщем as string, _
        optional byval ПозицияНачалоПоиска as long, optional Compare as VbTextCompare, _
        optional ВсякиеТамСимволы as string = "!@#$%^&*(){}[] ,.></?\|`~""'") as long
        dim F as boolean
        while F = False 
               ИщемЦелоеСлово = instr(ПозицияНачалоПоиска, Строка, ЧтоИщем, Compare)
               if ИщемЦелоеСлово <= 0 then exit function 'Не нашли , вернем 0
               F = True
               'Проверяем символ перед
               If ИщемЦелоеСлово > 1 then
                     F=instr(ВсякиеТамСимволы, mid(Строка, ИщемЦелоеСлово -1,1)=0)
               end if
               F = F and  instr(ВсякиеТамСимволы, mid(Строка, ИщемЦелоеСлово + len(ЧтоИщем) + 1,1)=0)
        wend
end function

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »