Есть почтовые сообщения которые хранятся на сервере в виде *.msg
Вот пример одного из них
code_29622.txt
Их надо распарсить и из строки которая указывает "Кому" (То: ) необходимо вытащить все почтовые адреса.
Когда в поле "То:" указан один получатель у меня получается вытащить почтовый адрес, а если в поле "То:" указано несколько получателей (Как в моем примере),
то получается вытащить тот почтовый адрес, который стоит первый.
Вот пример моих действий
code_29624.txt
Подскажите что я не учел, что надо доработать?
------------ Дoбавленo в 11.28:
Вот как додумал сам
Add(MainForm,3757232,119,154)
{
Width=518
Height=382
Position=1
link(onCreate,9502157:doLoad,[(173,174)(173,188)])
}
Add(Button,11450067,112,217)
{
Top=150
Caption="Поехали"
link(onClick,4504541:doSearch,[])
}
Add(Edit,4726583,196,84)
{
Top=110
Width=345
Text="msg\1.msg"
}
Add(Label,1361219,7,7)
{
Top=95
Width=85
Height=17
Caption="Искать в файле"
}
Add(Memo,7827633,252,217)
{
Top=185
Width=500
Height=70
}
Add(BlockFind,4504541,196,217)
{
IncludeBlock=1
StartBlock="To: "
EndBlock="Subject: "
link(onSearch,7827633:doAdd,[])
link(onEndSearch,10283401:doEnum,[(241,230)(241,286)])
link(Text,9502157:Text,[])
}
Add(StrList,9502157,196,154)
{
link(FileName,4726583:Text,[(209,135)(202,135)])
}
Add(MultiBlockFind,12591657,329,280)
{
TagList="{**c -- Комментарий -- c**}
{**s} < {**x} > {**e}"
link(onResult1,9383331:doAdd,[])
}
Add(Memo,9383331,399,280)
{
Top=265
Width=500
}
Add(ArrayEnum,10283401,266,280)
{
link(onItem,12591657:doMultiBlockFind,[])
link(Array,7827633:Array,[])
}
Но мне кажется что эта схема... как бы это сказать... - топорно сделана
Буду рад если кто то меня поправит и предложит элегантное решение
Поиск
Друзья
Администрация