![]() |
![]() |
![]() |
|
Оставить адрес эл. почты | ☑ | ||
---|---|---|---|---|
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С ИзСтрокиСРазделителями() в список |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |