Hier geht es Darum aus allen ini Dateien im Verzeichnis heilige die Datei <a href="alphinc.html">alph.inc</a> zu erzeugen.
<br><br>
Programmbegin<br>
<b>
php<br>
$arr = array();<br>
<br>
$files = glob('heilige/*.inc');<br>
$echteAnz = 0;<br>
</b>
Schleife durch alle Dateien<br>
<b>
foreach($files as $file) {<br>
	include $file;<br>
	$echteAnz++;<br>
	</b>
	// Schleife durch alle Suchbegriffe
	<b>
	for ($a=0;$a<count($reg);$a++) {<br>
		$arr1 = array();<br>
		$arr1[0] = $reg[$a];<br>
		$arr1[1] = $regVor[$a];<br>
		$arr1[2] = $regNach[$a];<br>
		$arr1[3] = substr($file,8);<br>
		$geb1 = $Geburtstag;<br>
		if (strpos($geb1,'.')>0) $geb1=substr($Geburtstag,-4);<br>
		// $arr1[4] = floor($geb1/100)+1;<br>
		$arr1[4] = $jh;<br>
		$arr1[5] = $mw;<br>
		$arr1[6] = $amt[0];<br>
		$arr1[7] = $orte[0];<br>
		$arr1[8] = $unvershert;<br>
		$arr1[9] = $stigmata;<br>
		</b>
		Für jeden Suchbegriff wird ein Array im Array angelegt<br>
		<b>
		array_push($arr,$arr1);<br>
	}<br>
}<br>
<br>

sort($arr);<br>
<br>
</b>
Die Datei <a href="alphinc.html">alph.inc</a> wird neugeschrieben
<b>
$datei = fopen("alph.inc","w");<br>
fputs($datei,'<' . '?php' . "\n");<br>
fputs($datei,'$' . "heilige1 = array (\n");<br>
fputs($datei,'//' . " Spalte 0 Name (Sortierung)\n");<br>
fputs($datei,'//' . " Spalte 1 Was vor Name stehen soll\n");<br>
fputs($datei,'//' . " Spalte 2 Was nach Name stehen soll\n");<br>
fputs($datei,'//' . " Spalte 3 0\n");<br>
fputs($datei,'//' . " Spalte 4 Name der Datei\n");<br>
fputs($datei,'//' . " Spalte 5 Jahrhundert\n");<br>
fputs($datei,'//' . " Spalte 6 Man/Frau\n");<br>
fputs($datei,'//' . " Spalte 7 Amt\n");<br>
fputs($datei,'//' . " Spalte 8 Ort\n");<br>
fputs($datei,'//' . " Spalte 9 Unversert\n");<br>
fputs($datei,'//' . " Spalte 10 Stigmata\n");<br>
for ($a=0;$a<count($arr);$a++) {<br>
	$arr1=$arr[$a];<br>
	fputs($datei,"array (\"");<br>
	fputs($datei,$arr1[0]); // reg<br>
	fputs($datei,"\",\"");<br>
	fputs($datei,$arr1[1]); // regVor<br>
	fputs($datei,"\",\"");<br>
	fputs($datei,$arr1[2]); // regNach<br>
	fputs($datei,"\",0,\"");<br>
	fputs($datei,$arr1[3]); // Dateiname<br>
	fputs($datei,"\",");<br>
	fputs($datei,$arr1[4]); // jh<br>
	fputs($datei,",");<br>
	fputs($datei,$arr1[5]); // mw<br>
	fputs($datei,",\"");<br>
	fputs($datei,$arr1[6]); // amt<br>
	fputs($datei,"\",\"");<br>
	fputs($datei,$arr1[7]); // ort<br>
	fputs($datei,"\",");<br>
	fputs($datei,$arr1[8]); // unvers<br>
	fputs($datei,",");<br>
	fputs($datei,$arr1[9]); // stigmata<br>
	fputs($datei,"),\n");<br>
}<br>
fputs($datei,");\n");<br>
fputs($datei,"$" . "echteAnz=" . $echteAnz . ";\n");<br>
fputs($datei,'?' . '>' . "\n");<br>
fclose($datei);<br>
<br>
< html ><br>
< body ><br>
fertig<br>
< /body ><br>
< /html ><br>