Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailemVyřešeno Jak hromadne stahnout emailove adresy z webu

Poslal jsem ti seznam mailů v pm.
Vytvořil jsem jej tímto skriptem v autoitu (ex.txt je zdrojový kód té webové stránky):

#include <MsgBoxConstants.au3>
#include <StringConstants.au3>

Local $hFileOpen1 = FileOpen("ex.txt")
$out = FileRead ($hFileOpen1)
Local $hFileOpen2 = FileOpen("out.txt",2)

Local $aArray = 0, _
		$iOffset = 1
While 1
	$aArray = StringRegExp($out, "<a href=""mailto:(.*?)"">e-mail</a>", $STR_REGEXPARRAYMATCH, $iOffset)
	If @error Then ExitLoop
	$iOffset = @extended
	For $i = 0 To UBound($aArray) - 1
		FileWriteLine($hFileOpen2, $aArray[$i])
	Next
WEnd

FileClose($hFileOpen1)
FileClose($hFileOpen2)

Reakce na odpověď

1 Zadajte svou přezdívku:
2 Napište svou odpověď:
3 Pokud chcete dostat ban, zadejte libovolný text:

Zpět do poradny