public object АдресЭлектроннойПочтыСоответствуетТребованиям(/*Знач Адрес*/)
{
/*// допустимые символы для email
*/
//Буквы = "abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя";
//Цифры = "0123456789";
//СпецСимволы = ".@_-";
/*// проверяем любые сочетания спецсимволов
*/
if(true/*СтрДлина(СпецСимволы) > 1*/)
{
}
/*// проверяем символ @
*/
if(true/*СтрЧислоВхождений(Адрес, "@") <> 1*/)
{
}
/*// проверяем две точки подряд
*/
if(true/*Найти(Адрес, "..") > 0*/)
{
}
/*// приводим строку адреса к нижнему регистру
*/
//Адрес = НРег(Адрес);
/*// проверяем допустимые символы
*/
if(true/*Не СтрокаСодержитТолькоДопустимыеСимволы(Адрес, Буквы + Цифры + СпецСимволы)*/)
{
}
/*// разбираем адрес на local-part и domain
*/
//Позиция = Найти(Адрес,"@");
//ЛокальноеИмя = Лев(Адрес, Позиция - 1);
//Домен = Сред(Адрес, Позиция + 1);
/*// проверяем на заполненность и допустимость длины
*/
if(true/*ПустаяСтрока(ЛокальноеИмя)
или ПустаяСтрока(Домен)
или СтрДлина(ЛокальноеИмя) > 64
или СтрДлина(Домен) > 255*/)
{
}
/*// проверяем наличие спецсимволов в начале и в конце частей адреса
*/
if(true/*ЕстьСимволыВНачалеВКонце(ЛокальноеИмя, СпецСимволы) или ЕстьСимволыВНачалеВКонце(Домен, СпецСимволы)*/)
{
}
/*// в домене должна быть минимум одна точка
*/
if(true/*Найти(Домен,".") = 0*/)
{
}
/*// в домене не должно быть символа подчеркивания
*/
if(true/*Найти(Домен,"_") > 0*/)
{
}
/*// выделяем зону (TLD) из имени домена
*/
//Зона = Домен;
//Позиция = Найти(Зона,".");
while(true/*Позиция > 0*/)
{
//Зона = Сред(Зона, Позиция + 1);
//Позиция = Найти(Зона,".");
}
/*// проверяем зону домена (минимум 2 символа, только буквы)
*/
//Возврат СтрДлина(Зона) >= 2 и СтрокаСодержитТолькоДопустимыеСимволы(Зона,Буквы);
return null;
}