Hallo Leute
hab mal versucht ein Skript zu basteln was aus einem Text alle E-Mail Adressen raussucht und ausgibt... leider funktioniert das nicht...
#include <Array.au3>
MsgBox(1,"",_GetEMails(ClipGet()))
Func _GetEMails($vText)
Local $vStringSplit = StringSplit($vText,"@")
_ArrayDisplay($vStringSplit)
$vReturn = ""
For $vCounter = 1 To $vStringSplit[0] Step +1
$vUser = StringSplit($vStringSplit[$vCounter]," ")
$vUserCount = $vUser[0]
$vDomain = StringSplit($vStringSplit[$vCounter +1]," ") ;HIER LIEGT DER FEHLER, $vStringSplit[2] müsste theoretisch doch existieren oO...
$vReturn &= $vUser[$vUserCount] & "@" & $vDomain[1] & @CRLF
Next
Return $vReturn
EndFunc
Demo Text
ZitatHallo ich bin Hans und meine E-Mail ist abc@defg.hi email@cool.com
test@mail.com das hier ist eine weiter E-Mail adresse
Danke mal im Voraus
Grüße sl4y3r