ich wollte ne Tabelle machen die sich aus der Zwischenablage (oder auch aus einer Textbox egal) nen Quelltext von ner Website holt, und dann alle E-Mail adressen rausfiltert.
Es soll also in nem großen String immer nach "@" gesucht werden, dann bis zum rechten leerzeichen, dann das linke leerzeichen finden und string kopieren.
Ich hab mal das gemacht (Ich mache meine Texte immer so komisch :) )
Aber der hängt mir immer schon von anfang an ein Leerzeichen dran, so das die schleife direkt aufhört.
:(
________________________________________________________
Dim Text, at, adresse, position, leerzeichen As String
Dim zahl, links, rechts, n, x, leerzeichen2 As Long
at = "@"
Text = T_import.Text
Text = "Die Email adresse lautet : dannyfaak@yahoo.de "
'Durchsuchen nach @ Zeichen
position = InStr(Text, at)
x = 100
rechts = InStr(position, Text, " ") - 1
For n = 1 To x
adresse = Mid(Text, rechts - n, rechts)
If InStr(1, adresse, "") = 1 Then
n = x
End If
Next n
____________________________________________