День добрый!
Есть строки:
WWW.SIGMAKALON.COM
STEVE.PULLEN@CARLBOM.CO.UK   WWW.CARLBOM.CO.UK
WWW.PRO-NAUTAS.COM  INFO@PRO-NAUTAS.DE
Нужно отдельно выделить название сайта, отдельно мыло.
Подскажите, пожалуйста.

Что-то все молчат....
Я одна такой дурью маюсь? :)

(0) в чем вопрос?? есть @ - значит почта, иначе - адрес

(0) WWW.SIGMAKALON.COM, WWW.CARLBOM.CO.UK? WWW.PRO-NAUTAS.COM   - это названия сайтов.
STEVE.PULLEN@CARLBOM.CO.UK, INFO@PRO-NAUTAS.DE - это мылы.

Зы, можешь не благодорить.

Как их программно обработать?
Есть строка (см. (0)).
Нужно на выходе получить:
мыло - если есть (WWW.SIGMAKALON.COM, WWW.CARLBOM.CO.UK? WWW.PRO-NAUTAS.COM)
сайт - если есть (STEVE.PULLEN@CARLBOM.CO.UK, INFO@PRO-NAUTAS.DE)
КАК?

(4) нормально объясни - что и откуда нужно получить

(4) наоборот мало с @уже говорили

фотку! фотку!

(4) Сначала преобразуешь всё в многострочный текст. Потом через ПолучитьСтроку перебираешь этот текст.
В каждой полученной строке ищешь собаку, если есть, то мыло, иначе сайт.

(8)+1

(8) Принцип понятен :))). Как преобразовать в многострочный тескт?

(8) +1

(10) СтрЗаменить пробелы на Символы.ПС

(12) СПАСИБО!!!!

v8: Как разбить строку с разделителями на подстроки?

(13) Фотку давай.

(15) +1

Процедура КнопкаСформироватьНажатие(Кнопка)
   // Вставить содержимое обработчика.
   Строки=Новый Массив;
   Строки.Добавить("WWW.SIGMAKALON.COM");
   Строки.Добавить("STEVE.PULLEN@CARLBOM.CO.UK   WWW.CARLBOM.CO.UK");
   Строки.Добавить("WWW.PRO-NAUTAS.COM  INFO@PRO-NAUTAS.DE");
   Для Каждого Строка Из Строки Цикл
       МногострочнаяСтрока = СтрЗаменить(Строка, " ",Символы.ПС);
       Для СчЦ = 1 по СтрЧислоСтрок(МногострочнаяСтрока) Цикл
             ОтдСтрока=СтрПолучитьСтроку(МногострочнаяСтрока,СчЦ);
           ПозСимв=Найти(ОтдСтрока,"@");
           Если СтрДлина(ОтдСтрока)>3 Тогда
               Если ПозСимв>0 Тогда
                   Сообщить(ОтдСтрока+" это электронный адрес");
               Иначе
                   Сообщить(ОтдСтрока+" это сайт");
               КонецЕсли
           КонецЕсли;
       КонецЦикла;
   КонецЦикла;
КонецПроцедуры

Функция ЭтоСайт(ИнтернетАдрес)
   Если Найти("@", ИнтернетАдрес) > 0 Тогда
       Возврат Ложь;
   Иначе
       Возврат Истина;
   КонецЕсли;
КонецФуции;

Интернет-адрес не может содержать символ "@" и наоборот, в почтовом адресе он всегда присутствует.