[skrypt] funkcja pokazywania zrdola, funkcja do kolejnej wersji eXplorer 2.3 Opcje

[Bastion]

Ciekaw jestem , co powiedzą spece (IMG:http://forum.php.pl/style_emoticons/default/smile.gif)

[PHP] pobierz, plaintext 
<?
 
function exp_part($part)
{
if ($part) { return False; } else { return True; }
}
 
function exp_php_source($sourcefile)
{
 ob_start();
 show_source($sourcefile) or die(&#092;"To nie jest zrodlo\");
 $source = ob_get_contents();
 ob_end_clean();
 
 // Rozbicie na tablice
 $source = explode('<br />',$source);
 
 for ($i = 0; $i < count($source); $i++)
 {
  // parzystosc komorki TD do zmiany koloru
  $part = exp_part($part);
  if ($part) { $bg = &#092;"#F8F8F8\"; } else { $bg = \"#E8E8E8\"; }
 
  // poniewaz zalezy mi aby kazda linia byla jednym wierszem tabeli
  // a kolorowanie przesz show_source() przebiega w specyficzny sposob
  // zainstniala koniecznosc zapamietywania koloru w wierszu powyzej
  $fooA = strrpos($source[$i],'<span style=\"color: ');
  $fooB = strrpos($source[$i],'</span>');
 
  // jesli kolor nie jest zamkniety to znaczy ze bedzie uzyty w komorce nizej
  if ($fooA>$fooB)  { $fooC = SubStr($source[$i],$fooA+19,8); } else { $fooC = &#092;"#000000\"; }
 
  // generowanie linii do bufora
  $view.= &#092;"<tr>n\";
  $view.= &#092;"<td valign=top align=center bgcolor=black><font color=white><code><strong>\".($i+1).\"</strong></code></font></td>n\";
  $view.= &#092;"<td bgcolor=\"$bg\"><code><nobr>&nbsp;$fooD$source[$i]<span></nobr></code></td>n\";
  $view.= &#092;"</tr>n\";
 
  // jesli ustawiony jest fooC to znaczy ze w nastepnym przebiegu petli bedzie ustaw
ony
  // przymusowy kolor
  if (isset($fooC)) { $fooD = '<span style=\"color: '.$fooC.'\">'; }
 }
 
 echo &#092;"<table border=0 cellpadding=1 cellspacing=1>$view</table>\";
 
}
 
?>
[PHP] pobierz, plaintext