powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Народ, есть в VB аналог in (Pascal)?
6 сообщений из 6, страница 1 из 1
Народ, есть в VB аналог in (Pascal)?
    #32752584
Фотография Desil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Всем доброго дня!

Нужно написать следующую конструкцию:
Код: plaintext
if (str = ".asp" or str = ".html" or ... or str = ".htm") then ...
Можно ли это сделать компактнее, например:
Код: plaintext
if (str in [".asp" ,...,".htm"]) then ...
Заранее спасибо
...
Рейтинг: 0 / 0
Народ, есть в VB аналог in (Pascal)?
    #32752628
нет.

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

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

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

без " " не различит .html или .htm
...
Рейтинг: 0 / 0
Народ, есть в VB аналог in (Pascal)?
    #32752707
If Instr(".asp .html .htm", str & " ") > 0 then

тогда уж ".asp .html .htm "
...
Рейтинг: 0 / 0
Народ, есть в VB аналог in (Pascal)?
    #32752793
Processor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если речь не идёт об экономии строк, а о наглядности алгоритма, то Select Case решает "проблему".
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Народ, есть в VB аналог in (Pascal)?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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