Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / FoxPro, Visual FoxPro Новый топик    Ответить
 Поиск в строке, тупим ???  [new]
maruska121
Guest
ловлю адрес почтовый
в виде

"ecl_kazna@pochta.ru" <ecl_kazna@pochta.ru>
мне нужно прочитать строчку и вытащить из <ecl_kazna@pochta.ru> только ecl_kazna@pochta.ru
без ковычек просто название почтового ящика
делаю так

LsN1=at('<',ALLTRIM(vvv.From))
LsNaimEmail=SUBSTR(ALLTRIM(vvv.From),LsN1,LsN1)


LsN11=at('<',ALLTRIM(LsNaimEmail))
LsNaimEmail11=SUBSTR(ALLTRIM(LsNaimEmail),1,LsN1-1)
*!* MESSAGEBOX(LsNaimEmail11)

LsN3=at('>',ALLTRIM(LsNaimEmail11),1)

LsN2=at('<',ALLTRIM(LsNaimEmail11),1)

LsNaimEmail1=SUBSTR(ALLTRIM(LsNaimEmail11),LsN2+1,LsN3-LsN2-1)
?LsNaimEmail1

но эта не универсально, т.к. если приходит вот такой адрес

"ig S" <ig.rept@gmail.com>
то я не могу вытащить нужный мне адрес ig.rept@gmail.com

помогите в написании универсальной искалки пожалуйста ???




смотрела в сторону
tt = "<ecl_kazna@pochta.ru>"
? strtran( strtran( tt, "<"), ">")

тоже ничего не помогает, помогите пожалуйста..
8 июн 10, 08:20    [8905685]     Ответить | Цитировать Сообщить модератору
 Re: Поиск в строке, тупим ???  [new]
Игорь Горбонос
Member

Откуда: Днепропетровск
Сообщений: 4236
maruska121,

Не совсем понял, зачем первые две строки кода???
А так-же и вторая часть кода :)

У тебя все отлично находится, это ты где-то запуталась :)
LsNaimEmail11 = ["ecl_kazna@pochta.ru" <ecl_kazna@pochta.ru>]
LsN3=at('>',ALLTRIM(LsNaimEmail11),1)

LsN2=at('<',ALLTRIM(LsNaimEmail11),1)

LsNaimEmail1=SUBSTR(ALLTRIM(LsNaimEmail11),LsN2+1,LsN3-LsN2-1)
?LsNaimEmail1
LsNaimEmail11 = ["ig S" <ig.rept@gmail.com>]
LsN3=at('>',ALLTRIM(LsNaimEmail11),1)

LsN2=at('<',ALLTRIM(LsNaimEmail11),1)

LsNaimEmail1=SUBSTR(ALLTRIM(LsNaimEmail11),LsN2+1,LsN3-LsN2-1)
?LsNaimEmail1
У меня выдает:
ecl_kazna@pochta.ru
ig.rept@gmail.com

8 июн 10, 09:13    [8905804]     Ответить | Цитировать Сообщить модератору
 Re: Поиск в строке, тупим ???  [new]
прошелмимо
Member [заблокирован]

Откуда: Из Курска понаехал
Сообщений: 10363
lcValue = ["ecl_kazna@pochta.ru" <ecl_kazna@pochta.ru>]


? StrExtract(lcValue,[<],[>])
8 июн 10, 09:18    [8905826]     Ответить | Цитировать Сообщить модератору
 Re: Поиск в строке, тупим ???  [new]
maruska121
Guest
Прибольшущее спасибочки, прибольшущее !!!
8 июн 10, 09:41    [8905943]     Ответить | Цитировать Сообщить модератору
 Re: Поиск в строке, тупим ???  [new]
прошелмимо
Member [заблокирован]

Откуда: Из Курска понаехал
Сообщений: 10363
maruska121
Прибольшущее спасибочки, прибольшущее !!!


https://www.sql.ru/forum/actualthread.aspx?tid=590563&hl=strextract

а не надоело троллить и ботить?

тупо смысл объясните:
1. радость
2. привлечение интереса к ресурсу
3. хз ?
8 июн 10, 10:04    [8906082]     Ответить | Цитировать Сообщить модератору
 Re: Поиск в строке, тупим ???  [new]
SindoMeon
Member

Откуда: Из библиотеки
Сообщений: 649
прошелмимо
maruska121
Прибольшущее спасибочки, прибольшущее !!!


https://www.sql.ru/forum/actualthread.aspx?tid=590563&hl=strextract

а не надоело троллить и ботить?

тупо смысл объясните:
1. радость
2. привлечение интереса к ресурсу
3. хз ?

4. курсовик от одного и того же преподавателя? только студенты из года в год меняются.
8 июн 10, 11:07    [8906592]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить