Optimering/hastighed af kode...

Denne kode virker fint nok.. men den er ALT for langtsom... kan det skrives om ?
<?
for ($i=0;$i<count($RetrieveFile);$i++) {           
if (ereg(\"<!--  Beskrivende FORLAGSNOTE -->\", $RetrieveFile[$i])) {
            $ting = strip_tags($RetrieveFile[$i+1]);
            $Beskrivelse = \"<!--start-->$ting<br><br><!--slut-->\";
            }
$RetrieveFile[$i] = strip_tags($RetrieveFile[$i]);
        if (ereg(\"ISBN\", $RetrieveFile[$i])) {
            $RetrieveFile[$i] = eregi_replace(\"[^0-9\\-]+\", \"\", $RetrieveFile[$i]);
            $Isbn = \"$RetrieveFile[$i]<br><br>\";
            }

        if (ereg(\"udgave,\", $RetrieveFile[$i])) {
            }
        if (ereg(\"sider.\", $RetrieveFile[$i])) {
            $RetrieveFile[$i] = eregi_replace(\"[^0-9]+\", \"\", $RetrieveFile[$i]);
            $sider = \"$RetrieveFile[$i]<br><br>\";
            }
        if (ereg(\"Pris(.*)kr.\", $RetrieveFile[$i])) {
            $RetrieveFile[$i] = eregi_replace(\"[^0-9\\,]+\", \"\", $RetrieveFile[$i]);
            $pris = \"$RetrieveFile[$i]\";
            }
}

print \"$Beskrivelse\\n\";
print \"$Isbn\\n\";
print \"$udgave\\n\";
print \"$sider\\n\";
print \"$pris\\n\";
?>Denne kode virker fint nok.. men den er ALT for langtsom... kan det skrives om ?
<?
for ($i=0;$i<count($RetrieveFile);$i++) {           
if (ereg(\"<!--  Beskrivende FORLAGSNOTE -->\", $RetrieveFile[$i])) {
            $ting = strip_tags($RetrieveFile[$i+1]);
            $Beskrivelse = \"<!--start-->$ting<br><br><!--slut-->\";
            }
$RetrieveFile[$i] = strip_tags($RetrieveFile[$i]);
        if (ereg(\"ISBN\", $RetrieveFile[$i])) {
            $RetrieveFile[$i] = eregi_replace(\"[^0-9\\-]+\", \"\", $RetrieveFile[$i]);
            $Isbn = \"$RetrieveFile[$i]<br><br>\";
            }

        if (ereg(\"udgave,\", $RetrieveFile[$i])) {
            }
        if (ereg(\"sider.\", $RetrieveFile[$i])) {
            $RetrieveFile[$i] = eregi_replace(\"[^0-9]+\", \"\", $RetrieveFile[$i]);
            $sider = \"$RetrieveFile[$i]<br><br>\";
            }
        if (ereg(\"Pris(.*)kr.\", $RetrieveFile[$i])) {
            $RetrieveFile[$i] = eregi_replace(\"[^0-9\\,]+\", \"\", $RetrieveFile[$i]);
            $pris = \"$RetrieveFile[$i]\";
            }
}

print \"$Beskrivelse\\n\";
print \"$Isbn\\n\";
print \"$udgave\\n\";
print \"$sider\\n\";
print \"$pris\\n\";
?>Denne kode virker fint nok.. men den er ALT for langtsom... kan det skrives om ?
<?
for ($i=0;$i<count($RetrieveFile);$i++) {           
if (ereg(\"<!--  Beskrivende FORLAGSNOTE -->\", $RetrieveFile[$i])) {
            $ting = strip_tags($RetrieveFile[$i+1]);
            $Beskrivelse = \"<!--start-->$ting<br><br><!--slut-->\";
            }
$RetrieveFile[$i] = strip_tags($RetrieveFile[$i]);
        if (ereg(\"ISBN\", $RetrieveFile[$i])) {
            $RetrieveFile[$i] = eregi_replace(\"[^0-9\\-]+\", \"\", $RetrieveFile[$i]);
            $Isbn = \"$RetrieveFile[$i]<br><br>\";
            }

        if (ereg(\"udgave,\", $RetrieveFile[$i])) {
            }
        if (ereg(\"sider.\", $RetrieveFile[$i])) {
            $RetrieveFile[$i] = eregi_replace(\"[^0-9]+\", \"\", $RetrieveFile[$i]);
            $sider = \"$RetrieveFile[$i]<br><br>\";
            }
        if (ereg(\"Pris(.*)kr.\", $RetrieveFile[$i])) {
            $RetrieveFile[$i] = eregi_replace(\"[^0-9\\,]+\", \"\", $RetrieveFile[$i]);
            $pris = \"$RetrieveFile[$i]\";
            }
}

print \"$Beskrivelse\\n\";
print \"$Isbn\\n\";
print \"$udgave\\n\";
print \"$sider\\n\";
print \"$pris\\n\";
?>