Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Символ @ / 6 сообщений из 6, страница 1 из 1
22.09.2006, 13:12
    #34005970
Bastica
Bastica
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Символ @
Здравствуйте люди! Подскажите, как сделать чтобы после ввода в текстовое поле текст проверялся на наличие символа @, и если его нету, то типо выдает сообщение, что его надо ввести!!!

Спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.09.2006, 13:15
    #34005984
Melkiades
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Символ @
Код: plaintext
1.
if instr (text1.text, chr( 64 )) =  0  then msgbox ""
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.09.2006, 13:51
    #34006167
AndreyMp
AndreyMp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Символ @
Может лучше подойдет Like.
Код: plaintext
1.
2.
3.
4.
5.
if строка like "*@*" then
  msgbox "@ есть"
else
  msgbox "@ нету"
end if
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.09.2006, 14:30
    #34006353
Aklin
Aklin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Символ @
instr быстрее
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.09.2006, 15:37
    #34006628
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Символ @
Еще быстрее:

if InStr(1, "ewtrewry@erewt", "@", vbBinaryCompare) = 0 then msgbox ""

Избавляемся от вложенной функции chr, возвращающей строку. Вместо этого пишем явно "@", по пути улучшая читабельность кода. На моем компьютере быстрее где-то 1.8 - 2 раза...

VladConn
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.09.2006, 15:52
    #34006678
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Символ @
Еще одно замечание: если явно не указать тип строкового сравнения в функции Instr, то сравнение строк будет производиться на основе Option Compare. И если он вдруг не Option Compare Binary, то это может замедлить код раз в пять или даже просто не подходить для нужд какого-то частного случая.

Встречный вопрос: кто такой "типо"? (... то типо выдает сообщение...). В английском это означает опечатку (произносится тайпо). Если это так, то тут это просто в самое яблочко.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Символ @ / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 329ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2165270]:
 0ms
get settings:
 6ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 26ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 231ms
total:  329ms
x
x
Закрыть


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