Как из файла вытащтиь email адрес

[vasykas]

по форуму искал, не нашел
как при помощи StringRegExpReplace найти/вырезать email адрес
с html или txt файла
спасибо

 

[AZJIO]

vasykas
Скачать RegExp и там уже есть этот шаблон и другие. Кстати в справке тоже есть, где описываются регулярные выражения.

 

[vasykas]

спасибочки.
ну не дается мне RegExp ни как не могу въехать. :stars:

 

[armenxxx1]

$Text = FileRead("email.txt")
$EmailFound = StringRegExp($Text, "([A-Za-z0-9._%-]+@[a-zA-Z0-9.-]+\.[a-zA-Z]{2,4})", 3)
if @extended = 1 Then
    for $i = 0 to UBound($EmailFound) - 1
        MsgBox(0, "E-Mail", $EmailFound[$i])
    Next
Else
    MsgBox(0, "E-Mail", "No E-Mail addressess found in the supplied text")
EndIf

 

[vasykas]

спасибо всем! :beer: