Visual Basic Wörter ausschneiden

[nd88]

Hallo,

Ich bräuchte dringend Hilfe.

Unszwar gibt es bei Active Directory ProxyAddresses, das folgendermaßen aussicht :

smtp:Muster@Mustermann.de

SMTP:Muster1.Vogler@Mustermann.de

smtp:Muster2@Mustermann.co.uk

smtp:Postmaster@Mustermann.de

X400:c=DE;a= ;p=XXX;o=XXX;s=Muster;g=Mann;i=MMA;

smtp:Webmaster@Mustermann.de

Hier sollen die E-Mail Adressen einzeln ausgelesen (Visual Basic) und dann ins Datenbank übertragen werden. Also hier z. B. 5 Email Adressen in 5 Spalten in der Datenbank....

Danke schön

[Sturm]

Und was ist jetzt das Problem? :confused:

Sind dir die Funktionen InStr() und Mid() ein Begriff?

Mit denen sollte man sicher etwas zusammenbauen können.

Die kompliziertere Variante wäre das Benutzen von regulären Ausdrücken... Dazu musst du allerdings mal googeln wenn es dich interessiert, in VB hab ich das noch nicht benötigt...

Gruß, Sturm

[nd88]

Ich hab das schon mit MID und INSTR versucht, komm aber leider nicht weiter...

Da ich alle E-Mail Adressen brauch und ich in dieser Spalte z. B. 5 Email Adressen hab.

hab auch so versucht:

Ergebnis = Left(Text,InStr(1,Text,"@")+6)

Krieg dann aber die restlichen nicht raus?

[Sturm]

Hmm...

Du könntest mal versuchen, mit einem Split die einzelnen Sätze zu trennen.

Als Trennungszeichen könnte man vbcrlf nehmen, wenn jeder Satz in einer neuen Zeile steht.

Danach einfach in dem resultierenden Array jeden String überprüfen, ob das eine Email-Adresse ist. Wenn ja: Email auslesen und übertragen.