ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / Проверка правильности написания e-maila
14 сообщений из 14, страница 1 из 1
Проверка правильности написания e-maila
    #34101446
Фотография Riska
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Riska
Участник
Не хочется изобретать велосипед. Наверняка кто-нибудь уже написал функцию по проверке правильности написания e-maila. Ну, типа, должна быть собачка и т.д. и т.п. Пришлите, плз...
...
Рейтинг: 0 / 0
02.11.2006, 15:54
| Ответить | Цитировать | Написать  
Проверка правильности написания e-maila
    #34102257
Фотография voronk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
voronk
Участник
www.google.com .....

Here is a validation expression which works (95% :-)) for an email address
entry in a datawindow

( NOT Match(GetText(),"[^A-Za-z0-9\.@_\-]") OR NOT (Match(GetText(),"[@+]")
AND Match(GetText(),"[/.+]"))) AND NOT (pos(GetText(), ".") = 1 OR
pos(GetText(), ".", Len(GetText())-1) = Len(GetText()) OR pos(GetText(),
"@") = 1 OR pos(GetText(), "@", Len(GetText())-1) = Len(GetText()) OR
Pos(GetText(),".@")>0 OR Pos(GetText(),"@.")>0)
...
Рейтинг: 0 / 0
02.11.2006, 19:49
| Ответить | Цитировать | Написать  
Проверка правильности написания e-maila
    #34102292
Фотография Филипп
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Филипп
Участник
voronkwww.google.com .....

Here is a validation expression which works (95% :-)) for an email address
entry in a datawindow

Код: plaintext
1.
2.
3.
4.
( NOT Match(GetText(),"[^A-Za-z0-9\.@_\-]") OR NOT (Match(GetText(),"[@+]") 
AND Match(GetText(),"[/.+]"))) AND NOT (pos(GetText(), ".") =  1  OR 
pos(GetText(), ".", Len(GetText())- 1 ) = Len(GetText()) OR pos(GetText(), 
"@") =  1  OR pos(GetText(), "@", Len(GetText())- 1 ) = Len(GetText()) OR 
Pos(GetText(),".@")> 0  OR Pos(GetText(),"@.")> 0 )


Аффтор - я :-))
...
Рейтинг: 0 / 0
02.11.2006, 20:33
| Ответить | Цитировать | Написать  
Проверка правильности написания e-maila
    #34102304
Фотография voronk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
voronk
Участник
Филипп voronkwww.google.com .....

Here is a validation expression which works (95% :-)) for an email address
entry in a datawindow

Код: plaintext
1.
2.
3.
4.
( NOT Match(GetText(),"[^A-Za-z0-9\.@_\-]") OR NOT (Match(GetText(),"[@+]") 
AND Match(GetText(),"[/.+]"))) AND NOT (pos(GetText(), ".") =  1  OR 
pos(GetText(), ".", Len(GetText())- 1 ) = Len(GetText()) OR pos(GetText(), 
"@") =  1  OR pos(GetText(), "@", Len(GetText())- 1 ) = Len(GetText()) OR 
Pos(GetText(),".@")> 0  OR Pos(GetText(),"@.")> 0 )


Аффтор - я :-))

...
Рейтинг: 0 / 0
02.11.2006, 20:44
| Ответить | Цитировать | Написать  
Проверка правильности написания e-maila
    #34103386
AndrewN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndrewN
Участник
Медаль бы ему. :)
...
Рейтинг: 0 / 0
03.11.2006, 11:27
| Ответить | Цитировать | Написать  
Проверка правильности написания e-maila
    #34105369
Фотография voronk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
voronk
Участник
AndrewNМедаль бы ему. :)
...
...
Рейтинг: 0 / 0
03.11.2006, 22:58
| Ответить | Цитировать | Написать  
Проверка правильности написания e-maila
    #34106205
Фотография Riska
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Riska
Участник
А у меня эта радость не работает...
Проверка происходит в простом sle_1 (не в DW). Ответ всегда FALSE!

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
IF ( NOT Match(as_email,"[^A-Za-z0-9\.@_\-]") OR NOT (Match(as_email,"[@+]") &
		AND Match(as_email,"[/.+]"))) AND NOT (pos(as_email, ".") =  1  OR &
		pos(as_email, ".", Len(as_email)- 1 ) = Len(as_email) OR pos(as_email, &
		"@") =  1  OR pos(as_email, "@", Len(as_email)- 1 ) = Len(as_email) OR &
		Pos(as_email,".@")> 0  OR Pos(as_email,"@.")> 0 ) THEN
	MESSAGEBOX(as_email, 'FALSE')
ELSE 
	MESSAGEBOX(as_email, 'TRUE')
END IF
...
Рейтинг: 0 / 0
05.11.2006, 09:30
| Ответить | Цитировать | Написать  
Проверка правильности написания e-maila
    #34106206
Фотография Riska
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Riska
Участник
Кстати, забыл сказать, что это PB 6.5.1, хотя не думаю, что это имеет значение.
...
Рейтинг: 0 / 0
05.11.2006, 09:40
| Ответить | Цитировать | Написать  
Проверка правильности написания e-maila
    #34106342
