Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Народ, есть в VB аналог in (Pascal)? / 6 сообщений из 6, страница 1 из 1
25.10.2004, 13:02:09
    #32752584
Desil
Desil
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, есть в VB аналог in (Pascal)?
Всем доброго дня!

Нужно написать следующую конструкцию:
Код: plaintext
if (str = ".asp" or str = ".html" or ... or str = ".htm") then ...
Можно ли это сделать компактнее, например:
Код: plaintext
if (str in [".asp" ,...,".htm"]) then ...
Заранее спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2004, 13:14:39
    #32752628
Голенков Владимир
Голенков Владимир
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, есть в VB аналог in (Pascal)?
нет.

- самому написать ф-цию с переменным числом аргументов или array()
- использовать Select Case
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2004, 13:21:55
    #32752654
Worobjoff
Worobjoff
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, есть в VB аналог in (Pascal)?
Что-то похожее получится если:

If Instr(".asp .html .htm", str) > 0 then ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2004, 13:28:51
    #32752687
Worobjoff
Worobjoff
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, есть в VB аналог in (Pascal)?
Пардон, поправка:

If Instr(".asp .html .htm", str & " ") > 0 then ...

без " " не различит .html или .htm
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2004, 13:33:28
    #32752707
Голенков Владимир
Голенков Владимир
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, есть в VB аналог in (Pascal)?
If Instr(".asp .html .htm", str & " ") > 0 then

тогда уж ".asp .html .htm "
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2004, 13:54:43
    #32752793
Processor
Processor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, есть в VB аналог in (Pascal)?
Если речь не идёт об экономии строк, а о наглядности алгоритма, то Select Case решает "проблему".
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Народ, есть в VB аналог in (Pascal)? / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 332ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2168702]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 27ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 36ms
get tp. blocked users:
 1ms
others: 232ms
total:  332ms
x
x
Закрыть


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