Email-Adressen in einer Textdatei suchen

[Thomas F]

Hallo,

wie kann ich in einer Textdatei ,RTF-Datei oder einer HTML-Datei
Email-Adressen finden und kopieren und in einer Datenbank , bzw. Textdatei einfügen.
Ich vermute man muß das @-Zeichen,und den "."-Punkt im Text suchen und dann den String kopieren.
Aber so ganz bekomm ich das nicht hin, weil die Email oft mit einem Komma"," oder auch ";" endet.

[Sharky]

Zitat von Thomas F:

... Aber so ganz bekomm ich das nicht hin, weil die Email oft mit einem Komma"," oder auch ";" endet.

Hai Thomas,

eine eMail-Adresse kann nicht mit einem "," oder ";" enden. In der Theorie musst Du zuerst nach dem @ suchen.
Dann nach links und rechts bis zu einem zeichen suchen das nicht bestandteil einer eMail Adresse sein kann.
" ", "," , ";" usw.
Alles was dazwichen ist, ist dann mit hoher wahrscheinlichkeit eine Mailadresse.

[Namenloser]

Für sowas sind Reguläre Ausdrücke (RegExp) wie geschaffen.

[Thomas F]

Zitat von Sharky:

Zitat von Thomas F:

... Aber so ganz bekomm ich das nicht hin, weil die Email oft mit einem Komma"," oder auch ";" endet.

Hai Thomas,

eine eMail-Adresse kann nicht mit einem "," oder ";" enden. In der Theorie musst Du zuerst nach dem @ suchen.
Dann nach links und rechts bis zu einem zeichen suchen das nicht bestandteil einer eMail Adresse sein kann.
" ", "," , ";" usw.
Alles was dazwichen ist, ist dann mit hoher wahrscheinlichkeit eine Mailadresse.

..aber wie schaut der Code aus ?

mit "Compare" oder "FindText"

......das mit dem Komma war anders gemeint

Nach einer Email-Adresse muß nicht ein Leerzeichen kommen,

sondern manchmal auch ein Komma,oder Strichpunkt

[Thomas F]

Schon gefunden....

.....hier stehts was dazu


eMailadresse aus String filtern

[Thomas F]

....so ganz funktionierts doch noch nicht
Eigentlich wollte ich ne Datei mit OpenDialog.execute öffnen ,
und dann sollten alle Email-Adressen der Datei in einem
Memo-Textfeld aufgelistet werden.
Er zeigt aber immer nur eine an.

Zitat von Sharky:

Hai,

das habe ich mal so schnell hingetippelt.

Delphi-Quellcode:

function ExtractiMehl (aValue : string) : string;
var
  at : integer;
  start : integer;
  stop : integer;
  permittedChar : SET of Char;
begin
  permittedChar := ['a'..'z','.','_','-'];
  aValue := AnsiLowerCase(aValue);
  at := Pos('@',aValue);
  start := at-1;
  while (aValue[start] in permittedChar) and (start > 0) do
  begin
    Dec (start)
  end;
  stop := at+1;
  while (aValue[stop] in permittedChar) and (stop < length(aValue)) do
  begin
    Inc (stop)
  end;
  result := Copy (aValue,start,(stop-start));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Label1.Caption := ExtractiMehl(Edit1.Text)
end;

[Die Muhkuh]

Sonderlich gut ist das ja nicht.

Beim kurzen drüberschauen, sollte die Funktion ja auch sowas als E-Mail erkennen ...---@...de

Ich würde das ganze auch mit regulären Ausdrücken lösen.

[Thomas F]

Zitat von Die Muhkuh:

Sonderlich gut ist das ja nicht.

Beim kurzen drüberschauen, sollte die Funktion ja auch sowas als E-Mail erkennen ...---@...de

Ich würde das ganze auch mit regulären Ausdrücken lösen.

....ich habs ausprobiert, funktioniert einwandfrei