<? /////////////// // Basisdaten /////////////// $berufeinfos = „daten/daten_berufe.xml“; /////////////////////////////////////////////// // DateiEinlesen - Datei oeffnen und einlesen /////////////////////////////////////////////// Function DateiEinlesen($dateiname) { If ($connection = @FOpen($dateiname, „r“)) { While (!FEoF($connection)) { $serverinfos .= FGets($connection, 4096); } FClose($connection); Return ($serverinfos); } } ////////////////////////////////// // HackMac - Ermittelt XML-Daten ////////////////////////////////// Function HackMac($quellzeugs, $vomanfang, $biszumende) { $tempgetyddel = Split($vomanfang, $quellzeugs); $tempgetyddel = $tempgetyddel[1]; $tempgetyddel = Split($biszumende, $tempgetyddel); $tempgetyddel = $tempgetyddel[0]; Return ($tempgetyddel); } ///////////////////////////////////////////////////////// // Hauptprogramm - Alle BerufeInfos von Pergon ausgeben ///////////////////////////////////////////////////////// Print(„\n

\n“); $serverinfos = DateiEinlesen($berufeinfos); $klassenarray = Split(„“, $serverinfos); Print(„

Folgende Berufe werden von derzeit aktiven Characteren ausgeübt.


\n“); Print(„ “); // Klasse ausgeben For ($k=1; $klassenarray[$k]!=„“; $k++) { $name = HackMac($klassenarray[$k], „“, „“); $gesamtzahl = HackMac($klassenarray[$k], „“, „“); $gesamtzahljhelom = HackMac($klassenarray[$k], „“, „“); Print(„ “); Print(„ $name

$gesamtzahl

$gesamtzahljhelom

\n“); $berufearray = Split(„“, $klassenarray[$k]); // Berufe ausgeben For ($l=1; $berufearray[$l]!=„“; $l++) { $name = HackMac($berufearray[$l], „“, „“); $anzahl = HackMac($berufearray[$l], „“, „“); $anzahljhelom = HackMac($berufearray[$l], „“, „“); Print(„

$name

“); Print(„

$anzahl

$anzahljhelom

\n“); } Print(„

“); } Print(„

\n“); Print(„

Die erste Zahl steht für die Kontinentalbewohner, die zweite für die Jhe'lomianer.

\n“); Print „

“; ?>