Как в memo найти все e-mail'ы

[Черничный]

Как в memo найти все e-mail'ы? и добавить к прмеру в список

[Роман Радер]

по @))))) можно. а потом до [пробела, символа кроме точки] вперед и назад. если все буквы англ, то скорее всего это и есть он.

[dr.Chas]

ты же уже спрашивал

http://www.programmersforum.ru/showthread.php?t=25882

Что то не получаеться?

[SunKnight]

Парсер нужно соорудить. Это в гугл и ищим.

[Черничный]

спрашивал немного другое! Мне бы кусочек кода... Уже искал, и тут и на яндексе, в исходниках... да же видал давным давно брузер вытаскивавший ссылки и e-mail'ы, но че то не нашел.

[Rusl92]

pas,copy -используй и все!
прочитай про них и разберись
это просто несерьезно!

[Alter]

Несовсем корректно некоторые ссылки находит, но находит:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   i,II, p :Integer;
   s :string;
begin
    ListBox1.Clear;
    II := Memo1.Lines.Count;
   for i := 0 to II - 1 do
   begin
     if Pos('http://', Memo1.Lines.Strings[i])>0 then
     begin
       s := '';
       for p := Pos('http://', Memo1.Lines.Strings[i]) to
           Length(Memo1.Lines.Strings[i]) do
        if Memo1.Lines.Strings[i][p]<>' ' then
         s := s + Memo1.Lines.Strings[i][p]
        else break;

       while Pos(s[Length(s)], '..;!")]}?''>')>0 do
       Delete(s, Length(s), 1);
      ListBox1.Items.Add(s);
     end;
   end;

  if ListBox1.Items.Count>0 then
     Caption := IntToStr(ListBox1.Items.Count)+
       ' Адресс найден'
   else
     Caption := 'Адресс не найден';
end;

end.

Может этот код будет полезен, для нахождения E-MAIL может чем-то поможет.

[dr.Chas]

Каряво написал но за то работает, если чё сам исправляй. Я так предположил уже когда написал, циклы while можно поменять на repeat, это поможет избежать лишних if, хотя... Ну это ты уже сам.

[Черничный]

что то как то косо вытаскивает она мылы. С текстом и ссылкми... у меня условие такое
if (s[i]<>'"') and (s[i]<>'"') then

мыло между двойных ковычек

[Роман Радер]

Сообщение от Черничный

что то как то косо вытаскивает она мылы. С текстом и ссылкми... у меня условие такое
if (s[i]<>'"') and (s[i]<>'"') then

мыло между двойных ковычек

а это с какой радости???
зачем два одинаковых выражения (s[i]<>'"') еще на and брать??
и второе, мож я не понял, но при чем тут кавычки?