Suche Hilfe für Stringverarbeitung mit Copy und Pos ...

[MoYo]

Hallo.
Nach langer Zeit wieder mal ein Beitrag von mir.
Es geht hier darum, dass ich eine Textdatei ausgelesen habe.
Diese wurde in ein String geschrieben damit ich damit arbeiten kann.

Die Textdatei ist von einer Datenbank. Deshalb steht alles in einer Zeile.
Ich brauche dort alle E-Mails wirklich alle.

Beispiel:
INSERT INTO bb1_users VALUES ('01', 'MoYo','pw','pw','[e-mail]','

So gehts halt immer weiter.
Ich habe mir überlegt, dass ich bis zum @ suchen lasse.
Danach von dort aus runter gehe bis zum '.
Von dem ' gehts wieder hoch bis zum nächsten '.
Und das halt was dazwischen liegt kopiere.

Natürlich muss ich die kopierten ... irgendwo reinschreiben.
Müsste mit Arrays möglich sein.

Dies wird halt so oft gemacht bis nix mehr da ist.

Habe zwar eine Idee ... aber keine Ahnung wie ich es lösen soll.

Hoffe, dass es etwas verständlich ist und ihr mir helfen könnt.

MFG,
MoYo

[mkinzler]

Ich würde anhand der Kommas trennen.

[MoYo]

Zitat von mkinzler:

Ich würde anhand der Kommas trennen.

Das würde auch gehen.
Wie gesagt ich kann mir zwar vorstellen was ich machen kann ...
aber weiß einfach nicht wie ...

...
Habe jetzt etwas weiter überlegt.

Position := Pos(SubStr, S);

Hiermit bestimme ich die Position vom 1. @.
Es hat die Position = 144.

Wie kann ich damit mit PosX das , oder ' davor suchen lassen.

Dann könnte ich ja die Position vom , oder ' bestimmen lassen.
Mit dem Suche ich dann das nächste , oder '.

Somit wüsste ich dann meine 1. E-Mail.
Kopieren lassen. In Array schreiben und das nächste suchen.

Jetzt gehts zur Umsetzung aber wie

[mkinzler]

Delphi-Quellcode:

p := 0;
for i := 1 to 4 do
    p := PosEx( ',', s, p);

[Apollonius]

Boing. Falscher gehts kaum, mkinzler.

Zitat:

Delphi-Quellcode:

p := 0;
for i := 1 to 4 do
    p := PosEx( ',', s, p);

Das muss heißen:

Delphi-Quellcode:

p := 1;
for i := 1 to 4 do
    p := PosEx( ',', s, p+1);

Sonst wird beim ersten mal Null zurückgegeben, weil der Offset Null ist, und wenn man das behoben hat, wird jedesmal das gleiche gefunden, deshalb p+1.

[MoYo]

Zitat von mkinzler:

Delphi-Quellcode:

p := 0;
for i := 1 to 4 do
    p := PosEx( ',', s, p);

sicher, dass es so funktioniert ?
Sucht der nicht hier mit das nächste , ?
Es wäre aber wichtig zuerst das , vor dem @ zu finden und danach erst das , nach dem @

[Apollonius]

Nimm wenn, dann bitte meinen Code!
Der sucht die Position des vierten Kommas, und zwischen dem vierten und dem fünften Komma steht doch die EMail-Adresse!?

[TBx]

Zitat von MoYo:

Die Textdatei ist von einer Datenbank.

Hast Du Zugriff auf diese Datenbank?
Meines Erachtens wäre es wesentlich sinnvoller, die Möglichkeiten des Datenbanksystems zu nutzen, um an die einzelnen Email-Adressen zu kommen. In der DB werden diese ja wohl nicht in einem einzigen Datenfeld eines einzigen Datensatzes stehen.

Gruß

onlinekater

[mkinzler]

Er sollte auch das davor finden, wenn man meine Fehler korrigiert

[MoYo]

Zitat von onlinekater:

Zitat von MoYo:

Die Textdatei ist von einer Datenbank.

Hast Du Zugriff auf diese Datenbank?
Meines Erachtens wäre es wesentlich sinnvoller, die Möglichkeiten des Datenbanksystems zu nutzen, um an die einzelnen Email-Adressen zu kommen. In der DB werden diese ja wohl nicht in einem einzigen Datenfeld eines einzigen Datensatzes stehen.

Gruß

onlinekater

Leider habe ich nur noch dieses letzte Backup.
Ich weiß, dass es z.B. mit PHP ohne Probleme geht so wie ich es mir denke.
Will aber auch mit Delphi klar kommen.