Фотография Anatoly Moskovsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anatoly Moskovsky
Участник
Я бы предложил такое регулярное выражение:
Код: plaintext
/^([\w_\-\.]+\@[\w\-]+(?:\.[\w\-]+)*)\.(info|biz|com|org|net|mil|gov|[a-z]{ 2 })$/
Но к сожалению ф-я Match многое не умеет, поэтому для его применения потребуется внешний ActiveX (впрочем он кажется входит в состав Windows начиная с 98):
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
String ls_email = "a-b.c@ss-ee.c.com"

Boolean lb_validEmail
String ls_re = "^([\w_\-\.]+\@[\w\-]+(?:\.[\w\-]+)*)\.(info|biz|com|org|net|mil|gov|[a-z]{2})$"
OLEObject re
int li_retcode
String ls_dest
re = Create OLEObject
li_retcode = re.ConnectToNewObject("VBScript.RegExp")
re.Pattern = ls_re
re.Global = false
re.IgnoreCase = true
lb_validEmail = re.Test(ls_email)
re.DisconnectObject()

MessageBox("Valid", lb_validEmail)
PS. В этом коде нет обработки ошибок.
...
Рейтинг: 0 / 0
05.11.2006, 15:35
| Ответить | Цитировать | Написать  
Проверка правильности написания e-maila
    #34106403
Фотография Riska
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Riska
Участник
Anatoly Moskovsky
Это работает. Спасибо. Но все-таки лучше использовать функцию без оле-объектов.
...
Рейтинг: 0 / 0
05.11.2006, 17:48
| Ответить | Цитировать | Написать  
Проверка правильности написания e-maila
    #34107677
Фотография voronk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
voronk
Участник
RiskaА у меня эта радость не работает...
Проверка происходит в простом sle_1 (не в DW). Ответ всегда FALSE!

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
IF ( NOT Match(as_email,"[^A-Za-z0-9\.@_\-]") OR NOT (Match(as_email,"[@+]") &
		AND Match(as_email,"[/.+]"))) AND NOT (pos(as_email, ".") =  1  OR &
		pos(as_email, ".", Len(as_email)- 1 ) = Len(as_email) OR pos(as_email, &
		"@") =  1  OR pos(as_email, "@", Len(as_email)- 1 ) = Len(as_email) OR &
		Pos(as_email,".@")> 0  OR Pos(as_email,"@.")> 0 ) THEN
	MESSAGEBOX(as_email, 'FALSE')
ELSE 
	MESSAGEBOX(as_email, 'TRUE')
END IF


Try ->
IF ( Match(as_email,"[^A-Za-z0-9\.@_\-]") = FALSE OR ...
vs
IF ( NOT Match(as_email,"[^A-Za-z0-9\.@_\-]") OR ...
...
Рейтинг: 0 / 0
06.11.2006, 20:37
| Ответить | Цитировать | Написать  
Проверка правильности написания e-maila
    #34107680
Фотография Филипп
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Филипп
Участник
RiskaА у меня эта радость не работает...
Проверка происходит в простом sle_1 (не в DW).
SLE это тебе НЕ datawindow...
...
Рейтинг: 0 / 0
06.11.2006, 20:40
| Ответить | Цитировать | Написать  
Проверка правильности написания e-maila
    #34108963
Oleg1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oleg1
Гость
RiskaА у меня эта радость не работает...
Проверка происходит в простом sle_1 (не в DW). Ответ всегда FALSE!
Функция Match() в DW и в скриптах работает по-разному! Как минимум в PB9
...
Рейтинг: 0 / 0
07.11.2006, 13:27
| Ответить | Цитировать | Написать  
Проверка правильности написания e-maila
    #34109121
Фотография Anatoly Moskovsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anatoly Moskovsky
Участник
Oleg1 RiskaА у меня эта радость не работает...
Проверка происходит в простом sle_1 (не в DW). Ответ всегда FALSE!
Функция Match() в DW и в скриптах работает по-разному! Как минимум в PB9
Насчет Match не в курсе.
Но есть еще одна причина, по которой это выражение будет давать отличный от DW результат.
Абстрагируясь от конкретных операций, это условие можно представить в таком виде:
Код: plaintext
(NOT P1 OR NOT (P2) AND P3)) AND NOT (P4 OR P5 OR P6 OR P7 OR P8 OR P9)
Здесь мы видим такую часть как
Код: plaintext
NOT P1 OR NOT P2 AND P3

Так вот.
В DW expression приоритет операций будет такой:
Код: plaintext
NOT (P1 OR NOT (P2 AND P3))
А в PowerScript такой:
Код: plaintext
(NOT P1) OR ((NOT P2) AND P3)
Очевидно, что это совершенно разные условия.

Это описано в документации.
См. PB Help->
Operator precedence in DataWindow expressions,
Operator precedence in PowerBuilder expressions
...
Рейтинг: 0 / 0
07.11.2006, 14:10
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / Проверка правильности написания e-maila
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=15&msg=34103386&tid=1337533]:
 0ms
get settings:
 6ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 58ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 56ms
get tp. blocked users:
 1ms
others: 203ms
total:  356ms
созд. / загр.: 356ms
x
x
Закрыть


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