Имя: Пароль:
IT
 
Оставить адрес эл. почты
0 Arikite
 
09.04.12
13:54
Есть строка в Excel
;"info@kirena.ru";"Активен";"Доступен";"";"";"09.04.2012 08:47:00";"06.04.2012 09:16:42";""

Как можно оставить только адрес эл. почты?
1 Ksandr
 
09.04.12
13:57
РазложитьСтрокуВМассивПодстрок в типовых
потом
электропочта = СтрЗаменить(Массив[1], """", "");
2 Мизантроп
 
09.04.12
13:59
(1) регулярными выраж. проще
3 Ksandr
 
09.04.12
14:01
(2) Тоже вариант.
Берется консоль рег выражений (не знаю, есть ли такая под 1С) и методом курения мануалов получается то что нужно))
4 GROOVY
 
09.04.12
14:04
(3) Проще сделать каким-то инструментом, берется утилита какого-то инструмента, читается мануал какого-то инструмента и profit!
:)
5 Cube
 
09.04.12
14:06
Если ТекСтрока = ";"info@kirena.ru";"Активен";"Доступен";"";"";"09.04.2012 08:47:00";"06.04.2012 09:16:42";""" Тогда
   ТекСтрока = "info@kirena.ru";
КонецЕсли;
%))
6 Wobland
 
09.04.12
14:07
7 DimVad
 
09.04.12
14:08
Что если просто вытащить подстроку между двумя первыми ";" и отбросить символы " Что-то типа:

   СтрокаИсходная = Сред(СтрокаИсходная, Найти(СтрокаИсходная, ";") + 2);
   Адрес = Лев(СтрокаИсходная, Найти(СтрокаИсходная, ";") - 2);
8 Has
 
09.04.12
14:23
=ПСТР(A1;3;НАЙТИ(";";A1;3)-1-3)
9 Torquader
 
09.04.12
20:51
Если формат действительно semicolon-separated, то разложить по нему и получить набор слов - в котором есть "собака" - то и адрес.

В общем случае, перебираем строку и сравниваем с массивом, в массиве символы, которые могут быть в адресе электронной почты - если символа нет в массиве, то это "пробел", то есть заканчиваем текущее слово и проверяем, что в нём присутствует собака - если есть, то это адрес, если нет - то слово просто отбрасывается и идём к следующему. Также полезно проверять наличие доменоподобной части и наличие символов национальных алфавитов, чтобы можно было слово "вычеркнуть" из адреса.
10 aleks-id
 
09.04.12
20:58
мнстр = СтрЗаменить(СтрокаВвода,"""",Символы.ПС);
всегострок=мнстр.КоличествоСтрок();
Для сч=1 По всегострок Цикл
  ааа=СтрПолучитьСтроку(мнстр,сч);
  если Найти(ааа,"@")>0 Тогда
     Сообщить("уря, емыл нашли! вот он: "+ааа);
     Прервать;
  КонецЕсли;
КонецЦикла;
11 aleks-id
 
09.04.12
21:02
+(10)
мнстр = СтрЗаменить(СтрокаВвода,Символ(34),Символы.ПС);
12 Tatitutu
 
09.04.12
21:13
(0) У тебя есть файл EXCEL
найди для себя функцию - Данные - Текст по столбам
- разделить =;
и получаешь табличку с колонками - Все

а если на языке 1С
ИзСтрокиСРазделителями()
в список