|
Оставить адрес эл. почты |
☑ |
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
|
отличная IT-новость!
|
|
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С
ИзСтрокиСРазделителями()
в список
|
|
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший