eMailadresse aus String filtern

[emsländer]

Moin,

ich habe einen String in der Form: Vorname Nachname, Anschrift ...bla .. [e-mail] blubber


Ich benötige aus diesem Kauderwelsch die Mailaddi

Hat da jemand einen Tip`?

Danke

Gruss

EL

[Sharky]

Hai EL,

das einfachste wäre wohl Du ermittelst die Position des @ und gehst dann nach links bzw. rechts bis Du auf ein Zeichen triffst welches in einer eMail-Adresse nicht mehr zulässig ist.

[emsländer]

Zitat:

Zitat von Sharky

Hai EL,

das einfachste wäre wohl Du ermittelst die Position des @ und gehst dann nach links bzw. rechts bis Du auf ein Zeichen triffst welches in einer eMail-Adresse nicht mehr zulässig ist.

Davor und dahinter ist jeweils ein Leerzeichen.

Hast Du für mich da evtl. ein Codeschnipsel?

Gruss

EL

[BenjaminH]

Oder du zerlegst den Text mit Explode bei den Leerzeichen
und suchst in den einzelnen teilen nach @, das braucht aber sicher länger als Sharkys lösung...

[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;

[emsländer]

Zitat:

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;

He Sharky,

klappt !!!!

vielen lieben Dank!

Gruss

EL

[Sandi007]

jetzt wird nur noch eine Lösung für solche Fälle benötigt:

"Alle schreiben an [e-mail]. Der Text soll..."
"Alle schreiben an [e-mail]... Der Text soll..."
"Alle schreiben an [e-mail], der Text soll..."

Grüße aus dem Land der Sonderfälle :shock:

[jfheins]

Hallo Sandi007,
Fall 1 funktioniert ohne Probleme. Es gibt einen virtuellen Keks, wenn du mir sagen kannst, warum :mrgreen:
Die anderen beiden Fälle lassen sich erledigen, wenn du am Ende Zeichen löschst, die keine Buchstaben sind.

Wobei der Code natürlich der Aufgabenstellung gerecht wird:

Zitat:

Davor und dahinter ist jeweils ein Leerzeichen.

P.S.: Der Thread ist 7 Jahre alt, ich hoffe das war dir bewusst. Falls du ein eigenes Problem haben solltest, mache bitte einen neuen Thread auf ;-)

[omata]

@Sandi007: Verwende Reguläre Ausdrücke für solche Aufgabenstellungen.

Komponente siehe z.B. hier.

[Valle]

Oder du verwendest den obigen Code weiter und wendest anschließend eine Funktion wie rtrim an.

Die kann man auch leicht selbt machen, mit einer einfachen Schleife, falls du sie für Delphi nicht findest. (Solange letztes Zeichen Punkt oder Komma ist, entferne das letzte Zeichen)

Falls du es doch mit einer RegExp machen solltest, denke bitte daran, dass es auch andere Endungen als .de und .com gibt. Es gibt auch TopLevel-Domains, die länger als 4 Buchstaben sind. Und auch eine Domain ohne einen Punkt kann eine gültige Domain sein. Leider gibt es immer noch viel Software, die es da zu genau nimmt und verschiedene, völlig legale E-Mail-Adressen als inkorrekt erkennt...

Liebe Grüße,
Valentin