script na vytahovanie emailov

<form action="vytiahni_email_zo_stranky.php3" method="post">
<textarea cols="30" rows="30" name="stranka"></textarea>
<input type=submit>
</form>

<?
if(!IsSet($stranka)) $stranka="";

require "../global.php3"; // radsej si zapnite REG GLOBALS NA ON

$stranka=str_replace(" ", "X", $stranka);
$stranka=str_replace("\n", "X", $stranka);

$pole=Explode("X", $stranka);

$cislo=1;

for($a=0;$a<Count($pole);$a++):

$slovo=trim($pole[$a]);

if(Ereg("^[_a-zA-Z0-9\.\-]+@[_a-zA-Z0-9\.\-]+\.[a-zA-Z]{2,4}$", $slovo)):
   echo "<b>$cislo:</b> $slovo<br>";
   $cislo=$cislo+1;
endif;

endfor;

?>