В принципе код составил из двух готовых примеров.
Но возникает вопрос в неработоспособности.
При запуске просто зацикливается.
В идеале хотелось бы что бы складывал в txt файлик -это я ещё не сотворил.
Помогите пожалуйста разобраться с циклами.
И объясните мне пожалуйста вот эту строчку ([A-Za-z0-9._-]+@[A-Za-z0-9.-]+\.[A-Za-z]{2,4})
Прочитал я документацию но не разобрался - пробывал забивать емайлы типа [email protected] -скрипт тоже их считает корректными :(
Но возникает вопрос в неработоспособности.
Код:
#Include<Array.au3>
$nOffset = 1
$bak = ClipGet()
$sUrl = $bak
$oHTTP = ObjCreate('WinHttp.WinHttpRequest.5.1')
$oHTTP.Open('GET', $sUrl, False)
$oHTTP.Send('')
$oHTTP.WaitForResponse
$sHTML = $oHTTP.ResponseText
;ConsoleWrite($sHTML & @CRLF)
;Найти [A-Za-z0-9._-]+@[A-Za-z0-9.-]+\.[A-Za-z]{0,1}) - найти почтовые ящики
While 1
$array = StringRegExp($sHTML, '([A-Za-z0-9._-]+@[A-Za-z0-9.-]+\.[A-Za-z]{2,4})',1,$nOffset)
ConsoleWrite($array & @CRLF)
If @error = 0 Then
$nOffset = @extended
Else
Exit
EndIf
For $i = 0 to UBound($array) - 1
msgbox(0, "RegExp, тест с параметром 1 - " & $i, $array[$i])
Next
WEnd
При запуске просто зацикливается.
В идеале хотелось бы что бы складывал в txt файлик -это я ещё не сотворил.
Помогите пожалуйста разобраться с циклами.
И объясните мне пожалуйста вот эту строчку ([A-Za-z0-9._-]+@[A-Za-z0-9.-]+\.[A-Za-z]{2,4})
Прочитал я документацию но не разобрался - пробывал забивать емайлы типа [email protected] -скрипт тоже их считает корректными :(